Comment typo.
[mkws-moved-to-github.git] / src / mkws-team.js
1 // Factory function for team objects. As much as possible, this uses
2 // only member variables (prefixed "m_") and inner functions with
3 // private scope. Some functions are visible as member-functions to be
4 // called from outside code -- specifically, from generated
5 // HTML. These functions are that.switchView(), showDetails(),
6 // limitTarget(), limitQuery(), delimitTarget(), delimitQuery(),
7 // pagerPrev(), pagerNext(), showPage().
8 //
9 function team($, teamName) {
10     var that = {};
11     var m_teamName = teamName;
12     var m_submitted = false;
13     var m_query; // initially undefined
14     var m_sortOrder; // will be set below
15     var m_perpage; // will be set below
16     var m_filters = [];
17     var m_totalRecordCount = 0;
18     var m_currentPage = 1;
19     var m_currentRecordId = '';
20     var m_currentRecordData = null;
21     var m_logTime = {
22         // Timestamps for logging
23         "start": $.now(),
24         "last": $.now()
25     };
26     var m_paz; // will be initialised below
27     var m_template = {};
28
29     that.name = function() { return m_teamName; }
30     that.submitted = function() { return m_submitted; }
31     that.perpage = function() { return m_perpage; }
32     that.totalRecordCount = function() { return m_totalRecordCount; }
33     that.currentPage = function() { return m_currentPage; }
34     that.currentRecordId = function() { return m_currentRecordId; }
35     that.currentRecordData = function() { return m_currentRecordData; }
36     that.filters = function() { return m_filters; }
37
38     that.set_sortOrder = function(val) { m_sortOrder = val };
39     that.set_perpage = function(val) { m_perpage = val };
40
41
42     var log = function (s) {
43         var now = $.now();
44         var timestamp = ((now - m_logTime.start)/1000).toFixed(3) + " (+" + ((now - m_logTime.last)/1000).toFixed(3) + ") "
45         m_logTime.last = now;
46
47         mkws.log(m_teamName + ": " + timestamp + s);
48     }
49     that.log = log;
50
51     log("start running MKWS");
52
53     m_sortOrder = mkws_config.sort_default;
54     m_perpage = mkws_config.perpage_default;
55
56     log("Create main pz2 object");
57     // create a parameters array and pass it to the pz2's constructor
58     // then register the form submit event with the pz2.search function
59     // autoInit is set to true on default
60     m_paz = new pz2({ "windowid": teamName,
61                       "pazpar2path": mkws_config.pazpar2_url,
62                       "usesessions" : mkws_config.use_service_proxy ? false : true,
63                       "oninit": onInit,
64                       "onbytarget": onBytarget,
65                       "onstat": onStat,
66                       "onterm": (mkws_config.facets.length ? onTerm : undefined),
67                       "onshow": onShow,
68                       "onrecord": onRecord,
69                       "showtime": 500,            //each timer (show, stat, term, bytarget) can be specified this way
70                       "termlist": mkws_config.facets.join(',')
71                     });
72
73
74     //
75     // pz2.js event handlers:
76     //
77     function onInit() {
78         log("init");
79         m_paz.stat();
80         m_paz.bytarget();
81     }
82
83
84     function onBytarget(data) {
85         log("target");
86         queue("targets").publish(data);
87     }
88
89
90     function onStat(data) {
91         log("stat");
92         queue("stat").publish(data);
93     }
94
95
96     function onTerm(data) {
97         log("term");
98         queue("termlists").publish(data);
99     }
100
101
102     function onShow(data, teamName) {
103         log("show");
104         m_totalRecordCount = data.merged;
105         queue("pager").publish(data);
106         queue("records").publish(data);
107     }
108
109
110     function onRecord(data, args, teamName) {
111         log("record");
112         // FIXME: record is async!!
113         clearTimeout(m_paz.recordTimer);
114         // ##### restrict to current team
115         var detRecordDiv = document.getElementById(recordDetailsId(data.recid[0]));
116         if (detRecordDiv) {
117             // in case on_show was faster to redraw element
118             return;
119         }
120         m_currentRecordData = data;
121         var recordDiv = findnode('.' + recordElementId(m_currentRecordData.recid[0]));
122         var html = renderDetails(m_currentRecordData);
123         $(recordDiv).append(html);
124     }
125
126
127     // Used by promoteRecords() and onRecord()
128     function recordElementId(s) {
129         return 'mkwsRec_' + s.replace(/[^a-z0-9]/ig, '_');
130     }
131     that.recordElementId = recordElementId;
132
133     // Used by onRecord(), showDetails() and renderDetails()
134     function recordDetailsId(s) {
135         return 'mkwsDet_' + s.replace(/[^a-z0-9]/ig, '_');
136     }
137     that.recordElementId = recordElementId;
138
139
140     that.targetFiltered = function(id) {
141         for (var i = 0; i < m_filters.length; i++) {
142             if (m_filters[i].id === id ||
143                 m_filters[i].id === 'pz:id=' + id) {
144                 return true;
145             }
146         }
147         return false;
148     }
149
150
151     ////////////////////////////////////////////////////////////////////////////////
152     ////////////////////////////////////////////////////////////////////////////////
153
154
155     // when search button pressed
156     function onFormSubmitEventHandler()
157     {
158         var val = findnode('.mkwsQuery').val();
159         newSearch(val);
160         return false;
161     }
162
163
164     function newSearch(query, sortOrder, targets)
165     {
166         log("newSearch: " + query);
167
168         if (mkws_config.use_service_proxy && !mkws.authenticated) {
169             alert("searching before authentication");
170             return;
171         }
172
173         m_filters = []
174         triggerSearch(query, sortOrder, targets);
175         switchView('records'); // In case it's configured to start off as hidden
176         m_submitted = true;
177     }
178
179
180     // limit by target functions
181     that.limitTarget  = function (id, name)
182     {
183         log("limitTarget(id=" + id + ", name=" + name + ")");
184         m_filters.push({ id: id, name: name });
185         triggerSearch();
186         return false;
187     }
188
189
190     // limit the query after clicking the facet
191     that.limitQuery = function (field, value)
192     {
193         log("limitQuery(field=" + field + ", value=" + value + ")");
194         m_filters.push({ field: field, value: value });
195         triggerSearch();
196         return false;
197     }
198
199
200     that.delimitTarget = function (id)
201     {
202         log("delimitTarget(id=" + id + ")");
203         var newFilters = [];
204         for (var i in m_filters) {
205             var filter = m_filters[i];
206             if (filter.id) {
207                 log("delimitTarget() removing filter " + $.toJSON(filter));
208             } else {
209                 log("delimitTarget() keeping filter " + $.toJSON(filter));
210                 newFilters.push(filter);
211             }
212         }
213         m_filters = newFilters;
214
215         triggerSearch();
216         return false;
217     }
218
219
220     that.delimitQuery = function (field, value)
221     {
222         log("delimitQuery(field=" + field + ", value=" + value + ")");
223         var newFilters = [];
224         for (var i in m_filters) {
225             var filter = m_filters[i];
226             if (filter.field &&
227                 field == filter.field &&
228                 value == filter.value) {
229                 log("delimitQuery() removing filter " + $.toJSON(filter));
230             } else {
231                 log("delimitQuery() keeping filter " + $.toJSON(filter));
232                 newFilters.push(filter);
233             }
234         }
235         m_filters = newFilters;
236
237         triggerSearch();
238         return false;
239     }
240
241
242     function resetPage()
243     {
244         m_currentPage = 1;
245         m_totalRecordCount = 0;
246     }
247     that.resetPage = resetPage;
248
249
250     function triggerSearch (query, sortOrder, targets)
251     {
252         resetPage();
253         queue("navi").publish();
254
255         var pp2filter = "";
256         var pp2limit = "";
257
258         // Continue to use previous query/sort-order unless new ones are specified
259         if (query) {
260             m_query = query;
261         }
262         if (sortOrder) {
263             m_sortOrder = sortOrder;
264         }
265         if (targets) {
266             m_filters.push({ id: targets, name: targets });
267         }
268
269         for (var i in m_filters) {
270             var filter = m_filters[i];
271             if (filter.id) {
272                 if (pp2filter)
273                     pp2filter += ",";
274                 if (filter.id.match(/^[a-z:]+[=~]/)) {
275                     log("filter '" + filter.id + "' already begins with SETTING OP");
276                 } else {
277                     filter.id = 'pz:id=' + filter.id;
278                 }
279                 pp2filter += filter.id;
280             } else {
281                 if (pp2limit)
282                     pp2limit += ",";
283                 pp2limit += filter.field + "=" + filter.value.replace(/[\\|,]/g, '\\$&');
284             }
285         }
286
287         var params = {};
288         if (pp2limit) {
289             params.limit = pp2limit;
290         }
291
292         log("triggerSearch(" + m_query + "): filters = " + $.toJSON(m_filters) + ", pp2filter = " + pp2filter + ", params = " + $.toJSON(params));
293
294         // We can use: params.torusquery = "udb=NAME"
295         // Note: that won't work when running against raw pazpar2
296         m_paz.search(m_query, m_perpage, m_sortOrder, pp2filter, undefined, params);
297     }
298
299
300     that.reShow = function() {
301         m_paz.show(0, m_perpage, m_sortOrder);
302     }
303
304
305
306     that.showPage = function (pageNum)
307     {
308         m_currentPage = pageNum;
309         m_paz.showPage(m_currentPage - 1);
310     }
311
312
313     // simple paging functions
314     that.pagerNext = function () {
315         if (m_totalRecordCount - m_perpage*m_currentPage > 0) {
316             m_paz.showNext();
317             m_currentPage++;
318         }
319     }
320
321
322     that.pagerPrev = function () {
323         if (m_paz.showPrev() != false)
324             m_currentPage--;
325     }
326
327
328     // switching view between targets and records
329     function switchView(view) {
330         var targets = findnode('.mkwsTargets');
331         var results = findnode('.mkwsResults,.mkwsRecords');
332         var blanket = findnode('.mkwsBlanket');
333         var motd    = findnode('.mkwsMOTD');
334
335         switch(view) {
336         case 'targets':
337             if (targets) targets.css('display', 'block');
338             if (results) results.css('display', 'none');
339             if (blanket) blanket.css('display', 'none');
340             if (motd) motd.css('display', 'none');
341             break;
342         case 'records':
343             if (targets) targets.css('display', 'none');
344             if (results) results.css('display', 'block');
345             if (blanket) blanket.css('display', 'block');
346             if (motd) motd.css('display', 'none');
347             break;
348         case 'none':
349             alert("mkws.switchView(" + m_teamName + ", 'none') shouldn't happen");
350             if (targets) targets.css('display', 'none');
351             if (results) results.css('display', 'none');
352             if (blanket) blanket.css('display', 'none');
353             if (motd) motd.css('display', 'none');
354             break;
355         default:
356             alert("Unknown view '" + view + "'");
357         }
358     }
359     that.switchView = switchView;
360
361
362     // detailed record drawing
363     that.showDetails = function (recId) {
364         var oldRecordId = m_currentRecordId;
365         m_currentRecordId = recId;
366
367         // remove current detailed view if any
368         // ##### restrict to current team
369         var detRecordDiv = document.getElementById(recordDetailsId(oldRecordId));
370         // lovin DOM!
371         if (detRecordDiv)
372             detRecordDiv.parentNode.removeChild(detRecordDiv);
373
374         // if the same clicked, just hide
375         if (recId == oldRecordId) {
376             m_currentRecordId = '';
377             m_currentRecordData = null;
378             return;
379         }
380         // request the record
381         log("showDetails() requesting record '" + recId + "'");
382         m_paz.record(recId);
383     }
384
385
386     /*
387      * All the HTML stuff to render the search forms and
388      * result pages.
389      */
390     function mkwsHtmlAll() {
391         mkwsSetLang();
392         if (mkws_config.show_lang)
393             mkwsHtmlLang();
394
395         log("HTML search form");
396         findnode('.mkwsSearch').html('\
397 <form name="mkwsSearchForm" class="mkwsSearchForm mkwsTeam_' + m_teamName + '" action="" >\
398   <input class="mkwsQuery mkwsTeam_' + m_teamName + '" type="text" size="' + mkws_config.query_width + '" />\
399   <input class="mkwsButton mkwsTeam_' + m_teamName + '" type="submit" value="' + M('Search') + '" />\
400 </form>');
401
402         log("HTML records");
403         // If the team has a .mkwsResults, populate it in the usual
404         // way. If not, assume that it's a smarter application that
405         // defines its own subcomponents, some or all of the
406         // following:
407         //      .mkwsTermlists
408         //      .mkwsRanking
409         //      .mkwsPager
410         //      .mkwsNavi
411         //      .mkwsRecords
412         findnode(".mkwsResults").html('\
413 <table width="100%" border="0" cellpadding="6" cellspacing="0">\
414   <tr>\
415     <td class="mkwsTermlistContainer1 mkwsTeam_' + m_teamName + '" width="250" valign="top">\
416       <div class="mkwsTermlists mkwsTeam_' + m_teamName + '"></div>\
417     </td>\
418     <td class="mkwsMOTDContainer mkwsTeam_' + m_teamName + '" valign="top">\
419       <div class="mkwsRanking mkwsTeam_' + m_teamName + '"></div>\
420       <div class="mkwsPager mkwsTeam_' + m_teamName + '"></div>\
421       <div class="mkwsNavi mkwsTeam_' + m_teamName + '"></div>\
422       <div class="mkwsRecords mkwsTeam_' + m_teamName + '"></div>\
423     </td>\
424   </tr>\
425   <tr>\
426     <td colspan="2">\
427       <div class="mkwsTermlistContainer2 mkwsTeam_' + m_teamName + '"></div>\
428     </td>\
429   </tr>\
430 </table>');
431
432         var ranking_data = '<form name="mkwsSelect" class="mkwsSelect mkwsTeam_' + m_teamName + '" action="" >';
433         if (mkws_config.show_sort) {
434             ranking_data +=  M('Sort by') + ' ' + mkwsHtmlSort() + ' ';
435         }
436         if (mkws_config.show_perpage) {
437             ranking_data += M('and show') + ' ' + mkwsHtmlPerpage() + ' ' + M('per page') + '.';
438         }
439         ranking_data += '</form>';
440         findnode(".mkwsRanking").html(ranking_data);
441
442         mkwsHtmlSwitch();
443
444         findnode('.mkwsSearchForm').submit(onFormSubmitEventHandler);
445
446         // on first page, hide the termlist
447         $(document).ready(function() { findnode(".mkwsTermlists").hide(); });
448         var container = findnode(".mkwsMOTDContainer");
449         if (container.length) {
450             // Move the MOTD from the provided element down into the container
451             findnode(".mkwsMOTD").appendTo(container);
452         }
453     }
454
455
456     function mkwsSetLang()  {
457         var lang = getParameterByName("lang") || mkws_config.lang;
458         if (!lang || !mkws.locale_lang[lang]) {
459             mkws_config.lang = ""
460         } else {
461             mkws_config.lang = lang;
462         }
463
464         log("Locale language: " + (mkws_config.lang ? mkws_config.lang : "none"));
465         return mkws_config.lang;
466     }
467
468
469     /* create locale language menu */
470     function mkwsHtmlLang() {
471         var lang_default = "en";
472         var lang = mkws_config.lang || lang_default;
473         var list = [];
474
475         /* display a list of configured languages, or all */
476         var lang_options = mkws_config.lang_options || [];
477         var toBeIncluded = {};
478         for (var i = 0; i < lang_options.length; i++) {
479             toBeIncluded[lang_options[i]] = true;
480         }
481
482         for (var k in mkws.locale_lang) {
483             if (toBeIncluded[k] || lang_options.length == 0)
484                 list.push(k);
485         }
486
487         // add english link
488         if (lang_options.length == 0 || toBeIncluded[lang_default])
489             list.push(lang_default);
490
491         log("Language menu for: " + list.join(", "));
492
493         /* the HTML part */
494         var data = "";
495         for(var i = 0; i < list.length; i++) {
496             var l = list[i];
497
498             if (data)
499                 data += ' | ';
500
501             if (lang == l) {
502                 data += ' <span>' + l + '</span> ';
503             } else {
504                 data += ' <a href="?lang=' + l + '">' + l + '</a> '
505             }
506         }
507
508         findnode(".mkwsLang").html(data);
509     }
510
511
512     function mkwsHtmlSort() {
513         log("HTML sort, m_sortOrder = '" + m_sortOrder + "'");
514         var sort_html = '<select class="mkwsSort mkwsTeam_' + m_teamName + '">';
515
516         for(var i = 0; i < mkws_config.sort_options.length; i++) {
517             var opt = mkws_config.sort_options[i];
518             var key = opt[0];
519             var val = opt.length == 1 ? opt[0] : opt[1];
520
521             sort_html += '<option value="' + key + '"';
522             if (m_sortOrder == key || m_sortOrder == val) {
523                 sort_html += ' selected="selected"';
524             }
525             sort_html += '>' + M(val) + '</option>';
526         }
527         sort_html += '</select>';
528
529         return sort_html;
530     }
531
532
533     function mkwsHtmlPerpage() {
534         log("HTML perpage, m_perpage = " + m_perpage);
535         var perpage_html = '<select class="mkwsPerpage mkwsTeam_' + m_teamName + '">';
536
537         for(var i = 0; i < mkws_config.perpage_options.length; i++) {
538             var key = mkws_config.perpage_options[i];
539
540             perpage_html += '<option value="' + key + '"';
541             if (key == m_perpage) {
542                 perpage_html += ' selected="selected"';
543             }
544             perpage_html += '>' + key + '</option>';
545         }
546         perpage_html += '</select>';
547
548         return perpage_html;
549     }
550
551
552     function mkwsHtmlSwitch() {
553         log("HTML switch for team " + m_teamName);
554
555         var node = findnode(".mkwsSwitch");
556         node.append($('<a href="#" onclick="mkws.switchView(\'' + m_teamName + '\', \'records\')">' + M('Records') + '</a>'));
557         node.append($("<span/>", { text: " | " }));
558         node.append($('<a href="#" onclick="mkws.switchView(\'' + m_teamName + '\', \'targets\')">' + M('Targets') + '</a>'));
559
560         log("HTML targets");
561         var node = findnode(".mkwsTargets");
562         node.html('\
563 <div class="mkwsBytarget mkwsTeam_' + m_teamName + '">\
564   No information available yet.\
565 </div>');
566         node.css("display", "none");
567     }
568
569
570     that.runAutoSearch = function() {
571         var node = findnode('.mkwsRecords,.mkwsTermlists');
572         var query = node.attr('autosearch');
573         if (!query)
574             return;
575
576         if (query.match(/^!param!/)) {
577             var param = query.replace(/^!param!/, '');
578             query = getParameterByName(param);
579             log("obtained query '" + query + "' from param '" + param + "'");
580             if (!query) {
581                 alert("This page has a MasterKey widget that needs a query specified by the '" + param + "' parameter");
582             }
583         } else if (query.match(/^!path!/)) {
584             var index = query.replace(/^!path!/, '');
585             var path = window.location.pathname.split('/');
586             query = path[path.length - index];
587             log("obtained query '" + query + "' from path-component '" + index + "'");
588             if (!query) {
589                 alert("This page has a MasterKey widget that needs a query specified by the path-component " + index);
590             }
591         }
592
593         log("node=" + node + ", class='" + node.className + "', query=" + query);
594
595         var sortOrder = node.attr('sort');
596         var targets = node.attr('targets');
597         var s = "running auto search: '" + query + "'";
598         if (sortOrder) s += " sorted by '" + sortOrder + "'";
599         if (targets) s += " in targets '" + targets + "'";
600         log(s);
601
602         newSearch(query, sortOrder, targets);
603     }
604
605
606     // This function is taken from a StackOverflow answer
607     // http://stackoverflow.com/questions/901115/how-can-i-get-query-string-values-in-javascript/901144#901144
608     function getParameterByName(name) {
609         name = name.replace(/[\[]/, "\\[").replace(/[\]]/, "\\]");
610         var regex = new RegExp("[\\?&]" + name + "=([^&#]*)"),
611             results = regex.exec(location.search);
612         return results == null ? "" : decodeURIComponent(results[1].replace(/\+/g, " "));
613     }
614
615
616     // Translation function. At present, this is properly a
617     // global-level function (hence the assignment to mkws.M) but we
618     // want to make it per-team so different teams can operate in
619     // different languages.
620     //
621     function M(word) {
622         var lang = mkws_config.lang;
623
624         if (!lang || !mkws.locale_lang[lang])
625             return word;
626
627         return mkws.locale_lang[lang][word] || word;
628     }
629     mkws.M = M; // so the Handlebars helper can use it
630
631
632     // Finds the node of the specified class within the current team
633     // Multiple OR-clauses separated by commas are handled
634     // More complex cases may not work
635     //
636     function findnode(selector, teamName) {
637         teamName = teamName || m_teamName;
638
639         selector = $.map(selector.split(','), function(s, i) {
640             return s + '.mkwsTeam_' + teamName;
641         }).join(',');
642
643         return $(selector);
644     }
645
646
647     function renderDetails(data, marker)
648     {
649         var template = loadTemplate("Record");
650         var details = template(data);
651         return '<div class="details mkwsTeam_' + m_teamName + '" id="' + recordDetailsId(data.recid[0]) + '">' + details + '</div>';
652     }
653     that.renderDetails = renderDetails;
654
655
656     function loadTemplate(name)
657     {
658         var template = m_template[name];
659
660         if (template === undefined) {
661             // Fall back to generic template if there is no team-specific one
662             var node = findnode(".mkwsTemplate_" + name);
663             if (!node.length) {
664                 node = findnode(".mkwsTemplate_" + name, "ALL");
665             }
666
667             var source = node.html();
668             if (!source) {
669                 source = defaultTemplate(name);
670             }
671
672             template = Handlebars.compile(source);
673             log("compiled template '" + name + "'");
674             m_template[name] = template;
675         }
676
677         return template;
678     }
679     that.loadTemplate = loadTemplate;
680
681
682     function defaultTemplate(name)
683     {
684         if (name === 'Record') {
685             return '\
686 <table>\
687   <tr>\
688     <th>{{translate "Title"}}</th>\
689     <td>\
690       {{md-title}}\
691       {{#if md-title-remainder}}\
692         ({{md-title-remainder}})\
693       {{/if}}\
694       {{#if md-title-responsibility}}\
695         <i>{{md-title-responsibility}}</i>\
696       {{/if}}\
697     </td>\
698   </tr>\
699   {{#if md-date}}\
700   <tr>\
701     <th>{{translate "Date"}}</th>\
702     <td>{{md-date}}</td>\
703   </tr>\
704   {{/if}}\
705   {{#if md-author}}\
706   <tr>\
707     <th>{{translate "Author"}}</th>\
708     <td>{{md-author}}</td>\
709   </tr>\
710   {{/if}}\
711   {{#if md-electronic-url}}\
712   <tr>\
713     <th>{{translate "Links"}}</th>\
714     <td>\
715       {{#each md-electronic-url}}\
716         <a href="{{this}}">Link{{index1}}</a>\
717       {{/each}}\
718     </td>\
719   </tr>\
720   {{/if}}\
721   {{#if-any location having="md-subject"}}\
722   <tr>\
723     <th>{{translate "Subject"}}</th>\
724     <td>\
725       {{#first location having="md-subject"}}\
726         {{#if md-subject}}\
727           {{#commaList md-subject}}\
728             {{this}}{{/commaList}}\
729         {{/if}}\
730       {{/first}}\
731     </td>\
732   </tr>\
733   {{/if-any}}\
734   <tr>\
735     <th>{{translate "Locations"}}</th>\
736     <td>\
737       {{#commaList location}}\
738         {{attr "@name"}}{{/commaList}}\
739     </td>\
740   </tr>\
741 </table>\
742 ';
743         } else if (name === "Summary") {
744             return '\
745 <a href="#" id="{{_id}}" onclick="{{_onclick}}">\
746   <b>{{md-title}}</b>\
747 </a>\
748 {{#if md-title-remainder}}\
749   <span>{{md-title-remainder}}</span>\
750 {{/if}}\
751 {{#if md-title-responsibility}}\
752   <span><i>{{md-title-responsibility}}</i></span>\
753 {{/if}}\
754 ';
755         }
756
757         var s = "There is no default '" + name +"' template!";
758         alert(s);
759         return s;
760     }
761
762
763     // The following PubSub code is modified from the jQuery manual:
764     // https://api.jquery.com/jQuery.Callbacks/
765     //
766     // Use as:
767     //  team.queue("eventName").subscribe(function(param1, param2 ...) { ... });
768     //  team.queue("eventName").publish(arg1, arg2, ...);
769
770     var queues = {};
771     var queue = function(id) {
772         if (!queues[id]) {
773             var callbacks = $.Callbacks();
774             queues[id] = {
775                 publish: callbacks.fire,
776                 subscribe: callbacks.add,
777                 unsubscribe: callbacks.remove
778             };
779         }
780         return queues[id];
781     }
782     that.queue = queue;
783
784
785     // main
786     (function() {
787         try {
788             mkwsHtmlAll()
789         }
790
791         catch (e) {
792             mkws_config.error = e.message;
793             // alert(e.message);
794         }
795     })();
796
797     // Bizarrely, 'that' is just an empty hash. All its state is in
798     // the closure variables defined earlier in this function.
799     return that;
800 };