File:
[LON-CAPA] /
loncom /
interface /
lonsupportreq.pm
Revision
1.20:
download - view:
text,
annotated -
select for diffs
Thu Dec 30 21:16:38 2004 UTC (19 years, 7 months ago) by
raeburn
Branches:
MAIN
CVS tags:
HEAD
More generic. Will now support short codes and long codes for all items, e.g. year could be 04 short, 2004 long; semester fs short, Fall long, department phy short, physics long. Short used as option value in select boxes, long as text displayed for each option. Short and long codes and item titles all determined by call to &localenroll:instcode_format() on domain's library server (via lonnet:auto_instcode_format().
1: package Apache::lonsupportreq;
2:
3: use strict;
4: use lib qw(/home/httpd/lib/perl);
5: use MIME::Types;
6: use MIME::Lite;
7: use Apache::Constants qw(:common);
8: use Apache::loncommon();
9: use Apache::lonnet();
10: use Apache::lonlocal;
11:
12: sub handler {
13: my ($r) = @_;
14: &Apache::loncommon::content_type($r,'text/html');
15: $r->send_http_header;
16:
17: if ($r->header_only) {
18: return OK;
19: }
20: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['origurl','function']);
21: if ($r->uri eq '/adm/helpdesk') {
22: &Apache::loncommon::get_posted_cgi($r);
23: }
24: my $function = $ENV{'form.function'};
25: my $origurl = &Apache::lonnet::unescape($ENV{'form.origurl'});
26: my $action = $ENV{'form.action'};
27:
28: if ($action eq 'process') {
29: &print_request_receipt($r,$origurl,$function);
30: } else {
31: &print_request_form($r,$origurl,$function);
32: }
33: return OK;
34: }
35:
36: sub print_request_form {
37: my ($r,$origurl,$function) = @_;
38: my ($os,$browser,$bversion,$uhost,$uname,$udom,$uhome,$urole,$usec,$email,$cid,$cdom,$cnum,$ctitle,$ccode,$sectionlist,$lastname,$firstname,$server);
39: my $bodytag = &Apache::loncommon::bodytag('',$function,'topmargin="0",marginheight="0"',1);
40: my $tablecolor = &Apache::loncommon::designparm($function.'.tabbg');
41: if (($tablecolor eq '') || ($tablecolor eq '#FFFFFF')) {
42: $tablecolor = '#EEEE99';
43: }
44: $ccode = '';
45: $os = $ENV{'browser.os'};
46: $browser = $ENV{'browser.type'};
47: $bversion = $ENV{'browser.version'};
48: $uhost = $ENV{'request.host'};
49: $uname = $ENV{'user.name'};
50: $udom = $ENV{'user.domain'};
51: $uhome = $ENV{'user.home'};
52: $urole = $ENV{'request.role'};
53: $usec = $ENV{'request.course.sec'};
54: $cid = $ENV{'request.course.id'};
55: $server = $ENV{'SERVER_NAME'};
56: my $scripttag = (<<'END');
57: function validate() {
58: if (validmail(document.logproblem.email) == false) {
59: alert("The e-mail address you entered: "+document.logproblem.email.value+" is not a valid e-mail address.");
60: return;
61: }
62: document.logproblem.submit();
63: }
64:
65: function validmail(field) {
66: var str = field.value;
67: if (window.RegExp) {
68: var reg1str = "(@.*@)|(\\.\\.)|(@\\.)|(\\.@)|(^\\.)";
69: var reg2str = "^.+\\@(\\[?)[a-zA-Z0-9\\-\\.]+\\.([a-zA-Z]{2,3}|[0-9]{1,3})(\\]?)$";
70: var reg1 = new RegExp(reg1str);
71: var reg2 = new RegExp(reg2str);
72: if (!reg1.test(str) && reg2.test(str)) {
73: return true;
74: }
75: return false;
76: }
77: else
78: {
79: if(str.indexOf("@") >= 0) {
80: return true;
81: }
82: return false;
83: }
84: }
85: END
86: if ($cid =~ m/_/) {
87: ($cdom,$cnum) = split/_/,$cid;
88: }
89: if ($cdom && $cnum) {
90: my %csettings = &Apache::lonnet::get('environment',['description','internal.coursecode','internal.sectionnums'],$cdom,$cnum);
91: $ctitle = $csettings{'description'};
92: $ccode = $csettings{'internal.coursecode'};
93: $sectionlist = $csettings{'internal.sectionnums'};
94: }
95: if ($ENV{'environment.critnotification'}) {
96: $email = $ENV{'environment.critnotification'};
97: }
98: if (!$email && $ENV{'environment.notification'}) {
99: $email = $ENV{'environment.notification'};
100: }
101: if ($ENV{'environment.lastname'}) {
102: $lastname = $ENV{'environment.lastname'};
103: }
104: if ($ENV{'environment.firstname'}) {
105: $firstname = $ENV{'environment.firstname'};
106: }
107: my @sections = split/,/,$sectionlist;
108: my %groupid = ();
109: foreach (@sections) {
110: my ($sec,$grp) = split/:/,$_;
111: $groupid{$sec} = $grp;
112: }
113: my $codedom = $Apache::lonnet::perlvar{'lonDefDomain'};
114: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['codedom']);
115: if (exists($ENV{'form.codedom'})) {
116: $codedom = $ENV{'form.codedom'};
117: }
118: my %coursecodes = ();
119: my %codes = ();
120: my @codetitles = ();
121: my %cat_titles = ();
122: my %cat_order = ();
123: my %idlist = ();
124: my %idnums = ();
125: my %idlist_titles = ();
126: my $caller = 'global';
127: my $totcodes = 0;
128: my $format_reply;
129: my $jscript = '';
130:
131: if ($cdom) {
132: $codedom = $cdom;
133: }
134: if ($cnum) {
135: $coursecodes{$cnum} = $ccode;
136: if ($ccode eq '') {
137: $totcodes = &retrieve_instcodes(\%coursecodes,$codedom,$totcodes);
138: } else {
139: $coursecodes{$cnum} = $ccode;
140: $caller = $cnum;
141: $totcodes ++;
142: }
143: } else {
144: $totcodes = &retrieve_instcodes(\%coursecodes,$codedom,$totcodes);
145: }
146: if ($totcodes > 0) {
147: $format_reply = &Apache::lonnet::auto_instcode_format($caller,$codedom,\%coursecodes,\%codes,\@codetitles,\%cat_titles,\%cat_order);
148: if ($ccode eq '') {
149: my $numtypes = @codetitles;
150: &build_code_selections(\%codes,\@codetitles,\%cat_titles,\%cat_order,\%idlist,\%idnums,\%idlist_titles);
151: &javascript_code_selections($numtypes,\%cat_titles,\$jscript,\%idlist,\%idnums,\%idlist_titles,\@codetitles);
152: }
153: }
154: $r->print(<<ENDHEAD);
155: <html>
156: <head>
157: <title>LON-CAPA support request</title>
158: <script type"text/javascript">
159: $scripttag
160: $jscript
161: </script>
162: </head>
163: $bodytag
164: ENDHEAD
165: if ($r->uri eq '/adm/helpdesk') {
166: &print_header($r,$origurl);
167: }
168: $r->print(<<"END");
169: <form method="post" name="logproblem" enctype="multipart/form-data">
170: <table width="580" border="0" cellpadding="0" cellspacing="0" bgcolor="#000000">
171: <tr>
172: <td>
173: <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
174: <tr>
175: <td>
176: <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#ffffff">
177: <tr>
178: <td>
179: <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#ffffff">
180: <tr>
181: <td width="140" bgcolor="$tablecolor">
182: <table width="140" border="0" cellpadding="8" cellspacing="0">
183: <tr>
184: <td align="right"><b>Name:</b>
185: </td>
186: </tr>
187: </table>
188: </td>
189: <td width="100%" valign="top">
190: <table width="100%" border="0" cellpadding="8" cellspacing="0">
191: <tr>
192: <td>
193: END
194: my $fullname = '';
195: if ((defined($lastname) && $lastname ne '') && (defined($firstname) && $firstname ne '')) {
196: $fullname = "$firstname $lastname";
197: $r->print("$fullname<input type=\"hidden\" name=\"username\" value=\"$fullname\" />");
198: } else {
199: if (defined($firstname) && $firstname ne '') {
200: $fullname = $firstname;
201: } elsif (defined($lastname) && $lastname ne '') {
202: $fullname= " $lastname";
203: }
204: $r->print('<input type="text" size="20" name="username" value="'.$fullname.'" />');
205: }
206: $r->print(<<END);
207: <input type="button" value="Submit Request" onClick="validate()" />
208: </td>
209: </tr>
210: </table>
211: </td>
212: </tr>
213: <tr>
214: <td width="100%" colspan="2" bgcolor="#000000">
215: <img src="/adm/lonMisc/blackdot.gif" /><br />
216: </td>
217: </tr>
218: <tr>
219: <td width="140" bgcolor="$tablecolor">
220: <table width="140" border="0" cellpadding="8" cellspacing="0">
221: <tr>
222: <td align="right"><b>E-mail address:</b>
223: </td>
224: </tr>
225: </table>
226: </td>
227: <td width="100%" valign="top">
228: <table width="100%" border="0" cellpadding="8" cellspacing="0">
229: <tr>
230: <td>
231: <input type="text" size="20" name="email" value="$email" /><br />
232: </td>
233: </tr>
234: </table>
235: </td>
236: </tr>
237: <tr>
238: <td width="100%" colspan="2" bgcolor="#000000">
239: <img src="/adm/lonMisc/blackdot.gif" /><br />
240: </td>
241: </tr>
242: <tr>
243: <td width="140" bgcolor="$tablecolor">
244: <table width="140" border="0" cellpadding="8" cellspacing="0">
245: <tr>
246: <td align="right"><b>username/domain:</b>
247: </td>
248: </tr>
249: </table>
250: </td>
251: <td width="100%" valign="top">
252: <table width="100%" border="0" cellpadding="8" cellspacing="0">
253: <tr>
254: <td>
255: END
256: my $udom_input = '<input type="hidden" name="udom" value="'.$udom.'" />';
257: my $uname_input = '<input type="hidden" name="uname" value="'.$uname.'" />';
258: if (defined($uname) && defined($udom)) {
259: $r->print('<i>username</i>: '.$uname.' <i>domain</i>: '.$udom.$udom_input.$uname_input);
260: } else {
261: my $udomform = '';
262: my $unameform = '';
263: if (defined($udom)) {
264: $udomform = '<i>domain</i>: '.$udom.$udom_input;
265: } elsif (defined($uname)) {
266: $unameform = '<i>username</i>: '.$uname.' '.$uname_input;
267: }
268: if ($udomform eq '') {
269: $udomform = '<i>domain</i>: ';
270: $udomform .= &Apache::loncommon::select_dom_form($codedom,'udom');
271: }
272: if ($unameform eq '') {
273: $unameform= '<i>username</i>: <input type="text" size="12" name="uname" value="'.$uname.'" /> ';
274: }
275: $r->print($unameform.$udomform.'<br />Enter the username you use to log-in to your LON-CAPA system, and choose your domain.');
276: }
277: $r->print(<<END);
278: </td>
279: </tr>
280: </table>
281: </td>
282: </tr>
283: <tr>
284: <td width="100%" colspan="2" bgcolor="#000000">
285: <img src="/adm/lonMisc/blackdot.gif" /><br />
286: </td>
287: </tr>
288: <tr>
289: <td width="140" bgcolor="$tablecolor">
290: <table width="140" border="0" cellpadding="8" cellspacing="0">
291: <tr>
292: <td align="right"><b>URL of page:</b>
293: </td>
294: </tr>
295: </table>
296: </td>
297: <td width="100%" valign="top">
298: <table width="100%" border="0" cellpadding="8" cellspacing="0">
299: <tr>
300: <td>
301: http://$server$origurl<input type="hidden" name="sourceurl" value="http://$server$origurl" />
302: </td>
303: </tr>
304: </table>
305: </td>
306: </tr>
307: <tr>
308: <td width="100%" colspan="2" bgcolor="#000000">
309: <img src="/adm/lonMisc/blackdot.gif" /><br />
310: </td>
311: </tr>
312: <tr>
313: <td width="140" bgcolor="$tablecolor">
314: <table width="140" border="0" cellpadding="8" cellspacing="0">
315: <tr>
316: <td align="right"><b>Phone #:</b>
317: </td>
318: </tr>
319: </table>
320: </td>
321: <td width="100%" valign="top">
322: <table width="100%" border="0" cellpadding="8" cellspacing="0">
323: <tr>
324: <td>
325: <input type="text" size="15" name="phone"><br>
326: </td>
327: </tr>
328: </table>
329: </td>
330: </tr>
331: <tr>
332: <td width="100%" colspan="2" bgcolor="#000000">
333: <img src="/adm/lonMisc/blackdot.gif" /><br />
334: </td>
335: </tr>
336: <tr>
337: <td width="140" bgcolor="$tablecolor">
338: <table width="140" border="0" cellpadding="8" cellspacing="0">
339: <tr>
340: <td align="right"><b>Course Details:</b>
341: </td>
342: </tr>
343: </table>
344: </td>
345: <td width="100%" valign="top">
346: <table border="0" cellpadding="3" cellspacing="3">
347: <tr>
348: <td>
349: END
350: if ($cnum) {
351: if ($coursecodes{$cnum}) {
352: foreach (@codetitles) {
353: $r->print('<i>'.$_.'</i>: '.$codes{$cnum}{$_}.'; ');
354: }
355: $r->print(' <input type="hidden" name="coursecode" value="'.$coursecodes{$cnum}.'" />');
356: } else {
357: $r->print('Enter institutional course code:
358: <input type="text" name="coursecode" size="15" value="" />');
359: }
360: } else {
361: if ($totcodes > 0) {
362: my $numtitles = @codetitles;
363: if ($numtitles == 0) {
364: $r->print('Enter institutional course code:
365: <input type="text" name="coursecode" size="15" value="" />');
366: } else {
367: my $lasttitle = $numtitles;
368: if ($numtitles > 4) {
369: $lasttitle = 4;
370: }
371: $r->print('<table><tr><td>'.$codetitles[0].'<br />'."\n".
372: '<select name="'.$codetitles[0].'" onChange="courseSet('."'$codetitles[0]'".')">'."\n".
373: ' <option value="-1" />Select'."\n");
374: my @items = ();
375: my @longitems = ();
376: if ($idlist{$codetitles[0]} =~ /","/) {
377: @items = split/","/,$idlist{$codetitles[0]};
378: } else {
379: $items[0] = $idlist{$codetitles[0]};
380: }
381: if (defined($idlist_titles{$codetitles[0]})) {
382: if ($idlist_titles{$codetitles[0]} =~ /","/) {
383: @longitems = split/","/,$idlist_titles{$codetitles[0]};
384: } else {
385: $longitems[0] = $idlist_titles{$codetitles[0]};
386: }
387: } else {
388: @longitems = @items;
389: }
390: for (my $i=0; $i<@items; $i++) {
391: $r->print(' <option value="'.$items[$i].'">'.$longitems[$i].'</option>');
392: }
393: $r->print('</select></td>');
394: for (my $i=1; $i<$numtitles; $i++) {
395: $r->print('<td>'.$codetitles[$i].'<br />'."\n".
396: '<select name="'.$codetitles[$i].'" onChange="courseSet('."'$codetitles[$i]'".')">'."\n".
397: '<option value="-1"><-Pick '.$codetitles[$i-1].'</option>'."\n".
398: '</select>'."\n".
399: '</td>'
400: );
401: }
402: $r->print('</tr></table>');
403: if ($numtitles > 4) {
404: $r->print('<br /><br />'.$codetitles[$numtitles].'<br />'."\n".
405: '<select name="'.$codetitles[$numtitles].'" onChange="courseSet('."'$codetitles[$numtitles]'".')">'."\n".
406: '<option value="-1"><-Pick '.$codetitles[$numtitles-1].'</option>'."\n".
407: '</select>'."\n");
408: }
409: }
410: } else {
411: $r->print('Enter institutional course code:
412: <input type="text" name="coursecode" size="15" value="" />');
413: }
414: }
415: if ($ctitle) {
416: $r->print('<br /><i>Title</i>: '.$ctitle.'<input type="hidden" name="title" value="'.$ctitle.'" />');
417: } else {
418: $r->print('<br />Enter course title:
419: <input type="text" name="title" size="25" value="" />');
420: }
421: $r->print(<<END);
422: </td>
423: </tr>
424: </table>
425: </td>
426: </tr>
427: <tr>
428: <td width="100%" colspan="2" bgcolor="#000000">
429: <img src="/adm/lonMisc/blackdot.gif" /><br />
430: </td>
431: </tr>
432: <tr>
433: <td width="140" bgcolor="$tablecolor">
434: <table width="140" border="0" cellpadding="8" cellspacing="0">
435: <tr>
436: <td align="right"><b>Section Number: </b>
437: </td>
438: </tr>
439: </table>
440: </td>
441: <td width="100%" valign="top">
442: <table width="100%" border="0" cellpadding="8" cellspacing="0">
443: <tr>
444: <td>
445: END
446: if ($sectionlist) {
447: $r->print("<select name=\"section\">");
448: foreach (sort keys %groupid) {
449: if ($_ eq $groupid{$_} || $groupid{$_} eq '') {
450: $r->print("<option value=\"$_\" />$_");
451: } else {
452: $r->print("<option value=\"$_\" />$_ - (LON-CAPA sec: $groupid{$_})");
453: }
454: }
455: $r->print("</select>");
456: } else {
457: $r->print("<input type=\"text\" name=\"section\" size=\"10\"/>");
458: }
459: $r->print(<<END);
460: </td>
461: </tr>
462: </table>
463: </td>
464: </tr>
465: <tr>
466: <td width="100%" colspan="2" bgcolor="#000000">
467: <img src="/adm/lonMisc/blackdot.gif" /><br />
468: </td>
469: </tr>
470: <tr>
471: <td width="140" bgcolor="$tablecolor">
472: <table width="140" border="0" cellpadding="8" cellspacing="0">
473: <tr>
474: <td align="right"><b>Subject</b>
475: </td>
476: </tr>
477: </table>
478: </td>
479: <td width="100%" valign="top">
480: <table width="100%" border="0" cellpadding="8" cellspacing="0">
481: <tr>
482: <td>
483: <input type="text" size="40" name="subject">
484: </td>
485: </tr>
486: </table>
487: </td>
488: </tr>
489: <tr>
490: <td width="100%" colspan="2" bgcolor="#000000">
491: <img src="/adm/lonMisc/blackdot.gif" /><br />
492: </td>
493: </tr>
494: <tr>
495: <td width="140" bgcolor="$tablecolor">
496: <table width="140" border="0" cellpadding="8" cellspacing="0">
497: <tr>
498: <td align="right"><b>Detailed description:</b>
499: </td>
500: </tr>
501: </table>
502: </td>
503: <td width="100%" valign="top">
504: <table width="100%" border="0" cellpadding="8" cellspacing="0">
505: <tr>
506: <td>
507: <textarea rows="10" cols="45" name="description" wrap="virtual"></textarea>
508: </td>
509: </tr>
510: </table>
511: </td>
512: </tr>
513: <tr>
514: <td width="100%" colspan="2" bgcolor="#000000">
515: <img src="/adm/lonMisc/blackdot.gif" /><br />
516: </td>
517: </tr>
518: END
519: if (defined($ENV{'user.name'})) {
520: $r->print(<<END);
521: <tr>
522: <td width="140" bgcolor="$tablecolor">
523: <table width="140" border="0" cellpadding="8" cellspacing="0">
524: <tr>
525: <td align="right"><b>Optional file upload:</b>
526: </td>
527: </tr>
528: </table>
529: </td>
530: <td width="100%" valign="top">
531: <table width="100%" border="0" cellpadding="8" cellspacing="0">
532: <tr>
533: <td>
534: <input type="file" name="screenshot" size="20" /><br />Upload a file (e.g., a screenshot) relevant to your support request (128 KB max. size).
535: </td>
536: </tr>
537: </table>
538: </td>
539: </tr>
540: <tr>
541: <td width="100%" colspan="2" bgcolor="#000000">
542: <img src="/adm/lonMisc/blackdot.gif" /><br />
543: </td>
544: </tr>
545: END
546: }
547: $r->print(<<END);
548: <tr>
549: <td width="140" bgcolor="$tablecolor">
550: <table width="140" border="0" cellpadding="8" cellspacing="0">
551: <tr>
552: <td align="right"><b>Finish:</b>
553: </td>
554: </tr>
555: </table>
556: </td>
557: <td width="100%" valign="top">
558: <table border="0" cellpadding="8" cellspacing="0">
559: <tr>
560: <td>
561: <input type="hidden" name="action" value="process" />
562: <input type="button" value="Submit Request" onClick="validate()"/>
563: </td>
564: <td> </td>
565: <td>
566: <input type="reset" value="Clear Form">
567: </td>
568: </tr>
569: </table>
570: </td>
571: </tr>
572: </table>
573: </td>
574: </tr>
575: </table>
576: </td>
577: </tr>
578: </table>
579: </td>
580: </tr>
581: </table>
582: </form>
583: </body>
584: </html>
585: END
586: return;
587: }
588:
589: sub print_request_receipt {
590: my ($r,$url,$function) = @_;
591: my @envvars = ('lonID','HTTP_HOST','HTTP_USER_AGENT','REMOTE_ADDR','SERVER_ADDR','SERVER_NAME','browser.os','browser.type','browser.version','user.home','request.role');
592: my @loncvars = ('user.name','user.domain','request.course.sec','request.course.id');
593:
594: my $bodytag = &Apache::loncommon::bodytag('',$function,'topmargin="0" marginheight="0"',1);
595: my $admin = $Apache::lonnet::perlvar{'lonAdminMail'};
596: my $to = $Apache::lonnet::perlvar{'lonSupportEMail'};
597: my $from = $admin;
598: my $reporttime = &Apache::lonlocal::locallocaltime(time);
599: my $fontcolor = &Apache::loncommon::designparm($function.'.font');
600: my $vlinkcolor = &Apache::loncommon::designparm($function.'.vlink');
601: my $tablecolor = &Apache::loncommon::designparm($function.'.tabbg');
602: my @formvars = ('username','email','uname','udom','sourceurl','phone','section','coursecode','title','subject','description','screenshot');
603:
604: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},\@formvars);
605: my $coursecode = $ENV{'form.coursecode'};
606: if ($coursecode eq '') {
607: if (defined($ENV{'form.Year'})) {
608: $coursecode .= $ENV{'form.Year'};
609: }
610: if (defined($ENV{'form.Semester'})) {
611: $coursecode .= $ENV{'form.Semester'};
612: }
613: if (defined($ENV{'form.Department'})) {
614: $coursecode .= $ENV{'form.Department'};
615: }
616: if (defined($ENV{'form.Number'})) {
617: $coursecode .= $ENV{'form.Number'};
618: }
619: }
620: my $supportmsg = qq|
621: Name: $ENV{'form.username'}
622: Email: $ENV{'form.email'}
623: Username/domain: $ENV{'form.uname'} - $ENV{'form.udom'}
624: Tel: $ENV{'form.phone'}
625: Course Information: $ENV{'form.title'} - $coursecode - section: $ENV{'form.section'}
626: Subject: $ENV{'form.subject'}
627: Description: $ENV{'form.description'}
628: URL: $ENV{'form.sourceurl'}
629: Date/Time: $reporttime
630:
631: |;
632: my $descrip = $ENV{'form.description'};
633: $descrip =~ s#\n#<br />#g;
634: my $displaymsg = qq|
635: <font color="$fontcolor">Name:</font><font color="$vlinkcolor"> $ENV{'form.username'}</font><br />
636: <font color="$fontcolor">Email: </font><font color="$vlinkcolor">$ENV{'form.email'}</font><br />
637: <font color="$fontcolor">Username/domain: </font><font color="$vlinkcolor">$ENV{'form.uname'} - $ENV{'form.udom'}</font><br />
638: <font color="$fontcolor">Tel: </font><font color="$vlinkcolor">$ENV{'form.phone'}</font><br />
639: <font color="$fontcolor">Course Information: </font><font color="$vlinkcolor">$ENV{'form.title'} - $coursecode - section: $ENV{'form.section'}</font><br />
640: <font color="$fontcolor">Subject: </font><font color="$vlinkcolor">$ENV{'form.subject'}</font><br />
641: <font color="$fontcolor">Description: </font><font color="$vlinkcolor">$descrip</font><br />
642: <font color="$fontcolor">URL: </font><font color="$vlinkcolor">$ENV{'form.sourceurl'}</font><br />
643: <font color="$fontcolor">Date/Time: </font><font color="$vlinkcolor">$reporttime</font><br />
644: |;
645: $r->print(<<"END");
646: <html>
647: <head>
648: <title>LON-CAPA support request recorded</title>
649: </head>
650: $bodytag
651: <form name="logproblem">
652: <input type="hidden" name="action" value="result" />
653: </form>
654: END
655: if ($r->uri eq '/adm/helpdesk') {
656: &print_header($r,$url,'process');
657: }
658: if ($to =~ m/^[^\@]+\@[^\@]+$/) {
659: $r->print("<h3>A support request has been sent to $to</h3>");
660: } else {
661: $to = $admin;
662: if ($to =~ m/^[^\@]+\@[^\@]+$/) {
663: $r->print("<h3>A support request has been sent to $to</h3>");
664: END
665: } else {
666: $r->print(<<END);
667: <h3>Warning: Problem with support e-mail address</h3>
668: As the e-mail address provided for this LON-CAPA server ($to) does not appear to be a valid e-mail address, your support request has <b>not</b> been sent to the LON-CAPA support staff or administrator at your institution. Instead a copy has been sent to the LON-CAPA support team at Michigan State University.
669: END
670: $to = 'helpdesk@lon-capa.org';
671: }
672: }
673: if (defined($ENV{'form.email'})) {
674: if ($ENV{'form.email'} =~ m/^[^\@]+\@[^\@]+$/) {
675: $from = $ENV{'form.email'};
676: }
677: }
678:
679: my $subject = $ENV{'form.subject'};
680: $subject =~ s#(`)#'#g;
681: $subject =~ s#\$#\(\$\)#g;
682: $supportmsg =~ s#(`)#'#g;
683: $supportmsg =~ s#\$#\(\$\)#g;
684: $displaymsg =~ s#(`)#'#g;
685: $displaymsg =~ s#\$#\(\$\)#g;
686: my $fname;
687:
688: my $attachmentpath = '';
689: my $attachmentsize = '';
690: if (defined($ENV{'user.name'})) {
691: if ($ENV{'form.screenshot.filename'}) {
692: $attachmentsize = length($ENV{'form.screenshot'});
693: if ($attachmentsize > 131072) {
694: $displaymsg .= "<br />The uploaded screenshot file ($attachmentsize bytes) included with your request exceeded the maximum allowed size - 128 KB, and has therefore been discarded.";
695: } else {
696: $attachmentpath=&Apache::lonnet::userfileupload('screenshot',undef,'helprequests');
697: }
698: }
699: }
700:
701: if ($attachmentpath =~ m-/([^/]+)$-) {
702: $fname = $1;
703: $displaymsg .= "<br />An uploaded screenshot file - $fname ($attachmentsize bytes) was included in the request sent by $ENV{'user.name'} from LON-CAPA domain: $ENV{'user.domain'}";
704: $supportmsg .= "\n";
705: foreach (@envvars) {
706: $supportmsg .= "$_: $ENV{$_}\n";
707: }
708: }
709:
710: my $msg = MIME::Lite->new(
711: From => $from,
712: To => $to,
713: Subject => $subject,
714: Type =>'TEXT',
715: Data => $supportmsg,
716: );
717:
718: if ($attachmentpath) {
719: my ($type, $encoding) = MIME::Types::by_suffix($attachmentpath);
720: $msg->attach(Type => $type,
721: Path => $attachmentpath,
722: Filename => $fname
723: );
724:
725: } else {
726: my $envdata = '';
727: foreach (@envvars) {
728: $envdata .= "$_: $ENV{$_}\n";
729: }
730: foreach (@loncvars) {
731: $envdata .= "$_: $ENV{$_}\n";
732: }
733: $msg->attach(Type => 'TEXT',
734: Data => $envdata);
735: }
736:
737: ### Send it:
738: # ->send can cause an sh launch which can pass all of %ENV along
739: # which can be to large for /bin/sh's little mind
740: my %oldENV=%ENV;
741: undef(%ENV);
742: $msg->send('sendmail');
743: %ENV=%oldENV;
744: undef(%oldENV);
745:
746: if ($attachmentpath =~ m#$Apache::lonnet::perlvar{'lonDaemons'}/tmp/helprequests/(\d+)/[^/]+#) {
747: unlink($attachmentpath);
748: }
749: $r->print(qq|
750: <b>Your support request contained the following information</b>:<br /><br />
751: <table width="580" border="0" cellpadding="0" cellspacing="0" bgcolor="#000000">
752: <tr>
753: <td>
754: <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
755: <tr>
756: <td>
757: <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#ffffff">
758: <tr>
759: <td>
760: <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#ffffff">
761: <tr>
762: <td width="140" bgcolor="$tablecolor">
763: <table width="140" border="0" cellpadding="8" cellspacing="0">
764: <tr>
765: <td align="right"><b>Information supplied</b>
766: </td>
767: </tr>
768: </table>
769: </td>
770: <td width="100%" valign="top">
771: <table width="100%" border="0" cellpadding="8" cellspacing="0">
772: <tr>
773: <td>$displaymsg</td>
774: </tr>
775: </table>
776: </td>
777: </tr>
778: <tr>
779: <td width="100%" colspan="2" bgcolor="#000000">
780: <img src="/adm/lonMisc/blackdot.gif" /><br />
781: </td>
782: </tr>
783: <tr>
784: <td width="140" bgcolor="$tablecolor">
785: <table width="140" border="0" cellpadding="8" cellspacing="0">
786: <tr>
787: <td align="right"><b>Additional information recorded</b>
788: </td>
789: </tr>
790: </table>
791: </td>
792: <td width="100%" valign="top">
793: <table width="100%" border="0" cellpadding="8" cellspacing="0">
794: <tr>
795: <td>
796: |);
797: foreach (@envvars) {
798: unless($ENV{$_} eq '') {
799: $r->print("$_: <font color='$vlinkcolor'>$ENV{$_}</font>, ");
800: }
801: }
802: $r->print("
803: </td>
804: </tr>
805: </table>
806: </td>
807: </tr>
808: </table>
809: </td>
810: </tr>
811: </table>
812: </td>
813: </tr>
814: </table>
815: </td>
816: </tr>
817: </table>
818: </body>
819: </html>
820: ");
821: }
822:
823: sub print_header {
824: my ($r,$origurl,$action) = @_;
825: my $location=&Apache::loncommon::lonhttpdurl("/adm");
826: my $tablecolor = '#EEEE99';
827: my ($component_url);
828: my $helpdesk_link = '<a href="javascript:validate()">';
829: if ($action eq 'process') {
830: $helpdesk_link = '<a href="/adm/helpdesk">';
831: }
832: my %lt = &Apache::lonlocal::texthash (
833: login => 'Log-in help',
834: ask => 'Ask helpdesk',
835: getst => 'Getting started guide',
836: back => 'Back to last location'
837: );
838: $r->print(<<END);
839: <table width="620" border="0" cellspacing="0" cellpadding="0" height="55"> <tr height="50"> <td width='5'> </td>
840: <td>
841: <fieldset><legend><img src="$location/lonIcons/minilogo.gif" height='20' width='29' valign='bottom' /> <b><font size="+1">LON-CAPA help/support</font></b></legend>
842: <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#000000">
843: <tr>
844: <td>
845: <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#000000">
846: <tr>
847: <td>
848: <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#ffffff">
849: <tr>
850: <td>
851: <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#ffffff">
852: <tr bgcolor="$tablecolor">
853: <td align="center"><img src="$location/help/gif/smallHelp.gif" border="0" alt="(Login help)" valign="middle" /> <b><a href="/adm/loginproblems.html">$lt{'login'}</a></td>
854: <td align="center"> <b>$helpdesk_link<img src="$location/lonIcons/helpdesk.gif" border="0" alt="(Ask helpdesk)" valign="middle" /> $lt{'ask'}</a></b> </td>
855: <td align="center"> <b><a href="/adm/gettingstarted.html">$lt{'getst'}</a></td>
856: <td align="center"> <b><a href="$origurl" target="_top"><img src="$location/lonIcons/move_up.gif" border="0" alt="(Back to last location)" valign="middle" /> $lt{'back'}</a></b> </td>
857: </tr>
858: </table>
859: </td>
860: </tr>
861: </table>
862: </td>
863: </tr>
864: </table>
865: </td>
866: </tr>
867: </table>
868: </fieldset>
869: </td>
870: <td width='5'> </td>
871: </tr>
872: <tr height='5'>
873: <td colspan='3' height='5'> </td>
874: </tr>
875: END
876: unless ($action eq 'process') {
877: $r->print('
878: <tr>
879: <td colspan="3">'.&mt('
880: Please read the "Log-in help" and "Getting started guide" if you can not log-in').'. '.&mt('If your problem is still unresolved, the form below can be used to send a question to the LON-CAPA helpdesk').'.<br /><font size="-1"><b>'.&mt('Note').':</b> '.&mt('Student questions about course content should be directed to the course instructor').'.</font><br /><br />
881: </td>
882: </tr>');
883: }
884: $r->print('
885: </table>');
886: return;
887: }
888:
889: sub retrieve_instcodes {
890: my ($coursecodes,$codedom,$totcodes) = @_;
891: my %courses = &Apache::lonnet::courseiddump($codedom,'.',1,'.','.');
892: foreach my $course (keys %courses) {
893: if ($courses{$course} =~ m/^[^:]*:([^:]+)/) {
894: $$coursecodes{$course} = &Apache::lonnet::unescape($1);
895: $totcodes ++;
896: }
897: }
898: return $totcodes;
899: }
900:
901: sub build_code_selections {
902: my ($codes,$codetitles,$cat_titles,$cat_order,$idlist,$idnums,$idlist_titles) = @_;
903: my %idarrays = ();
904: for (my $i=1; $i<@{$codetitles}; $i++) {
905: %{$idarrays{$$codetitles[$i]}} = ();
906: }
907: foreach my $cid (sort keys %{$codes}) {
908: &recurse_list($cid,$codetitles,$codes,0,\%idarrays);
909: }
910: for (my $num=0; $num<@{$codetitles}; $num++) {
911: if ($num == 0) {
912: my @contents = ();
913: my @contents_titles = ();
914: &sort_cats($num,$cat_order,$codetitles,\@{$idarrays{$$codetitles[0]}},\@contents);
915: if (defined($$cat_titles{$$codetitles[0]})) {
916: foreach (@contents) {
917: push @contents_titles, $$cat_titles{$$codetitles[0]}{$_};
918: }
919: }
920: $$idlist{$$codetitles[0]} = join('","',@contents);
921: $$idnums{$$codetitles[0]} = scalar(@contents);
922: if (defined($$cat_titles{$$codetitles[0]})) {
923: $$idlist_titles{$$codetitles[0]} = join('","',@contents_titles);
924: }
925: } elsif ($num == 1) {
926: %{$$idlist{$$codetitles[1]}} = ();
927: %{$$idlist_titles{$$codetitles[1]}} = ();
928: foreach my $key_a (keys %{$idarrays{$$codetitles[1]}}) {
929: my @sorted_a = ();
930: my @sorted_a_titles = ();
931: &sort_cats($num,$cat_order,$codetitles,\@{$idarrays{$$codetitles[1]}{$key_a}},\@sorted_a);
932: if (defined($$cat_titles{$$codetitles[1]})) {
933: foreach (@sorted_a) {
934: push @sorted_a_titles, $$cat_titles{$$codetitles[1]}{$_};
935: }
936: }
937: $$idlist{$$codetitles[1]}{$key_a} = join('","',@sorted_a);
938: $$idnums{$$codetitles[1]}{$key_a} = scalar(@sorted_a);
939: if (defined($$cat_titles{$$codetitles[1]})) {
940: $$idlist_titles{$$codetitles[1]}{$key_a} = join('","',@sorted_a_titles);
941: }
942: }
943: } elsif ($num == 2) {
944: %{$$idlist{$$codetitles[2]}} = ();
945: %{$$idlist_titles{$$codetitles[2]}} = ();
946: foreach my $key_a (keys %{$idarrays{$$codetitles[2]}}) {
947: %{$$idlist{$$codetitles[2]}{$key_a}} = ();
948: %{$$idlist_titles{$$codetitles[2]}{$key_a}} = ();
949: foreach my $key_b (keys %{$idarrays{$$codetitles[2]}{$key_a}}) {
950: my @sorted_b = ();
951: my @sorted_b_titles = ();
952: &sort_cats($num,$cat_order,$codetitles,\@{$idarrays{$$codetitles[2]}{$key_a}{$key_b}},\@sorted_b);
953: if (defined($$cat_titles{$$codetitles[2]})) {
954: foreach (@sorted_b) {
955: push @sorted_b_titles, $$cat_titles{$$codetitles[2]}{$_};
956: }
957: }
958: $$idlist{$$codetitles[2]}{$key_a}{$key_b} = join('","',@sorted_b);
959: $$idnums{$$codetitles[2]}{$key_a}{$key_b} = scalar(@sorted_b);
960: if (defined($$cat_titles{$$codetitles[2]})) {
961: $$idlist_titles{$$codetitles[2]}{$key_a}{$key_b} = join('","',@sorted_b_titles);
962: }
963: }
964: }
965: } elsif ($num == 3) {
966: %{$$idlist{$$codetitles[3]}} = ();
967: foreach my $key_a (keys %{$idarrays{$$codetitles[3]}}) {
968: %{$$idlist{$$codetitles[3]}{$key_a}} = ();
969: foreach my $key_b (keys %{$idarrays{$$codetitles[3]}{$key_a}}) {
970: %{$$idlist{$$codetitles[3]}{$key_a}{$key_b}} = ();
971: foreach my $key_c (keys %{$idarrays{$$codetitles[3]}{$key_a}{$key_b}}) {
972: my @sorted_c = ();
973: my @sorted_c_titles = ();
974: &sort_cats($num,$cat_order,$codetitles,\@{$idarrays{$$codetitles[3]}{$key_a}{$key_b}{$key_c}},\@sorted_c);
975: if (defined($$cat_titles{$$codetitles[3]})) {
976: foreach (@sorted_c) {
977: push @sorted_c_titles, $$cat_titles{$$codetitles[3]}{$_};
978: }
979: }
980: $$idlist{$$codetitles[3]}{$key_a}{$key_b}{$key_c} = join('","',@sorted_c);
981: $$idnums{$$codetitles[3]}{$key_a}{$key_b}{$key_c} = scalar(@sorted_c);
982: if (defined($$cat_titles{$$codetitles[3]})) {
983: $$idlist_titles{$$codetitles[2]}{$key_a}{$key_b} = join('","',@sorted_c_titles);
984: }
985: }
986: }
987: }
988: } elsif ($num == 4) {
989: %{$$idlist{$$codetitles[4]}} = ();
990: foreach my $key_a (keys %{$idarrays{$$codetitles[4]}}) {
991: %{$$idlist{$$codetitles[4]}{$key_a}} = ();
992: foreach my $key_b (keys %{$idarrays{$$codetitles[4]}{$key_a}}) {
993: %{$$idlist{$$codetitles[4]}{$key_a}{$key_b}} = ();
994: foreach my $key_c (keys %{$idarrays{$$codetitles[4]}{$key_a}{$key_b}}) {
995: %{$$idlist{$$codetitles[4]}{$key_a}{$key_b}{$key_c}} = ();
996: foreach my $key_d (keys %{$idarrays{$$codetitles[4]}{$key_a}{$key_b}{$key_c}}) {
997: my @sorted_d = ();
998: my @sorted_d_titles = ();
999: &sort_cats($num,$cat_order,$codetitles,$idarrays{$$codetitles[4]}{$key_a}{$key_b}{$key_c}{$key_d},\@sorted_d);
1000: if (defined($$cat_titles{$$codetitles[4]})) {
1001: foreach (@sorted_d) {
1002: push @sorted_d_titles, $$cat_titles{$$codetitles[4]}{$_};
1003: }
1004: }
1005: $$idlist{$$codetitles[4]}{$key_a}{$key_b}{$key_c}{$key_d} = join('","',@sorted_d);
1006: $$idnums{$$codetitles[4]}{$key_a}{$key_b}{$key_c}{$key_d} = scalar(@sorted_d);
1007: }
1008: }
1009: }
1010: }
1011: }
1012: }
1013: }
1014:
1015: sub sort_cats {
1016: my ($num,$cat_order,$codetitles,$idsarrayref,$sorted) = @_;
1017: my @unsorted = @{$idsarrayref};
1018: if (defined($$cat_order{$$codetitles[$num]})) {
1019: foreach (@{$$cat_order{$$codetitles[$num]}}) {
1020: if (grep/^$_$/,@unsorted) {
1021: push @{$sorted}, $_;
1022: }
1023: }
1024: } else {
1025: @{$sorted} = sort (@unsorted);
1026: }
1027: }
1028:
1029:
1030: sub recurse_list {
1031: my ($cid,$codetitles,$codes,$num,$idarrays) = @_;
1032: if ($num == 0) {
1033: if (!grep/^$$codes{$cid}{$$codetitles[0]}$/,@{$$idarrays{$$codetitles[0]}}) {
1034: push @{$$idarrays{$$codetitles[0]}}, $$codes{$cid}{$$codetitles[0]};
1035: }
1036: } elsif ($num == 1) {
1037: if (defined($$idarrays{$$codetitles[1]}{$$codes{$cid}{$$codetitles[0]}})) {
1038: if (!grep/^$$codes{$cid}{$$codetitles[1]}$/,@{$$idarrays{$$codetitles[1]}{$$codes{$cid}{$$codetitles[0]}}}) {
1039: push @{$$idarrays{$$codetitles[1]}{$$codes{$cid}{$$codetitles[0]}}}, $$codes{$cid}{$$codetitles[1]};
1040: }
1041: } else {
1042: @{$$idarrays{$$codetitles[1]}{$$codes{$cid}{$$codetitles[0]}}} = ("$$codes{$cid}{$$codetitles[1]}");
1043: }
1044: } elsif ($num == 2) {
1045: if (defined($$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}})) {
1046: if (defined($$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}})) {
1047: if (!grep/^$$codes{$cid}{$$codetitles[2]}$/,@{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}}) {
1048: push @{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}}, $$codes{$cid}{$$codetitles[2]};
1049: }
1050: } else {
1051: @{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = ("$$codes{$cid}{$$codetitles[2]}");
1052: }
1053: } else {
1054: %{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}} = ();
1055: @{$$idarrays{$$codetitles[2]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = ("$$codes{$cid}{$$codetitles[2]}");
1056: }
1057: } elsif ($num == 3) {
1058: if (defined($$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}})) {
1059: if (defined($$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}})) {
1060: if (defined($$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}})) {
1061: if (!grep/^$$codes{$cid}{$$codetitles[3]}$/,@{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}}) {
1062: push @{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}}, $$codes{$cid}{$$codetitles[3]};
1063: }
1064: } else {
1065: @{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}} = ("$$codes{$cid}{$$codetitles[3]}");
1066: }
1067: } else {
1068: %{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = ();
1069: @{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}} = ("$$codes{$cid}{$$codetitles[3]}");
1070: }
1071: } else {
1072: %{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}} = ();
1073: %{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = ();
1074: @{$$idarrays{$$codetitles[3]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}} = ("$$codes{$cid}{$$codetitles[3]}");
1075: }
1076: } elsif ($num == 4) {
1077: if (defined($$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}})) {
1078: if (defined($$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}})) {
1079: if (defined($$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}})) {
1080: if (defined($$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}{$$codes{$cid}{$$codetitles[3]}})) {
1081: if (!grep/^$$codes{$cid}{$$codetitles[4]}$/,@{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}{$$codes{$cid}{$$codetitles[3]}}}) {
1082: push @{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}{$$codes{$cid}{$$codetitles[3]}}}, $$codes{$cid}{$$codetitles[4]};
1083: }
1084: } else {
1085: @{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}{$$codes{$cid}{$$codetitles[3]}}} = ("$$codes{$cid}{$$codetitles[4]}");
1086: }
1087: } else {
1088: %{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}} = ();
1089: @{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}{$$codes{$cid}{$$codetitles[3]}}} = ("$$codes{$cid}{$$codetitles[4]}");
1090: }
1091: } else {
1092: %{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = ();
1093: %{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}} = ();
1094: @{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}{$$codes{$cid}{$$codetitles[3]}}} = ("$$codes{$cid}{$$codetitles[4]}");
1095: }
1096: } else {
1097: %{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}} = ();
1098: %{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}} = ();
1099: %{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[2]}}} = ();
1100: @{$$idarrays{$$codetitles[4]}{$$codes{$cid}{$$codetitles[0]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[1]}}{$$codes{$cid}{$$codetitles[3]}}} = ("$$codes{$cid}{$$codetitles[3]}");
1101: }
1102: }
1103: $num ++;
1104: if ($num <@{$codetitles}) {
1105: &recurse_list($cid,$codetitles,$codes,$num,$idarrays);
1106: }
1107: }
1108:
1109: sub javascript_code_selections {
1110: my ($numcats,$cat_titles,$script_tag,$idlist,$idnums,$idlist_titles,$codetitles) = @_;
1111: my $numtitles = @{$codetitles};
1112: my @seltitles = ();
1113: for (my $j=0; $j<$numtitles; $j++) {
1114: $seltitles[$j] = 'id'.$$codetitles[$j];
1115: }
1116: my $seltitle_str = join('","',@seltitles);
1117: my @longtitles = ();
1118: for (my $i=0; $i<$numtitles; $i++) {
1119: if (defined($$cat_titles{$$codetitles[$i]})) {
1120: $longtitles[$i] = 1;
1121: } else {
1122: $longtitles[$i] = 0;
1123: }
1124: }
1125: my $longtitles_str = join('","',@longtitles);
1126: $$script_tag .= <<END;
1127: function courseSet(caller) {
1128: var ids = new Array ("$seltitle_str");
1129: var formitems = new Array ($numtitles);
1130: var longtitles = new Array ("$longtitles_str");
1131: var idyr = document.logproblem.Year.selectedIndex
1132: var idsem = document.logproblem.Semester.selectedIndex
1133: var iddept = document.logproblem.Department.selectedIndex
1134: var idclass = document.logproblem.Number.selectedIndex
1135: var idyears = new Array("$$idlist{$$codetitles[0]}");
1136: END
1137: if ($longtitles[0]) {
1138: $$script_tag .=
1139: qq| var idyearslongs = new Array("$$idlist_titles{$$codetitles[0]}")\n|;
1140: }
1141: $$script_tag .=
1142: " var idsems = new Array ($$idnums{$$codetitles[0]})\n";
1143: if ($longtitles[1]) {
1144: $$script_tag .=
1145: " var idsemslongs = new Array ($$idnums{$$codetitles[0]})\n";
1146: }
1147: $$script_tag .=
1148: " var idcodes = new Array ($$idnums{$$codetitles[0]})\n";
1149: if ($longtitles[2]) {
1150: $$script_tag .=
1151: " var idcodeslongs = new Array ($$idnums{$$codetitles[0]})\n";
1152: }
1153: $$script_tag .=
1154: " var idcourses = new Array ($$idnums{$$codetitles[0]})\n";
1155: if ($longtitles[3]) {
1156: $$script_tag .=
1157: " var idcourseslongs = new Array ($$idnums{$$codetitles[0]})\n";
1158: }
1159: my @sort_a = split/","/,$$idlist{$$codetitles[0]};
1160: for (my $j=0; $j<@sort_a; $j++) {
1161: $$script_tag .= qq| idsems[$j] = new Array("$$idlist{$$codetitles[1]}{$sort_a[$j]}")\n|;
1162: if ($longtitles[1]) {
1163: $$script_tag .= qq| idsemslongs[$j] = new Array("$$idlist_titles{$$codetitles[1]}{$sort_a[$j]}")\n|;
1164: }
1165: $$script_tag .= qq| idcodes[$j] = new Array($$idnums{$$codetitles[1]}{$sort_a[$j]})\n|;
1166: if ($longtitles[2]) {
1167: $$script_tag .= qq| idcodeslongs[$j] = new Array($$idnums{$$codetitles[1]}{$sort_a[$j]})\n|;
1168: }
1169: $$script_tag .= qq| idcourses[$j] = new Array($$idnums{$$codetitles[1]}{$sort_a[$j]})\n|;
1170: if ($longtitles[3]) {
1171: $$script_tag .= qq| idcourseslongs[$j] = new Array($$idnums{$$codetitles[1]}{$sort_a[$j]})\n|;
1172: }
1173: my @sort_b = split/","/,$$idlist{$$codetitles[1]}{$sort_a[$j]};
1174: for (my $k=0; $k<@sort_b; $k++) {
1175: my $idcode_entry = $$idlist{$$codetitles[2]}{$sort_a[$j]}{$sort_b[$k]};
1176: $$script_tag .= qq| idcodes[$j][$k] = new Array("$idcode_entry")\n|;
1177: if ($longtitles[2]) {
1178: my $idcodelong_entry = $$idlist_titles{$$codetitles[2]}{$sort_a[$j]}{$sort_b[$k]};
1179: $$script_tag .= qq| idcodeslongs[$j][$k] = new Array("$idcodelong_entry")\n|;
1180: }
1181: $$script_tag .= qq| idcourses[$j][$k] = new Array($$idnums{$$codetitles[2]}{$sort_a[$j]}{$sort_b[$k]})\n|;
1182: if ($longtitles[3]) {
1183: $$script_tag .= qq| idcourseslongs[$j][$k] = new Array($$idnums{$$codetitles[2]}{$sort_a[$j]}{$sort_b[$k]})\n|;
1184: }
1185: my @sort_c = split/","/,$$idlist{$$codetitles[2]}{$sort_a[$j]}{$sort_b[$k]};
1186: for (my $l=0; $l<@sort_c; $l++) {
1187: my $idcourse_entry = $$idlist{$$codetitles[3]}{$sort_a[$j]}{$sort_b[$k]}{$sort_c[$l]};
1188: $$script_tag .= qq| idcourses[$j][$k][$l] = new Array("$idcourse_entry")\n|;
1189: if ($longtitles[3]) {
1190: my $idcourselong_entry = $$idlist_titles{$$codetitles[3]}{$sort_a[$j]}{$sort_b[$k]}{$sort_c[$l]};
1191: $$script_tag .= qq| idcourseslongs[$j][$k][$l] = new Array("$idcourselong_entry")\n|;
1192: }
1193: }
1194: }
1195: }
1196: $$script_tag .= (<<END_OF_BLOCK);
1197: if (caller == "$$codetitles[0]") {
1198: document.logproblem.Department.length = 0
1199: document.logproblem.Number.length = 0
1200: document.logproblem.Department.options[0] = new Option("<-Pick $$codetitles[1]","-1",true,true)
1201: document.logproblem.Number.options[0] = new Option("<-Pick $$codetitles[2]","-1",true,true)
1202: if (idyr == 0) {
1203: document.logproblem.Semester.length = 0
1204: document.logproblem.Semester.options[0] = new Option("<-Pick $$codetitles[0]","-1",true,true)
1205: }
1206: else {
1207: document.logproblem.Semester.length = 0
1208: document.logproblem.Semester.options[0] = new Option("Select","-1",true,true)
1209: for (var i=0; i<idsems[idyr-1].length; i++) {
1210: if (longtitles[1] == 1) {
1211: document.logproblem.Semester.options[i+1] = new Option(idsemslongs[idyr-1][i],idsems[idyr-1][i],false,false)
1212: }
1213: else {
1214: document.logproblem.Semester.options[i+1] = new Option(idsems[idyr-1][i],idsems[idyr-1][i],false,false)
1215: }
1216: }
1217: }
1218: document.logproblem.Semester.selectedIndex = 0;
1219: }
1220: if (caller == "$$codetitles[1]") {
1221: document.logproblem.Department.length = 0
1222: document.logproblem.Number.length = 0
1223: document.logproblem.Number.options[0] = new Option("<-Pick $$codetitles[2]","-1",true,true)
1224: if (idsem == 0) {
1225: document.logproblem.Department.options[0] = new Option("<-Pick $$codetitles[1]","-1",true,true)
1226: }
1227: else {
1228: document.logproblem.Department.options[0] = new Option("Select","-1",true,true)
1229: for (var i=0; i<idcodes[idyr-1][idsem-1].length; i++) {
1230: if (longtitles[2] == 1) {
1231: document.logproblem.Department.options[i+1] = new Option(idcodeslongs[idyr-1][idsem-1][i],idcodes[idyr-1][idsem-1][i],false,false)
1232: }
1233: else {
1234: document.logproblem.Department.options[i+1] = new Option(idcodes[idyr-1][idsem-1][i],idcodes[idyr-1][idsem-1][i],false,false)
1235: }
1236: }
1237: }
1238: document.logproblem.Department.selectedIndex = 0
1239: }
1240: if (caller == "$$codetitles[2]") {
1241: document.logproblem.Number.length = 0
1242: if (iddept == 0) {
1243: document.logproblem.Number.options[0] = new Option("<-Pick $$codetitles[2]","-1",true,true)
1244: }
1245: else {
1246: document.logproblem.Number.options[0] = new Option("Select","-1",true,true)
1247: for (var i=0; i<idcourses[idyr-1][idsem-1][iddept-1].length; i++) {
1248: if (longtitles[3] == 1) {
1249: document.logproblem.Number.options[i+1] = new Option(idcourseslongs[idyr-1][idsem-1][iddept-1][i],idcourses[idyr-1][idsem-1][iddept-1][i],false,false)
1250: }
1251: else {
1252: document.logproblem.Number.options[i+1] = new Option(idcourses[idyr-1][idsem-1][iddept-1][i],idcourses[idyr-1][idsem-1][iddept-1][i],false,false)
1253: }
1254: }
1255: }
1256: document.logproblem.Number.selectedIndex = 0
1257: }
1258: }
1259: END_OF_BLOCK
1260: }
1261:
1262: 1;
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>