1: # The LearningOnline Network
2: # Preferences
3: #
4: # $Id: lonpreferences.pm,v 1.69 2005/12/09 23:48:06 albertel Exp $
5: #
6: # Copyright Michigan State University Board of Trustees
7: #
8: # This file is part of the LearningOnline Network with CAPA (LON-CAPA).
9: #
10: # LON-CAPA is free software; you can redistribute it and/or modify
11: # it under the terms of the GNU General Public License as published by
12: # the Free Software Foundation; either version 2 of the License, or
13: # (at your option) any later version.
14: #
15: # LON-CAPA is distributed in the hope that it will be useful,
16: # but WITHOUT ANY WARRANTY; without even the implied warranty of
17: # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18: # GNU General Public License for more details.
19: #
20: # You should have received a copy of the GNU General Public License
21: # along with LON-CAPA; if not, write to the Free Software
22: # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
23: #
24: # /home/httpd/html/adm/gpl.txt
25: #
26: # http://www.lon-capa.org/
27: #
28: # This package uses the "londes.js" javascript code.
29: #
30: # TODOs that have to be completed:
31: # interface with lonnet to change the password
32:
33: package Apache::lonpreferences;
34:
35: use strict;
36: use Apache::Constants qw(:common);
37: use Apache::File;
38: use Crypt::DES;
39: use DynaLoader; # for Crypt::DES version
40: use Apache::loncommon();
41: use Apache::lonhtmlcommon();
42: use Apache::lonlocal;
43: use Apache::lonnet;
44:
45: #
46: # Write lonnet::passwd to do the call below.
47: # Use:
48: # my $answer=reply("encrypt:passwd:$udom:$uname:$upass",$tryserver);
49: #
50: ##################################################
51: # password associated functions #
52: ##################################################
53: sub des_keys {
54: # Make a new key for DES encryption.
55: # Each key has two parts which are returned separately.
56: # Please note: Each key must be passed through the &hex function
57: # before it is output to the web browser. The hex versions cannot
58: # be used to decrypt.
59: my @hexstr=('0','1','2','3','4','5','6','7',
60: '8','9','a','b','c','d','e','f');
61: my $lkey='';
62: for (0..7) {
63: $lkey.=$hexstr[rand(15)];
64: }
65: my $ukey='';
66: for (0..7) {
67: $ukey.=$hexstr[rand(15)];
68: }
69: return ($lkey,$ukey);
70: }
71:
72: sub des_decrypt {
73: my ($key,$cyphertext) = @_;
74: my $keybin=pack("H16",$key);
75: my $cypher;
76: if ($Crypt::DES::VERSION>=2.03) {
77: $cypher=new Crypt::DES $keybin;
78: } else {
79: $cypher=new DES $keybin;
80: }
81: my $plaintext=
82: $cypher->decrypt(unpack("a8",pack("H16",substr($cyphertext,0,16))));
83: $plaintext.=
84: $cypher->decrypt(unpack("a8",pack("H16",substr($cyphertext,16,16))));
85: $plaintext=substr($plaintext,1,ord(substr($plaintext,0,1)) );
86: return $plaintext;
87: }
88:
89: ################################################################
90: # Handler subroutines #
91: ################################################################
92:
93: ################################################################
94: # Language Change Subroutines #
95: ################################################################
96:
97: sub wysiwygchanger {
98: my $r = shift;
99: my %userenv = &Apache::lonnet::get
100: ('environment',['wysiwygeditor']);
101: my $offselect='';
102: my $onselect='checked="1"';
103: if ($userenv{'wysiwygeditor'}) {
104: $onselect='';
105: $offselect='checked="1"';
106: }
107: my $switchoff=&mt('Disable WYSIWYG editor');
108: my $switchon=&mt('Enable WYSIWYG editor');
109: $r->print(<<ENDLSCREEN);
110: <form name="server" action="/adm/preferences" method="post">
111: <input type="hidden" name="action" value="set_wysiwyg" />
112: <br />
113: <label><input type="radio" name="wysiwyg" value="off" $onselect /> $switchoff</label><br />
114: <label><input type="radio" name="wysiwyg" value="on" $offselect /> $switchon</label>
115: ENDLSCREEN
116: $r->print('<br /><input type="submit" value="'.&mt('Change').'" />');
117: }
118:
119:
120: sub verify_and_change_wysiwyg {
121: my $r = shift;
122: my $newsetting=$env{'form.wysiwyg'};
123: &Apache::lonnet::put('environment',{'wysiwygeditor' => $newsetting});
124: &Apache::lonnet::appenv('environment.wysiwygeditor' => $newsetting);
125: $r->print('<p>'.&mt('Setting WYSIWYG editor to:').' '.&mt($newsetting).'</p>');
126: }
127:
128: ################################################################
129: # Language Change Subroutines #
130: ################################################################
131: sub languagechanger {
132: my $r = shift;
133: my $user = $env{'user.name'};
134: my $domain = $env{'user.domain'};
135: my %userenv = &Apache::lonnet::get
136: ('environment',['languages']);
137: my $language=$userenv{'languages'};
138:
139: my $pref=&mt('Preferred language');
140: my %langchoices=('' => 'No language preference');
141: foreach (&Apache::loncommon::languageids()) {
142: if (&Apache::loncommon::supportedlanguagecode($_)) {
143: $langchoices{&Apache::loncommon::supportedlanguagecode($_)}
144: = &Apache::loncommon::plainlanguagedescription($_);
145: }
146: }
147: my $selectionbox=&Apache::loncommon::select_form($language,'language',
148: %langchoices);
149: $r->print(<<ENDLSCREEN);
150: <form name="server" action="/adm/preferences" method="post">
151: <input type="hidden" name="action" value="verify_and_change_languages" />
152: <br />$pref: $selectionbox
153: ENDLSCREEN
154: $r->print('<br /><input type="submit" value="'.&mt('Change').'" />');
155: }
156:
157:
158: sub verify_and_change_languages {
159: my $r = shift;
160: my $user = $env{'user.name'};
161: my $domain = $env{'user.domain'};
162: # Screenname
163: my $newlanguage = $env{'form.language'};
164: $newlanguage=~s/[^\-\w]//g;
165: my $message='';
166: if ($newlanguage) {
167: &Apache::lonnet::put('environment',{'languages' => $newlanguage});
168: &Apache::lonnet::appenv('environment.languages' => $newlanguage);
169: $message='Set new preferred languages to '.$newlanguage;
170: } else {
171: &Apache::lonnet::del('environment',['languages']);
172: &Apache::lonnet::delenv('environment\.languages');
173: $message='Reset preferred language';
174: }
175: $r->print(<<ENDVCSCREEN);
176: $message
177: ENDVCSCREEN
178: }
179:
180: ################################################################
181: # Tex Engine Change Subroutines #
182: ################################################################
183: sub texenginechanger {
184: my $r = shift;
185: my $user = $env{'user.name'};
186: my $domain = $env{'user.domain'};
187: my %userenv = &Apache::lonnet::get('environment',['texengine']);
188: my $texengine=$userenv{'texengine'};
189:
190: my $pref=&mt('Preferred method to display Math');
191: my %mathchoices=('' => 'Default',
192: 'tth' => 'TeX to HTML',
193: #'ttm' => 'TeX to MathML',
194: 'jsMath' => 'jsMath',
195: 'mimetex' => 'Convert to Images'
196: );
197: my $selectionbox=&Apache::loncommon::select_form($texengine,'texengine',
198: %mathchoices);
199: my $jsMath_start=&Apache::lontexconvert::jsMath_header();
200: my $change=&mt('Change');
201: $r->print(<<ENDLSCREEN);
202: <br />
203:
204: <form name="server" action="/adm/preferences" method="post">
205: <input type="hidden" name="action" value="verify_and_change_texengine" />
206: <p>$pref: $selectionbox</p>
207: <p><input type="submit" value="$change" /></p>
208: </form>
209: Examples:
210: <p> TeX to HTML <br />
211: <iframe src="/res/adm/pages/math_example.tex?buttons=no&mode=tth" width="400" hieght="200"></iframe>
212: </p>
213: <p>jsMath <br />
214: $jsMath_start
215: <script type="text/javascript">
216: if (jsMath.nofonts == 1) {
217: document.writeln
218: ('<center><div style="padding: 10; border-style: solid; border-width:3;'
219: +' border-color: #DD0000; background-color: #FFF8F8; width: 75%; text-align: left">'
220: +'<small><font color="#AA0000"><b>Warning:</b> '
221: +'It looks like you don\\\'t have the TeX math fonts installed. '
222: +'The jsMath example on this page may not look right without them. '
223: +'The <a href="http://www.math.union.edu/locate/jsMath/" target="_blank"> '
224: +'jsMath Home Page</a> has information on how to download the '
225: +'needed fonts. In the meantime, jsMath will do the best it can '
226: +'with the fonts you have, but it may not be pretty and some equations '
227: +'may not be rendered correctly. '
228: +'</font></small></div></center>');
229: }
230: </script>
231: <iframe src="/res/adm/pages/math_example.tex?buttons=no&mode=jsMath" width="400" hieght="200"></iframe>
232:
233: </p>
234: <p> Convert to Images <br />
235: <br />
236: <iframe src="/res/adm/pages/math_example.tex?buttons=no&mode=mimetex" width="400" hieght="200"></iframe>
237: </p>
238: ENDLSCREEN
239: if ($env{'environment.texengine'} ne 'jsMath') {
240: $r->print('<script type="text/javascript">jsMath.Process()</script>');
241: }
242: }
243:
244:
245: sub verify_and_change_texengine {
246: my $r = shift;
247: my $user = $env{'user.name'};
248: my $domain = $env{'user.domain'};
249: # Screenname
250: my $newtexengine = $env{'form.texengine'};
251: $newtexengine=~s/[^\-\w]//g;
252: if ($newtexengine eq 'ttm') {
253: &Apache::lonnet::appenv('browser.mathml' => 1);
254: } else {
255: if ($env{'environment.texengine'} eq 'ttm') {
256: &Apache::lonnet::appenv('browser.mathml' => 0);
257: }
258: }
259: my $message='';
260: if ($newtexengine) {
261: &Apache::lonnet::put('environment',{'texengine' => $newtexengine});
262: &Apache::lonnet::appenv('environment.texengine' => $newtexengine);
263: $message='Set new preferred math display to '.$newtexengine;
264: } else {
265: &Apache::lonnet::del('environment',['texengine']);
266: &Apache::lonnet::delenv('environment\.texengine');
267: $message='Reset preferred math display.';
268: }
269:
270:
271: $r->print(<<ENDVCSCREEN);
272: $message
273: ENDVCSCREEN
274: }
275:
276: ################################################################
277: # Roles Page Preference Change Subroutines #
278: ################################################################
279: sub rolesprefchanger {
280: my $r = shift;
281: my $user = $env{'user.name'};
282: my $domain = $env{'user.domain'};
283: my %userenv = &Apache::lonnet::get
284: ('environment',['recentroles','recentrolesn']);
285: my $hotlist_flag=$userenv{'recentroles'};
286: my $hotlist_n=$userenv{'recentrolesn'};
287: my $checked;
288: if ($hotlist_flag) {
289: $checked = 'checked="checked"';
290: }
291:
292: if (!$hotlist_n) { $hotlist_n=3; }
293: my $options;
294: for (my $i=1; $i<10; $i++) {
295: my $select;
296: if ($hotlist_n == $i) { $select = 'selected="selected"'; }
297: $options .= "<option $select>$i</option>\n";
298: }
299:
300: $r->print(<<ENDSCREEN);
301: <p>Some LON-CAPA users have a long list of roles. The Recent Roles Hotlist
302: feature keeps track of the last N roles which have been
303: visited and places a table of these at the top of the roles page.
304: People with very few roles should leave this feature disabled.
305: </p>
306:
307: <form name="server" action="/adm/preferences" method="post">
308: <input type="hidden" name="action" value="verify_and_change_rolespref" />
309: <br />Enable Recent Roles Hotlist:
310: <input type="checkbox" $checked name="recentroles" value="true" />
311: <br />Number of roles in Hotlist:
312: <select name="recentrolesn" size="1">
313: $options
314: </select>
315: <br />
316: <input type="submit" value="Change" />
317: </form>
318: ENDSCREEN
319: }
320:
321: sub verify_and_change_rolespref {
322: my $r = shift;
323: my $user = $env{'user.name'};
324: my $domain = $env{'user.domain'};
325: # Recent Roles Hotlist Flag
326: my $hotlist_flag = $env{'form.recentroles'};
327: my $hotlist_n = $env{'form.recentrolesn'};
328: my $message='';
329: if ($hotlist_flag) {
330: &Apache::lonnet::put('environment',{'recentroles' => $hotlist_flag});
331: &Apache::lonnet::appenv('environment.recentroles' => $hotlist_flag);
332: $message='Recent Roles Hotlist is Enabled';
333: } else {
334: &Apache::lonnet::del('environment',['recentroles']);
335: &Apache::lonnet::delenv('environment\.recentroles');
336: $message='Recent Roles Hotlist is Disabled';
337: }
338: if ($hotlist_n) {
339: &Apache::lonnet::put('environment',{'recentrolesn' => $hotlist_n});
340: &Apache::lonnet::appenv('environment.recentrolesn' => $hotlist_n);
341: if ($hotlist_flag) {
342: $message.="<br />Display $hotlist_n Most Recent Roles\n";
343: }
344: }
345:
346: $r->print(<<ENDRPSCREEN);
347: $message
348: ENDRPSCREEN
349: }
350:
351:
352:
353: ################################################################
354: # Anonymous Discussion Name Change Subroutines #
355: ################################################################
356: sub screennamechanger {
357: my $r = shift;
358: my $user = $env{'user.name'};
359: my $domain = $env{'user.domain'};
360: my %userenv = &Apache::lonnet::get
361: ('environment',['screenname','nickname']);
362: my $screenname=$userenv{'screenname'};
363: my $nickname=$userenv{'nickname'};
364: $r->print(<<ENDSCREEN);
365: <form name="server" action="/adm/preferences" method="post">
366: <input type="hidden" name="action" value="verify_and_change_screenname" />
367: <br />New screenname (shown if you post anonymously):
368: <input type="text" size="20" value="$screenname" name="screenname" />
369: <br />New nickname (shown if you post non-anonymously):
370: <input type="text" size="20" value="$nickname" name="nickname" />
371: <input type="submit" value="Change" />
372: </form>
373: ENDSCREEN
374: }
375:
376: sub verify_and_change_screenname {
377: my $r = shift;
378: my $user = $env{'user.name'};
379: my $domain = $env{'user.domain'};
380: # Screenname
381: my $newscreen = $env{'form.screenname'};
382: $newscreen=~s/[^ \w]//g;
383: my $message='';
384: if ($newscreen) {
385: &Apache::lonnet::put('environment',{'screenname' => $newscreen});
386: &Apache::lonnet::appenv('environment.screenname' => $newscreen);
387: $message='Set new screenname to '.$newscreen;
388: } else {
389: &Apache::lonnet::del('environment',['screenname']);
390: &Apache::lonnet::delenv('environment\.screenname');
391: $message='Reset screenname';
392: }
393: # Nickname
394: $message.='<br />';
395: $newscreen = $env{'form.nickname'};
396: $newscreen=~s/[^ \w]//g;
397: if ($newscreen) {
398: &Apache::lonnet::put('environment',{'nickname' => $newscreen});
399: &Apache::lonnet::appenv('environment.nickname' => $newscreen);
400: $message.='Set new nickname to '.$newscreen;
401: } else {
402: &Apache::lonnet::del('environment',['nickname']);
403: &Apache::lonnet::delenv('environment\.nickname');
404: $message.='Reset nickname';
405: }
406: &Apache::lonnet::devalidate_cache_new('namescache',$user.':'.$domain);
407: $r->print(<<ENDVCSCREEN);
408: $message
409: ENDVCSCREEN
410: }
411:
412: ################################################################
413: # Message Forward #
414: ################################################################
415:
416: sub msgforwardchanger {
417: my $r = shift;
418: my $user = $env{'user.name'};
419: my $domain = $env{'user.domain'};
420: my %userenv = &Apache::lonnet::get('environment',['msgforward','notification','critnotification']);
421: my $msgforward=$userenv{'msgforward'};
422: my $notification=$userenv{'notification'};
423: my $critnotification=$userenv{'critnotification'};
424: my $forwardingHelp = Apache::loncommon::help_open_topic("Prefs_Forwarding",
425: "What are forwarding ".
426: "and notification ".
427: "addresses");
428: my $criticalMessageHelp = Apache::loncommon::help_open_topic("Course_Critical_Message",
429: "What are critical messages");
430:
431: $r->print(<<ENDMSG);
432: $forwardingHelp <br />
433: <form name="server" action="/adm/preferences" method="post">
434: <input type="hidden" name="action" value="verify_and_change_msgforward" />
435: New Forwarding Address(es) (<tt>user:domain,user:domain,...</tt>):
436: <input type="text" size="40" value="$msgforward" name="msgforward" /><hr />
437: New Message Notification Email Address(es) (<tt>joe\@doe.com,jane\@doe.edu,...</tt>):
438: <input type="text" size="40" value="$notification" name="notification" /><hr />
439: New Critical Message Notification Email Address(es) (<tt>joe\@doe.com,jane\@doe.edu,...</tt>):
440: <input type="text" size="40" value="$critnotification" name="critnotification" />$criticalMessageHelp<hr />
441: <input type="submit" value="Change" />
442: </form>
443: ENDMSG
444: }
445:
446: sub verify_and_change_msgforward {
447: my $r = shift;
448: my $user = $env{'user.name'};
449: my $domain = $env{'user.domain'};
450: my $newscreen = '';
451: my $message='';
452: foreach (split(/\,/,$env{'form.msgforward'})) {
453: my ($msuser,$msdomain)=split(/[\@\:]/,$_);
454: $msuser=~s/\W//g;
455: $msdomain=~s/\W//g;
456: if (($msuser) && ($msdomain)) {
457: if (&Apache::lonnet::homeserver($msuser,$msdomain) ne 'no_host') {
458: $newscreen.=$msuser.':'.$msdomain.',';
459: } else {
460: $message.='No such user: '.$msuser.':'.$msdomain.'<br>';
461: }
462: }
463: }
464: $newscreen=~s/\,$//;
465: if ($newscreen) {
466: &Apache::lonnet::put('environment',{'msgforward' => $newscreen});
467: &Apache::lonnet::appenv('environment.msgforward' => $newscreen);
468: $message.='Set new message forwarding to '.$newscreen.'<br />';
469: } else {
470: &Apache::lonnet::del('environment',['msgforward']);
471: &Apache::lonnet::delenv('environment\.msgforward');
472: $message.='Reset message forwarding<br />';
473: }
474: my $notification=$env{'form.notification'};
475: $notification=~s/\s//gs;
476: if ($notification) {
477: &Apache::lonnet::put('environment',{'notification' => $notification});
478: &Apache::lonnet::appenv('environment.notification' => $notification);
479: $message.='Set message notification address to '.$notification.'<br />';
480: } else {
481: &Apache::lonnet::del('environment',['notification']);
482: &Apache::lonnet::delenv('environment\.notification');
483: $message.='Reset message notification<br />';
484: }
485: my $critnotification=$env{'form.critnotification'};
486: $critnotification=~s/\s//gs;
487: if ($critnotification) {
488: &Apache::lonnet::put('environment',{'critnotification' => $critnotification});
489: &Apache::lonnet::appenv('environment.critnotification' => $critnotification);
490: $message.='Set critical message notification address to '.$critnotification;
491: } else {
492: &Apache::lonnet::del('environment',['critnotification']);
493: &Apache::lonnet::delenv('environment\.critnotification');
494: $message.='Reset critical message notification<br />';
495: }
496: $r->print(<<ENDVCMSG);
497: $message
498: ENDVCMSG
499: }
500:
501: ################################################################
502: # Colors #
503: ################################################################
504:
505: sub colorschanger {
506: my $r = shift;
507: # figure out colors
508: my $function='student';
509: if ($env{'request.role'}=~/^(cc|in|ta|ep)/) {
510: $function='coordinator';
511: }
512: if ($env{'request.role'}=~/^(su|dc|ad|li)/) {
513: $function='admin';
514: }
515: if (($env{'request.role'}=~/^(au|ca)/) ||
516: ($ENV{'REQUEST_URI'}=~/^(\/priv|\~)/)) {
517: $function='author';
518: }
519: my $domain=&Apache::loncommon::determinedomain();
520: my %colortypes=('pgbg' => 'Page Background',
521: 'tabbg' => 'Header Background',
522: 'sidebg'=> 'Header Border',
523: 'font' => 'Font',
524: 'link' => 'Un-Visited Link',
525: 'vlink' => 'Visited Link',
526: 'alink' => 'Active Link');
527: my $chtable='';
528: foreach my $item (sort(keys(%colortypes))) {
529: my $curcol=&Apache::loncommon::designparm($function.'.'.$item,$domain);
530: $chtable.='<tr><td>'.$colortypes{$item}.'</td><td bgcolor="'.$curcol.
531: '"> </td><td><input name="'.$item.
532: '" size="10" value="'.$curcol.
533: '" /></td><td><a href="javascript:pjump('."'color_custom','".$colortypes{$item}.
534: "','".$curcol."','"
535: .$item."','parmform.pres','psub'".');">Select</a></td></tr>';
536: }
537: my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
538: $r->print(<<ENDCOL);
539: <script>
540:
541: function pclose() {
542: parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",
543: "height=350,width=350,scrollbars=no,menubar=no");
544: parmwin.close();
545: }
546:
547: $pjump_def
548:
549: function psub() {
550: pclose();
551: if (document.parmform.pres_marker.value!='') {
552: if (document.parmform.pres_type.value!='') {
553: eval('document.server.'+
554: document.parmform.pres_marker.value+
555: '.value=document.parmform.pres_value.value;');
556: }
557: } else {
558: document.parmform.pres_value.value='';
559: document.parmform.pres_marker.value='';
560: }
561: }
562:
563:
564: </script>
565: <form name="parmform">
566: <input type="hidden" name="pres_marker" />
567: <input type="hidden" name="pres_type" />
568: <input type="hidden" name="pres_value" />
569: </form>
570: <form name="server" action="/adm/preferences" method="post">
571: <input type="hidden" name="action" value="verify_and_change_colors" />
572: <table border="2">
573: $chtable
574: </table>
575: <input type="submit" value="Change Custom Colors" />
576: <input type="submit" name="resetall" value="Reset All Colors to Default" />
577: </form>
578: ENDCOL
579: }
580:
581: sub verify_and_change_colors {
582: my $r = shift;
583: # figure out colors
584: my $function='student';
585: if ($env{'request.role'}=~/^(cc|in|ta|ep)/) {
586: $function='coordinator';
587: }
588: if ($env{'request.role'}=~/^(su|dc|ad|li)/) {
589: $function='admin';
590: }
591: if (($env{'request.role'}=~/^(au|ca)/) ||
592: ($ENV{'REQUEST_URI'}=~/^(\/priv|\~)/)) {
593: $function='author';
594: }
595: my $domain=&Apache::loncommon::determinedomain();
596: my %colortypes=('pgbg' => 'Page Background',
597: 'tabbg' => 'Header Background',
598: 'sidebg'=> 'Header Border',
599: 'font' => 'Font',
600: 'link' => 'Un-Visited Link',
601: 'vlink' => 'Visited Link',
602: 'alink' => 'Active Link');
603:
604: my $message='';
605: foreach my $item (keys %colortypes) {
606: my $color=$env{'form.'.$item};
607: my $entry='color.'.$function.'.'.$item;
608: if (($color=~/^\#[0-9A-Fa-f]{6}$/) && (!$env{'form.resetall'})) {
609: &Apache::lonnet::put('environment',{$entry => $color});
610: &Apache::lonnet::appenv('environment.'.$entry => $color);
611: $message.='Set '.$colortypes{$item}.' to '.$color.'<br />';
612: } else {
613: &Apache::lonnet::del('environment',[$entry]);
614: &Apache::lonnet::delenv('environment\.'.$entry);
615: $message.='Reset '.$colortypes{$item}.'<br />';
616: }
617: }
618: $r->print(<<ENDVCCOL);
619: $message
620: <form name="client" action="/adm/preferences" method="post">
621: <input type="hidden" name="action" value="changecolors" />
622: </form>
623: ENDVCCOL
624: }
625:
626: ######################################################
627: # password handler subroutines #
628: ######################################################
629: sub passwordchanger {
630: # This function is a bit of a mess....
631: # Passwords are encrypted using londes.js (DES encryption)
632: my $r = shift;
633: my $errormessage = shift;
634: $errormessage = ($errormessage || '');
635: my $user = $env{'user.name'};
636: my $domain = $env{'user.domain'};
637: my $homeserver = $env{'user.home'};
638: my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain);
639: # Check for authentication types that allow changing of the password.
640: return if ($currentauth !~ /^(unix|internal):/);
641: #
642: # Generate keys
643: my ($lkey_cpass ,$ukey_cpass ) = &des_keys();
644: my ($lkey_npass1,$ukey_npass1) = &des_keys();
645: my ($lkey_npass2,$ukey_npass2) = &des_keys();
646: # Store the keys in the log files
647: my $lonhost = $r->dir_config('lonHostID');
648: my $logtoken=Apache::lonnet::reply('tmpput:'
649: .$ukey_cpass . $lkey_cpass .'&'
650: .$ukey_npass1 . $lkey_npass1.'&'
651: .$ukey_npass2 . $lkey_npass2,
652: $lonhost);
653: # Hexify the keys for output as javascript variables
654: $ukey_cpass = hex($ukey_cpass);
655: $lkey_cpass = hex($lkey_cpass);
656: $ukey_npass1= hex($ukey_npass1);
657: $lkey_npass1= hex($lkey_npass1);
658: $ukey_npass2= hex($ukey_npass2);
659: $lkey_npass2= hex($lkey_npass2);
660: # Output javascript to deal with passwords
661: # Output DES javascript
662: my $html=&Apache::lonxml::xmlbegin();
663: $r->print($html."<head>");
664: {
665: my $include = $r->dir_config('lonIncludes');
666: my $jsh=Apache::File->new($include."/londes.js");
667: $r->print(<$jsh>);
668: }
669: $r->print(<<ENDFORM);
670: <script language="JavaScript">
671:
672: function send() {
673: uextkey=this.document.client.elements.ukey_cpass.value;
674: lextkey=this.document.client.elements.lkey_cpass.value;
675: initkeys();
676:
677: this.document.pserver.elements.currentpass.value
678: =crypted(this.document.client.elements.currentpass.value);
679:
680: uextkey=this.document.client.elements.ukey_npass1.value;
681: lextkey=this.document.client.elements.lkey_npass1.value;
682: initkeys();
683: this.document.pserver.elements.newpass_1.value
684: =crypted(this.document.client.elements.newpass_1.value);
685:
686: uextkey=this.document.client.elements.ukey_npass2.value;
687: lextkey=this.document.client.elements.lkey_npass2.value;
688: initkeys();
689: this.document.pserver.elements.newpass_2.value
690: =crypted(this.document.client.elements.newpass_2.value);
691:
692: this.document.pserver.submit();
693: }
694:
695: </script>
696: $errormessage
697:
698: <p>
699: <!-- We separate the forms into 'server' and 'client' in order to
700: ensure that unencrypted passwords will not be sent out by a
701: crappy browser -->
702:
703: <form name="pserver" action="/adm/preferences" method="post">
704: <input type="hidden" name="logtoken" value="$logtoken" />
705: <input type="hidden" name="action" value="verify_and_change_pass" />
706: <input type="hidden" name="currentpass" value="" />
707: <input type="hidden" name="newpass_1" value="" />
708: <input type="hidden" name="newpass_2" value="" />
709: </form>
710:
711: <form name="client" >
712: <table>
713: <tr><td align="right"> Current password: </td>
714: <td><input type="password" name="currentpass" size="10"/> </td></tr>
715: <tr><td align="right"> New password: </td>
716: <td><input type="password" name="newpass_1" size="10" /> </td></tr>
717: <tr><td align="right"> Confirm password: </td>
718: <td><input type="password" name="newpass_2" size="10" /> </td></tr>
719: <tr><td colspan="2" align="center">
720: <input type="button" value="Change Password" onClick="send();">
721: </table>
722: <input type="hidden" name="ukey_cpass" value="$ukey_cpass" />
723: <input type="hidden" name="lkey_cpass" value="$lkey_cpass" />
724: <input type="hidden" name="ukey_npass1" value="$ukey_npass1" />
725: <input type="hidden" name="lkey_npass1" value="$lkey_npass1" />
726: <input type="hidden" name="ukey_npass2" value="$ukey_npass2" />
727: <input type="hidden" name="lkey_npass2" value="$lkey_npass2" />
728: </form>
729: </p>
730: ENDFORM
731: #
732: return;
733: }
734:
735: sub verify_and_change_password {
736: my $r = shift;
737: my $user = $env{'user.name'};
738: my $domain = $env{'user.domain'};
739: my $homeserver = $env{'user.home'};
740: my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain);
741: # Check for authentication types that allow changing of the password.
742: return if ($currentauth !~ /^(unix|internal):/);
743: #
744: my $html=&Apache::lonxml::xmlbegin();
745: $r->print(<<ENDHEADER);
746: $html
747: <head>
748: <title>LON-CAPA Preferences: Change password for $user</title>
749: </head>
750: ENDHEADER
751: #
752: my $currentpass = $env{'form.currentpass'};
753: my $newpass1 = $env{'form.newpass_1'};
754: my $newpass2 = $env{'form.newpass_2'};
755: my $logtoken = $env{'form.logtoken'};
756: # Check for empty data
757: unless (defined($currentpass) &&
758: defined($newpass1) &&
759: defined($newpass2) ){
760: &passwordchanger($r,"<p>\n<font color='#ff0000'>ERROR</font>".
761: "Password data was blank.\n</p>");
762: return;
763: }
764: # Get the keys
765: my $lonhost = $r->dir_config('lonHostID');
766: my $tmpinfo = Apache::lonnet::reply('tmpget:'.$logtoken,$lonhost);
767: if (($tmpinfo=~/^error/) || ($tmpinfo eq 'con_lost')) {
768: # I do not a have a better idea about how to handle this
769: $r->print(<<ENDERROR);
770: <p>
771: <font color="#ff0000">ERROR:</font> Unable to retrieve stored token for
772: password decryption. Please log out and try again.
773: </p>
774: ENDERROR
775: # Probably should log an error here
776: return;
777: }
778: my ($ckey,$n1key,$n2key)=split(/&/,$tmpinfo);
779: #
780: $currentpass = &des_decrypt($ckey ,$currentpass);
781: $newpass1 = &des_decrypt($n1key,$newpass1);
782: $newpass2 = &des_decrypt($n2key,$newpass2);
783: #
784: if ($newpass1 ne $newpass2) {
785: &passwordchanger($r,
786: '<font color="#ff0000">ERROR:</font>'.
787: 'The new passwords you entered do not match. '.
788: 'Please try again.');
789: return;
790: }
791: if (length($newpass1) < 7) {
792: &passwordchanger($r,
793: '<font color="#ff0000">ERROR:</font>'.
794: 'Passwords must be a minimum of 7 characters long. '.
795: 'Please try again.');
796: return;
797: }
798: #
799: # Check for bad characters
800: my $badpassword = 0;
801: foreach (split(//,$newpass1)) {
802: $badpassword = 1 if ((ord($_)<32)||(ord($_)>126));
803: }
804: if ($badpassword) {
805: # I can't figure out how to enter bad characters on my browser.
806: &passwordchanger($r,<<ENDERROR);
807: <font color="#ff0000">ERROR:</font>
808: The password you entered contained illegal characters.<br />
809: Valid characters are: space and <br />
810: <pre>
811: !"\#$%&\'()*+,-./0123456789:;<=>?\@
812: ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_\`abcdefghijklmnopqrstuvwxyz{|}~
813: </pre>
814: ENDERROR
815: }
816: #
817: # Change the password (finally)
818: my $result = &Apache::lonnet::changepass
819: ($user,$domain,$currentpass,$newpass1,$homeserver);
820: # Inform the user the password has (not?) been changed
821: if ($result =~ /^ok$/) {
822: $r->print(<<"ENDTEXT");
823: <h2>The password for $user was successfully changed</h2>
824: ENDTEXT
825: } else {
826: # error error: run in circles, scream and shout
827: $r->print(<<ENDERROR);
828: <h2><font color="#ff0000">The password for $user was not changed</font></h2>
829: Please make sure your old password was entered correctly.
830: ENDERROR
831: }
832: return;
833: }
834:
835: ################################################################
836: # discussion display subroutines
837: ################################################################
838: sub discussionchanger {
839: my $r = shift;
840: my $user = $env{'user.name'};
841: my $domain = $env{'user.domain'};
842: my %userenv = &Apache::lonnet::get
843: ('environment',['discdisplay','discmarkread']);
844: my $discdisp = 'allposts';
845: my $discmark = 'onmark';
846:
847: if (defined($userenv{'discdisplay'})) {
848: unless ($userenv{'discdisplay'} eq '') {
849: $discdisp = $userenv{'discdisplay'};
850: }
851: }
852: if (defined($userenv{'discmarkread'})) {
853: unless ($userenv{'discdisplay'} eq '') {
854: $discmark = $userenv{'discmarkread'};
855: }
856: }
857:
858: my $newdisp = 'unread';
859: my $newmark = 'ondisp';
860:
861: my $function = &Apache::loncommon::get_users_function();
862: my $color = &Apache::loncommon::designparm($function.'.tabbg',
863: $env{'user.domain'});
864: my %lt = &Apache::lonlocal::texthash(
865: 'pref' => 'Display Preference',
866: 'curr' => 'Current setting ',
867: 'actn' => 'Action',
868: 'sdpf' => 'Set display preferences for discussion posts for both bulletin boards and individual resources in all your courses.',
869: 'prca' => 'Preferences can be set that determine',
870: 'whpo' => 'Which posts are displayed when you display a bulletin board or resource, and',
871: 'unwh' => 'Under what circumstances posts are identfied as "New"',
872: 'allposts' => 'All posts',
873: 'unread' => 'New posts only',
874: 'ondisp' => 'Once displayed',
875: 'onmark' => 'Once marked as read',
876: 'disa' => 'Posts displayed?',
877: 'npmr' => 'New posts cease to be identified as "New"?',
878: 'thde' => 'The preferences you set here can be overridden within each individual discussion.',
879: 'chgt' => 'Change to '
880: );
881: my $dispchange = $lt{'unread'};
882: my $markchange = $lt{'ondisp'};
883: my $currdisp = $lt{'allposts'};
884: my $currmark = $lt{'onmark'};
885:
886: if ($discdisp eq 'unread') {
887: $dispchange = $lt{'allposts'};
888: $currdisp = $lt{'unread'};
889: $newdisp = 'allposts';
890: }
891:
892: if ($discmark eq 'ondisp') {
893: $markchange = $lt{'onmark'};
894: $currmark = $lt{'ondisp'};
895: $newmark = 'onmark';
896: }
897:
898: $r->print(<<"END");
899: <form name="server" action="/adm/preferences" method="post">
900: <input type="hidden" name="action" value="verify_and_change_discussion" />
901: <br />
902: $lt{'sdpf'}<br/> $lt{'prca'} <ol><li>$lt{'whpo'}</li><li>$lt{'unwh'}</li></ol>
903: <br />
904: <br />
905: <table border="0" cellpadding="0" cellspacing="0">
906: <tr>
907: <td width="100%" bgcolor="#000000">
908: <table width="100%" border="0" cellpadding="1" cellspacing="0">
909: <tr>
910: <td width="100%" bgcolor="#000000">
911: <table border="0" cellpadding="3" cellspacing="3" bgcolor="#FFFFFF">
912: <tr bgcolor="$color">
913: <td><b>$lt{'pref'}</b></td>
914: <td><b>$lt{'curr'}</b></td>
915: <td><b>$lt{'actn'}?</b></td>
916: </tr>
917: <tr bgcolor="#dddddd">
918: <td>$lt{'disa'}</td>
919: <td>$lt{$discdisp}</td>
920: <td><input type="checkbox" name="discdisp" /><input type="hidden" name="newdisp" value="$newdisp" /> $lt{'chgt'} "$dispchange"</td>
921: </tr><tr bgcolor="#eeeeee">
922: <td>$lt{'npmr'}</td>
923: <td>$lt{$discmark}</td>
924: <td><input type="checkbox" name="discmark" /><input type="hidden" name="newmark" value="$newmark" /> $lt{'chgt'} "$markchange"</td>
925: </tr>
926: </table>
927: </td>
928: </tr>
929: </table>
930: </td>
931: </tr>
932: </table>
933: <br />
934: <br />
935: <input type="submit" name="sub" value="Store Changes" />
936: <br />
937: <br />
938: Note: $lt{'thde'}
939: </form>
940: END
941: }
942:
943: sub verify_and_change_discussion {
944: my $r = shift;
945: my $user = $env{'user.name'};
946: my $domain = $env{'user.domain'};
947: my $message='';
948: if (defined($env{'form.discdisp'}) ) {
949: my $newdisp = $env{'form.newdisp'};
950: if ($newdisp eq 'unread') {
951: $message .='In discussions: only new posts will be displayed.<br/>';
952: &Apache::lonnet::put('environment',{'discdisplay' => $newdisp});
953: &Apache::lonnet::appenv('environment.discdisplay' => $newdisp);
954: } else {
955: $message .= 'In discussions: all posts will be displayed.<br/>';
956: &Apache::lonnet::del('environment',['discdisplay']);
957: &Apache::lonnet::delenv('environment\.discdisplay');
958: }
959: }
960: if (defined($env{'form.discmark'}) ) {
961: my $newmark = $env{'form.newmark'};
962: if ($newmark eq 'ondisp') {
963: $message.='In discussions: new posts will be cease to be identified as "new" after display.<br/>';
964: &Apache::lonnet::put('environment',{'discmarkread' => $newmark});
965: &Apache::lonnet::appenv('environment.discmarkread' => $newmark);
966: } else {
967: $message.='In discussions: posts will be identified as "new" until marked as read by the reader.<br/>';
968: &Apache::lonnet::del('environment',['discmarkread']);
969: &Apache::lonnet::delenv('environment\.discmarkread');
970: }
971: }
972: $r->print(<<ENDVCSCREEN);
973: $message
974: ENDVCSCREEN
975: }
976:
977: ################################################################
978: # Subroutines for page display on course access (Course Coordinators)
979: ################################################################
980: sub coursedisplaychanger {
981: my $r = shift;
982: my $user = $env{'user.name'};
983: my $domain = $env{'user.domain'};
984: my %userenv = &Apache::lonnet::get('environment',['course_init_display']);
985:
986: my $firstselect='checked="checked"';
987: my $whatsnewselect='';
988: if ($userenv{'course_init_display'} ne 'firstres') {
989: $firstselect='';
990: $whatsnewselect='checked="checked"';
991: }
992: my $whatsnew_off=&mt('Display the first resource in the course.');
993: my $whatsnew_on=&mt('Display a summary of items in the course which require action from the course coordinator.');
994:
995: $r->print('<br /><b>'.&mt('Set the page to be displayed when you select the role of Course Coordinator').':</b>');
996: $r->print(<<ENDLSCREEN);
997: <form name="server" action="/adm/preferences" method="post">
998: <input type="hidden" name="action" value="verify_and_change_coursepage" />
999: <label><input type="radio" name="newdisp" value="firstres" $firstselect /> $whatsnew_off</label><br />
1000: <label><input type="radio" name="newdisp" value="whatsnew" $whatsnewselect /> $whatsnew_on</label>
1001: ENDLSCREEN
1002: $r->print('<br /><input type="submit" value="'.&mt('Change').'" />
1003: </form>');
1004: }
1005:
1006: sub verify_and_change_coursepage {
1007: my $r = shift;
1008: my $message='';
1009: my %lt = &Apache::lonlocal::texthash(
1010: 'when' => 'Whenever you select the Course Coordinator role from the roles screen',
1011: 'ywbt' => 'you will be taken to the start of the course.',
1012: 'apwb' => 'a page will be displayed that lists items in the course that may require action from you.',
1013: 'gtts' => 'Go to the start of the course',
1014: 'dasp' => 'Display a summary page listing course action items',
1015: );
1016: my $newdisp = $env{'form.newdisp'};
1017: if ($newdisp eq 'firstres') {
1018: $message .= $lt{'when'}.', '.$lt{'ywbt'}.'<br/>';
1019: &Apache::lonnet::put('environment',{'course_init_display' => $newdisp});
1020: &Apache::lonnet::appenv('environment.course_init_display' => $newdisp);
1021: } else {
1022: $message .= $lt{'when'}.', '.$lt{'apwb'}.'<br/>';
1023: &Apache::lonnet::del('environment',['course_init_display']);
1024: &Apache::lonnet::delenv('environment\.course_init_display');
1025: }
1026: if (($env{'request.course.fn'}) && ($env{'request.course.id'})) {
1027: if ($newdisp eq 'firstres') {
1028: my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
1029: my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
1030: my ($furl,$ferr)=
1031: &Apache::lonuserstate::readmap($cdom.'/'.$cnum);
1032: $message .= '<br /><font size="+1"><a href="'.$furl.'">'.$lt{'gtts'}.' <i>'.&mt('now').'</i></a></font>';
1033: } else {
1034: $message .= '<br /><font size="+1"><a href="/adm/whatsnew">'.$lt{'dasp'}.'</a></font>';
1035: }
1036: }
1037: $r->print(<<ENDVCSCREEN);
1038: $message
1039: <br /><br />
1040: ENDVCSCREEN
1041: }
1042:
1043:
1044: ######################################################
1045: # other handler subroutines #
1046: ######################################################
1047:
1048: ################################################################
1049: # Main handler #
1050: ################################################################
1051: sub handler {
1052: my $r = shift;
1053: my $user = $env{'user.name'};
1054: my $domain = $env{'user.domain'};
1055: &Apache::loncommon::content_type($r,'text/html');
1056: # Some pages contain DES keys and should not be cached.
1057: &Apache::loncommon::no_cache($r);
1058: $r->send_http_header;
1059: return OK if $r->header_only;
1060: #
1061: &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
1062: ['action','wysiwyg','returnurl']);
1063: #
1064: &Apache::lonhtmlcommon::clear_breadcrumbs();
1065: &Apache::lonhtmlcommon::add_breadcrumb
1066: ({href => '/adm/preferences',
1067: text => 'Set User Preferences'});
1068:
1069: my @Options;
1070: # Determine current authentication method
1071: my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain);
1072: if ($currentauth =~ /^(unix|internal):/) {
1073: push (@Options,({ action => 'changepass',
1074: linktext => 'Change Password',
1075: href => '/adm/preferences',
1076: help => 'Change_Password',
1077: subroutine => \&passwordchanger,
1078: breadcrumb =>
1079: { href => '/adm/preferences?action=changepass',
1080: text => 'Change Password'},
1081: },
1082: { action => 'verify_and_change_pass',
1083: subroutine => \&verify_and_change_password,
1084: breadcrumb =>
1085: { href =>'/adm/preferences?action=changepass',
1086: text => 'Change Password'},
1087: printmenu => 'yes',
1088: }));
1089: }
1090: push (@Options,({ action => 'changescreenname',
1091: linktext => 'Change Screen Name',
1092: href => '/adm/preferences',
1093: help => 'Prefs_Screen_Name_Nickname',
1094: subroutine => \&screennamechanger,
1095: breadcrumb =>
1096: { href => '/adm/preferences?action=changescreenname',
1097: text => 'Change Screen Name'},
1098: },
1099: { action => 'verify_and_change_screenname',
1100: subroutine => \&verify_and_change_screenname,
1101: breadcrumb =>
1102: { href => '/adm/preferences?action=changescreenname',
1103: text => 'Change Screen Name'},
1104: printmenu => 'yes',
1105: }));
1106:
1107: push (@Options,({ action => 'changemsgforward',
1108: linktext => 'Change Message Forwarding and Notification Addresses',
1109: href => '/adm/preferences',
1110: help => 'Prefs_Forwarding',
1111: breadcrumb =>
1112: { href => '/adm/preferences?action=changemsgforward',
1113: text => 'Change Message Forwarding'},
1114: subroutine => \&msgforwardchanger,
1115: },
1116: { action => 'verify_and_change_msgforward',
1117: breadcrumb =>
1118: { href => '/adm/preferences?action=changemsgforward',
1119: text => 'Change Message Forwarding'},
1120: printmenu => 'yes',
1121: subroutine => \&verify_and_change_msgforward }));
1122: my $aboutmeaction=
1123: '/adm/'.$env{'user.domain'}.'/'.$env{'user.name'}.'/aboutme';
1124: push (@Options,{ action => 'none',
1125: linktext =>
1126: q{Edit the 'About Me' Personal Information Screen},
1127: help => 'Prefs_About_Me',
1128: href => $aboutmeaction});
1129: push (@Options,({ action => 'changecolors',
1130: linktext => 'Change Color Scheme',
1131: href => '/adm/preferences',
1132: help => 'Change_Colors',
1133: breadcrumb =>
1134: { href => '/adm/preferences?action=changecolors',
1135: text => 'Change Colors'},
1136: subroutine => \&colorschanger,
1137: },
1138: { action => 'verify_and_change_colors',
1139: breadcrumb =>
1140: { href => '/adm/preferences?action=changecolors',
1141: text => 'Change Colors'},
1142: printmenu => 'yes',
1143: subroutine => \&verify_and_change_colors,
1144: }));
1145: push (@Options,({ action => 'changelanguages',
1146: linktext => 'Change Language Preferences',
1147: href => '/adm/preferences',
1148: help => 'Prefs_Language',
1149: breadcrumb=>
1150: { href => '/adm/preferences?action=changelanguages',
1151: text => 'Change Language'},
1152: subroutine => \&languagechanger,
1153: },
1154: { action => 'verify_and_change_languages',
1155: breadcrumb=>
1156: {href => '/adm/preferences?action=changelanguages',
1157: text => 'Change Language'},
1158: printmenu => 'yes',
1159: subroutine=>\&verify_and_change_languages, }
1160: ));
1161: push (@Options,({ action => 'changewysiwyg',
1162: linktext => 'Change WYSIWYG Editor Preferences',
1163: href => '/adm/preferences',
1164: breadcrumb =>
1165: { href => '/adm/preferences?action=changewysiwyg',
1166: text => 'Change WYSIWYG Preferences'},
1167: subroutine => \&wysiwygchanger,
1168: },
1169: { action => 'set_wysiwyg',
1170: breadcrumb =>
1171: { href => '/adm/preferences?action=changewysiwyg',
1172: text => 'Change WYSIWYG Preferences'},
1173: printmenu => 'yes',
1174: subroutine => \&verify_and_change_wysiwyg, }
1175: ));
1176: push (@Options,({ action => 'changediscussions',
1177: linktext => 'Change Discussion Display Preferences',
1178: href => '/adm/preferences',
1179: help => 'Change_Discussion_Display',
1180: breadcrumb =>
1181: { href => '/adm/preferences?action=changediscussions',
1182: text => 'Change Discussion Preferences'},
1183: subroutine => \&discussionchanger,
1184: },
1185: { action => 'verify_and_change_discussion',
1186: breadcrumb =>
1187: { href => '/adm/preferences?action=changediscussions',
1188: text => 'Change Discussion Preferences'},
1189: printmenu => 'yes',
1190: subroutine => \&verify_and_change_discussion, }
1191: ));
1192:
1193: push (@Options,({ action => 'changerolespref',
1194: linktext => 'Change Roles Page Preferences',
1195: href => '/adm/preferences',
1196: subroutine => \&rolesprefchanger,
1197: breadcrumb =>
1198: { href => '/adm/preferences?action=changerolespref',
1199: text => 'Change Roles Pref'},
1200: },
1201: { action => 'verify_and_change_rolespref',
1202: subroutine => \&verify_and_change_rolespref,
1203: breadcrumb =>
1204: { href => '/adm/preferences?action=changerolespref',
1205: text => 'Change Roles Preferences'},
1206: printmenu => 'yes',
1207: }));
1208:
1209: push (@Options,({ action => 'changetexenginepref',
1210: linktext => 'Change How Math Equations Are Displayed',
1211: href => '/adm/preferences',
1212: subroutine => \&texenginechanger,
1213: breadcrumb =>
1214: { href => '/adm/preferences?action=changetexenginepref',
1215: text => 'Change Math Pref'},
1216: },
1217: { action => 'verify_and_change_texengine',
1218: subroutine => \&verify_and_change_texengine,
1219: breadcrumb =>
1220: { href => '/adm/preferences?action=changetexenginepref',
1221: text => 'Change Math Preferences'},
1222: printmenu => 'yes',
1223: }));
1224: if($env{'request.role'} =~ /^cc\.\//) {
1225: push (@Options,({ action => 'changecourseinit',
1226: linktext => 'Change Course Initialization Preference',
1227: href => '/adm/preferences',
1228: subroutine => \&coursedisplaychanger,
1229: breadcrumb =>
1230: { href => '/adm/preferences?action=changecourseinit',
1231: text => 'Change Course Init. Pref.'},
1232: },
1233: { action => 'verify_and_change_coursepage',
1234: breadcrumb =>
1235: { href => '/adm/preferences?action=changecourseinit', text => 'Change Course Initialization Preference'},
1236: printmenu => 'yes',
1237: subroutine => \&verify_and_change_coursepage,
1238: }));
1239: }
1240:
1241: if ($env{'user.name'} =~ /^(albertel|fox|foxr|koretemey|korte|hallmat3|turtle|raeburn)$/) {
1242: push (@Options,({ action => 'debugtoggle',
1243: printmenu => 'yes',
1244: subroutine => \&toggle_debug,
1245: }));
1246: }
1247: my $html=&Apache::lonxml::xmlbegin();
1248: $r->print(<<ENDHEADER);
1249: $html
1250: <head>
1251: <title>LON-CAPA Preferences</title>
1252: </head>
1253: ENDHEADER
1254: my $call = undef;
1255: my $help = undef;
1256: my $printmenu = 'yes';
1257: foreach my $option (@Options) {
1258: if ($option->{'action'} eq $env{'form.action'}) {
1259: $call = $option->{'subroutine'};
1260: $printmenu = $option->{'printmenu'};
1261: if (exists($option->{'breadcrumb'})) {
1262: &Apache::lonhtmlcommon::add_breadcrumb
1263: ($option->{'breadcrumb'});
1264: }
1265: $help=$option->{'help'};
1266: }
1267: }
1268: $r->print(&Apache::loncommon::bodytag('Change Preferences'));
1269: $r->print(&Apache::lonhtmlcommon::breadcrumbs
1270: (undef,'Change Preferences',$help));
1271: if (defined($call)) {
1272: $call->($r);
1273: }
1274: if (($printmenu eq 'yes') && (!$env{'form.returnurl'})) {
1275: my $optionlist = '<table cellpadding="5">';
1276: if ($env{'user.name'} =~
1277: /^(albertel|kortemey|fox|foxr|korte|hallmat3|turtle|raeburn)$/
1278: ) {
1279: push (@Options,({ action => 'debugtoggle',
1280: linktext => 'Toggle Debug Messages',
1281: text => 'Current Debug status is -'.
1282: $env{'user.debug'}.'-.',
1283: href => '/adm/preferences',
1284: printmenu => 'yes',
1285: subroutine => \&toggle_debug,
1286: }));
1287: }
1288: foreach my $option(@Options) {
1289: my $optiontext = '';
1290: if (exists($option->{'href'})) {
1291: $optiontext .=
1292: '<a href="'.$option->{'href'}.
1293: '?action='.$option->{'action'}.'">'.
1294: &mt($option->{'linktext'}).'</a>';
1295: }
1296: if (exists($option->{'text'})) {
1297: $optiontext .= ' '.&mt($option->{'text'});
1298: }
1299: if ($optiontext ne '') {
1300: $optiontext = '<font size="+1">'.$optiontext.'</font>';
1301: my $helplink = ' ';
1302: if (exists($option->{'help'})) {
1303: $helplink = &Apache::loncommon::help_open_topic
1304: ($option->{'help'});
1305: }
1306: $optionlist .= '<tr>'.
1307: '<td>'.$helplink.'</td>'.
1308: '<td>'.$optiontext.'</td>'.
1309: '</tr>';
1310: }
1311: }
1312: $optionlist .= '</table>';
1313: $r->print($optionlist);
1314: } elsif ($env{'form.returnurl'}) {
1315: $r->print('<br /><a href="'.$env{'form.returnurl'}.'"><font size="+1">'.
1316: &mt('Return').'</font></a>');
1317: }
1318: $r->print(&Apache::loncommon::endbodytag().'</html>');
1319: return OK;
1320: }
1321:
1322: sub toggle_debug {
1323: if ($env{'user.debug'}) {
1324: &Apache::lonnet::delenv('user\.debug');
1325: } else {
1326: &Apache::lonnet::appenv('user.debug' => 1);
1327: }
1328: }
1329:
1330: 1;
1331: __END__
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>