Annotation of loncom/interface/lonpreferences.pm, revision 1.164

1.1       www         1: # The LearningOnline Network
                      2: # Preferences
                      3: #
1.164   ! bisitz      4: # $Id: lonpreferences.pm,v 1.163 2009/05/16 23:21:00 bisitz Exp $
1.2       albertel    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: #
1.3       matthew    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:  
1.1       www        33: package Apache::lonpreferences;
                     34: 
                     35: use strict;
1.86      albertel   36: use LONCAPA;
1.1       www        37: use Apache::Constants qw(:common);
1.3       matthew    38: use Apache::File;
                     39: use Crypt::DES;
                     40: use DynaLoader; # for Crypt::DES version
1.4       matthew    41: use Apache::loncommon();
1.23      matthew    42: use Apache::lonhtmlcommon();
1.32      www        43: use Apache::lonlocal;
1.59      albertel   44: use Apache::lonnet;
1.95      albertel   45: use LONCAPA();
1.3       matthew    46: 
                     47: #
                     48: # Write lonnet::passwd to do the call below.
                     49: # Use:
                     50: #   my $answer=reply("encrypt:passwd:$udom:$uname:$upass",$tryserver);
                     51: #
                     52: ##################################################
                     53: #          password associated functions         #
                     54: ##################################################
                     55: sub des_keys {
1.4       matthew    56:     # Make a new key for DES encryption.
1.36      www        57:     # Each key has two parts which are returned separately.
1.4       matthew    58:     # Please note:  Each key must be passed through the &hex function
                     59:     # before it is output to the web browser.  The hex versions cannot
                     60:     # be used to decrypt.
1.3       matthew    61:     my @hexstr=('0','1','2','3','4','5','6','7',
                     62:                 '8','9','a','b','c','d','e','f');
                     63:     my $lkey='';
                     64:     for (0..7) {
                     65:         $lkey.=$hexstr[rand(15)];
                     66:     }
                     67:     my $ukey='';
                     68:     for (0..7) {
                     69:         $ukey.=$hexstr[rand(15)];
                     70:     }
                     71:     return ($lkey,$ukey);
                     72: }
                     73: 
                     74: sub des_decrypt {
                     75:     my ($key,$cyphertext) = @_;
                     76:     my $keybin=pack("H16",$key);
                     77:     my $cypher;
                     78:     if ($Crypt::DES::VERSION>=2.03) {
                     79:         $cypher=new Crypt::DES $keybin;
                     80:     } else {
                     81:         $cypher=new DES $keybin;
                     82:     }
                     83:     my $plaintext=
                     84: 	$cypher->decrypt(unpack("a8",pack("H16",substr($cyphertext,0,16))));
                     85:     $plaintext.=
                     86: 	$cypher->decrypt(unpack("a8",pack("H16",substr($cyphertext,16,16))));
1.4       matthew    87:     $plaintext=substr($plaintext,1,ord(substr($plaintext,0,1)) );
1.3       matthew    88:     return $plaintext;
                     89: }
                     90: 
1.4       matthew    91: ################################################################
                     92: #                       Handler subroutines                    #
                     93: ################################################################
1.9       matthew    94: 
                     95: ################################################################
1.28      www        96: #         Language Change Subroutines                          #
                     97: ################################################################
1.44      www        98: 
                     99: sub wysiwygchanger {
                    100:     my $r = shift;
1.126     droeschl  101:     Apache::lonhtmlcommon::add_breadcrumb(
                    102: 	    {	href => '/adm/preferences?action=changewysiwyg',
                    103:                 text => 'Change WYSIWYG Preferences'});
1.147     schafran  104:     $r->print(Apache::loncommon::start_page('Content Display Settings'));
1.126     droeschl  105:     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change WYSIWYG Preferences'));
                    106: 
1.44      www       107:     my %userenv = &Apache::lonnet::get
                    108:         ('environment',['wysiwygeditor']);
1.78      albertel  109:     my $onselect='checked="checked"';
1.44      www       110:     my $offselect='';
1.77      albertel  111:     if ($userenv{'wysiwygeditor'} eq 'on') {
1.44      www       112: 	$onselect='';
1.78      albertel  113: 	$offselect='checked="checked"';
1.44      www       114:     }
                    115:     my $switchoff=&mt('Disable WYSIWYG editor');
                    116:     my $switchon=&mt('Enable WYSIWYG editor');
1.124     www       117:     my $warning='';
                    118:     if ($env{'user.adv'}) {
                    119:        $warning.="<p>".&mt("The WYSIWYG editor only supports simple HTML and is in many cases unsuited for advanced authoring. In a number of cases, it may destroy advanced authoring involving LaTeX and script function calls.")."</p>";
                    120:     }
1.44      www       121:     $r->print(<<ENDLSCREEN);
1.88      albertel  122: <form name="prefs" action="/adm/preferences" method="post">
1.44      www       123: <input type="hidden" name="action" value="set_wysiwyg" />
1.124     www       124: $warning
1.44      www       125: <br />
1.65      albertel  126: <label><input type="radio" name="wysiwyg" value="off" $onselect /> $switchoff</label><br />
                    127: <label><input type="radio" name="wysiwyg" value="on" $offselect /> $switchon</label>
1.44      www       128: ENDLSCREEN
1.136     schafran  129:     $r->print('<br /><input type="submit" value="'.&mt('Save').'" />');
1.44      www       130: }
                    131: 
                    132: 
                    133: sub verify_and_change_wysiwyg {
                    134:     my $r = shift;
1.59      albertel  135:     my $newsetting=$env{'form.wysiwyg'};
1.44      www       136:     &Apache::lonnet::put('environment',{'wysiwygeditor' => $newsetting});
1.116     raeburn   137:     &Apache::lonnet::appenv({'environment.wysiwygeditor' => $newsetting});
1.158     bisitz    138:     my $message=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.&mt('WYSIWYG Editor').'</i>','<tt>'.&mt($newsetting).'</tt>'));
                    139:     $message=&Apache::loncommon::confirmwrapper($message);
                    140:     &print_main_menu($r,$message);
1.44      www       141: }
                    142: 
                    143: ################################################################
                    144: #         Language Change Subroutines                          #
                    145: ################################################################
1.28      www       146: sub languagechanger {
                    147:     my $r = shift;
1.126     droeschl  148:     
                    149:     Apache::lonhtmlcommon::add_breadcrumb(
                    150: 	    {	href => '/adm/preferences?action=changelanguages',
1.127     droeschl  151:                 text => 'Change Language'});
1.147     schafran  152:     $r->print(Apache::loncommon::start_page('Content Display Settings'));
1.126     droeschl  153:     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Language')); 
1.59      albertel  154:     my $user       = $env{'user.name'};
                    155:     my $domain     = $env{'user.domain'};
1.28      www       156:     my %userenv = &Apache::lonnet::get
1.32      www       157:         ('environment',['languages']);
1.29      www       158:     my $language=$userenv{'languages'};
1.32      www       159: 
1.33      www       160:     my $pref=&mt('Preferred language');
                    161:     my %langchoices=('' => 'No language preference');
                    162:     foreach (&Apache::loncommon::languageids()) {
                    163: 	if (&Apache::loncommon::supportedlanguagecode($_)) {
                    164: 	    $langchoices{&Apache::loncommon::supportedlanguagecode($_)}
                    165: 	               = &Apache::loncommon::plainlanguagedescription($_);
                    166: 	}
                    167:     }
                    168:     my $selectionbox=&Apache::loncommon::select_form($language,'language',
                    169: 						     %langchoices);
1.28      www       170:     $r->print(<<ENDLSCREEN);
1.88      albertel  171: <form name="prefs" action="/adm/preferences" method="post">
1.28      www       172: <input type="hidden" name="action" value="verify_and_change_languages" />
1.33      www       173: <br />$pref: $selectionbox
1.28      www       174: ENDLSCREEN
1.136     schafran  175:     $r->print('<br /><input type="submit" value="'.&mt('Save').'" />');
1.28      www       176: }
                    177: 
                    178: 
                    179: sub verify_and_change_languages {
                    180:     my $r = shift;
1.59      albertel  181:     my $user       = $env{'user.name'};
                    182:     my $domain     = $env{'user.domain'};
1.28      www       183: # Screenname
1.59      albertel  184:     my $newlanguage  = $env{'form.language'};
1.28      www       185:     $newlanguage=~s/[^\-\w]//g;
                    186:     my $message='';
                    187:     if ($newlanguage) {
1.29      www       188:         &Apache::lonnet::put('environment',{'languages' => $newlanguage});
1.116     raeburn   189:         &Apache::lonnet::appenv({'environment.languages' => $newlanguage});
1.158     bisitz    190:         $message=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.&mt('Preferred language').'</i>','<tt>"'.$newlanguage.'"</tt>.'));
1.28      www       191:     } else {
1.29      www       192:         &Apache::lonnet::del('environment',['languages']);
1.139     raeburn   193:         &Apache::lonnet::delenv('environment.languages');
1.158     bisitz    194:         $message=&Apache::lonhtmlcommon::confirm_success(&mt('Reset [_1]','<i>'.&mt('Preferred language').'</i>'));
1.28      www       195:     }
1.158     bisitz    196:     $message=&Apache::loncommon::confirmwrapper($message);
1.132     raeburn   197:     &Apache::loncommon::flush_langs_cache($user,$domain);
1.152     www       198:     &print_main_menu($r, $message);
1.28      www       199: }
                    200: 
1.50      albertel  201: ################################################################
1.54      albertel  202: #         Tex Engine Change Subroutines                        #
                    203: ################################################################
                    204: sub texenginechanger {
                    205:     my $r = shift;
1.126     droeschl  206:     Apache::lonhtmlcommon::add_breadcrumb(
                    207: 	    {	href => '/adm/preferences?action=changetexenginepref',
                    208:                 text => 'Change How Math Equations Are Displayed'});
1.147     schafran  209:     $r->print(Apache::loncommon::start_page('Content Display Settings'));
1.126     droeschl  210:     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change How Math Equations Are Displayed'));
1.59      albertel  211:     my $user       = $env{'user.name'};
                    212:     my $domain     = $env{'user.domain'};
1.54      albertel  213:     my %userenv = &Apache::lonnet::get('environment',['texengine']);
                    214:     my $texengine=$userenv{'texengine'};
                    215: 
1.69      albertel  216:     my %mathchoices=('' => 'Default',
1.123     bisitz    217: 		     'tth' => 'tth (TeX to HTML)',
1.64      albertel  218: 		     #'ttm' => 'TeX to MathML',
1.54      albertel  219: 		     'jsMath' => 'jsMath',
1.123     bisitz    220: 		     'mimetex' => 'mimetex (Convert to Images)'
1.54      albertel  221:                      );
                    222:     my $selectionbox=&Apache::loncommon::select_form($texengine,'texengine',
                    223: 						     %mathchoices);
1.67      albertel  224:     my $jsMath_start=&Apache::lontexconvert::jsMath_header();
1.123     bisitz    225:     my %lt=&Apache::lonlocal::texthash(
                    226:       'headline' => 'Change Math Preferences',
                    227:       'preftxt'  => 'Preferred method to display Math',
1.136     schafran  228:       'change'   => 'Save',
1.123     bisitz    229:       'exmpl'    => 'Examples',
                    230:       'jsmath'   => 'jsMath:',
                    231:       'tth'      => 'tth (TeX to HTML):',
                    232:       'mimetex'  => 'mimetex (Convert to Images):',
                    233:     );
                    234: 
1.162     bisitz    235:     my $jsMathWarning='<p>'
                    236:                      .'<div class="LC_warning">'
                    237:                      .&mt("It looks like you don't have the TeX math fonts installed.")
                    238:                      .'</div>'
                    239:                      .'<div>'
                    240:                      .&mt('The jsMath example on this page may not look right without them. '
                    241:                          .'The [_1]jsMath Home Page[_2] has information on how to download the '
                    242:                          .'needed fonts. In the meantime, jsMath will do the best it can '
                    243:                          .'with the fonts you have, but it may not be pretty and some equations '
                    244:                          .'may not be rendered correctly.'
                    245:                          ,'<a href="http://www.math.union.edu/locate/jsMath/" target="_blank">'
                    246:                          ,'</a>')
                    247:                      .'</div>'
                    248:                      .'</p>';
                    249: 
1.54      albertel  250:     $r->print(<<ENDLSCREEN);
1.123     bisitz    251: <h2>$lt{'headline'}</h2>
1.88      albertel  252: <form name="prefs" action="/adm/preferences" method="post">
1.54      albertel  253: <input type="hidden" name="action" value="verify_and_change_texengine" />
1.123     bisitz    254: <p>
1.136     schafran  255: $lt{'preftxt'}: $selectionbox 
                    256: <br />
                    257: <input type="submit" value="$lt{'change'}" />
1.123     bisitz    258: </p>
1.54      albertel  259: </form>
1.123     bisitz    260: <br />
                    261: <hr />
                    262: $lt{'exmpl'}
                    263: 
                    264: <h3>$lt{'jsmath'}</h3> 
                    265: <p>
1.67      albertel  266: $jsMath_start
1.148     bisitz    267: <script type="text/javascript" language="JavaScript">
1.54      albertel  268: if (jsMath.nofonts == 1) {
1.162     bisitz    269:     document.writeln($jsMathWarning);
1.54      albertel  270: }
                    271: </script>
1.122     www       272: <iframe src="/res/adm/pages/math_example.tex?inhibitmenu=yes&texengine=jsMath" width="400" height="120"></iframe>
1.123     bisitz    273: </p>
1.54      albertel  274: 
1.123     bisitz    275: <h3>$lt{'mimetex'}</h3>
                    276: <p>
                    277: <iframe src="/res/adm/pages/math_example.tex?inhibitmenu=yes&texengine=mimetex" width="400" height="100"></iframe>
1.67      albertel  278: </p>
1.123     bisitz    279: 
                    280: <h3>$lt{'tth'}</h3>
                    281: <p>
                    282: <iframe src="/res/adm/pages/math_example.tex?inhibitmenu=yes&texengine=tth" width="400" height="200"></iframe>
1.67      albertel  283: </p>
1.54      albertel  284: ENDLSCREEN
1.59      albertel  285:     if ($env{'environment.texengine'} ne 'jsMath') {
1.148     bisitz    286: 	$r->print('<script type="text/javascript" language="JavaScript">jsMath.Process()</script>');
1.55      albertel  287:     }
1.54      albertel  288: }
                    289: 
                    290: 
                    291: sub verify_and_change_texengine {
                    292:     my $r = shift;
1.59      albertel  293:     my $user       = $env{'user.name'};
                    294:     my $domain     = $env{'user.domain'};
1.54      albertel  295: # Screenname
1.59      albertel  296:     my $newtexengine  = $env{'form.texengine'};
1.54      albertel  297:     $newtexengine=~s/[^\-\w]//g;
1.56      albertel  298:     if ($newtexengine eq 'ttm') {
1.116     raeburn   299: 	&Apache::lonnet::appenv({'browser.mathml' => 1});
1.56      albertel  300:     } else {
1.59      albertel  301: 	if ($env{'environment.texengine'} eq 'ttm') {
1.116     raeburn   302: 	    &Apache::lonnet::appenv({'browser.mathml' => 0});
1.56      albertel  303: 	}
                    304:     }
1.54      albertel  305:     my $message='';
                    306:     if ($newtexengine) {
                    307:         &Apache::lonnet::put('environment',{'texengine' => $newtexengine});
1.116     raeburn   308:         &Apache::lonnet::appenv({'environment.texengine' => $newtexengine});
1.158     bisitz    309:         $message=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.&mt('Preferred method to display Math').'</i>','<tt>"'.$newtexengine.'"</tt>'));
1.54      albertel  310:     } else {
                    311:         &Apache::lonnet::del('environment',['texengine']);
1.139     raeburn   312:         &Apache::lonnet::delenv('environment.texengine');
1.158     bisitz    313:         $message=&Apache::lonhtmlcommon::confirm_success(&mt('Reset [_1]','<i>'.&mt('Preferred method to display Math').'</i>'));
1.54      albertel  314:     }
1.158     bisitz    315:     $message=&Apache::loncommon::confirmwrapper($message);
1.152     www       316:     &print_main_menu($r, $message);
1.54      albertel  317: }
                    318: 
                    319: ################################################################
1.50      albertel  320: #         Roles Page Preference Change Subroutines         #
                    321: ################################################################
                    322: sub rolesprefchanger {
                    323:     my $r = shift;
1.96      albertel  324:     my $role    = ($env{'user.adv'} ? 'Role' : 'Course');
                    325:     my $lc_role = ($env{'user.adv'} ? 'role' : 'course');
1.59      albertel  326:     my $user       = $env{'user.name'};
                    327:     my $domain     = $env{'user.domain'};
1.50      albertel  328:     my %userenv = &Apache::lonnet::get
                    329:         ('environment',['recentroles','recentrolesn']);
1.126     droeschl  330:     Apache::lonhtmlcommon::add_breadcrumb(
                    331: 	    {	href => '/adm/preferences?action=changerolespref',
                    332:                 text => 'Change '.$role.' Page Pref'});
1.147     schafran  333:     $r->print(Apache::loncommon::start_page('Content Display Settings'));
1.126     droeschl  334:     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change '.$role.' Page Pref'));
1.50      albertel  335:     my $hotlist_flag=$userenv{'recentroles'};
                    336:     my $hotlist_n=$userenv{'recentrolesn'};
                    337:     my $checked;
                    338:     if ($hotlist_flag) {
                    339: 	$checked = 'checked="checked"';
                    340:     }
                    341:     
                    342:     if (!$hotlist_n) { $hotlist_n=3; }
                    343:     my $options;
                    344:     for (my $i=1; $i<10; $i++) {
                    345: 	my $select;
                    346: 	if ($hotlist_n == $i) { $select = 'selected="selected"'; }
                    347: 	$options .= "<option $select>$i</option>\n";
                    348:     }
                    349: 
1.89      albertel  350: # Get list of recent roles and display with checkbox in front
                    351:     my $roles_check_list = '';
                    352:     my $role_key='';
                    353:     if ($env{'environment.recentroles'}) {
                    354:         my %recent_roles =
                    355:                &Apache::lonhtmlcommon::get_recent('roles',$env{'environment.recentrolesn'});
1.91      albertel  356:         my %frozen_roles =
                    357:                &Apache::lonhtmlcommon::get_recent_frozen('roles',$env{'environment.recentrolesn'});
1.89      albertel  358:         
1.93      albertel  359:         my %role_text = &rolespref_get_role_text([keys(%recent_roles)]);
1.92      albertel  360:         my @sorted_roles = sort {$role_text{$a} cmp $role_text{$b}} keys(%role_text);
                    361: 
1.89      albertel  362:         $roles_check_list .=
                    363: 	    &Apache::loncommon::start_data_table().
                    364: 	    &Apache::loncommon::start_data_table_header_row().
1.96      albertel  365: 	    "<th>".&mt('Freeze '.$role)."</th>".
                    366: 	    "<th>".&mt($role)."</td>".
1.89      albertel  367: 	    &Apache::loncommon::end_data_table_header_row().
                    368: 	    "\n";
                    369: 	my $count;
1.92      albertel  370:         foreach $role_key (@sorted_roles) {
1.89      albertel  371:             my $checked = "";
                    372:             my $value = $recent_roles{$role_key};
1.91      albertel  373:             if ($frozen_roles{$role_key}) {
1.159     bisitz    374:                 $checked = ' checked="checked"';
1.89      albertel  375:             }
                    376: 	    $count++;
                    377:             $roles_check_list .=
                    378: 		&Apache::loncommon::start_data_table_row().
                    379: 		'<td class="LC_table_cell_checkbox">'.
1.159     bisitz    380: 		"<input type=\"checkbox\"$checked name=\"freezeroles\"".
1.89      albertel  381: 		" id=\"freezeroles$count\" value=\"$role_key\" /></td>".
                    382: 		"<td><label for=\"freezeroles$count\">".
1.92      albertel  383: 		"$role_text{$role_key}</label></td>".
1.89      albertel  384: 		&Apache::loncommon::end_data_table_row(). "\n";
                    385:         }
                    386:         $roles_check_list .= "</table>\n";
                    387:     }
                    388: 
                    389:     $r->print('
1.96      albertel  390: <p>'.&mt('Some LON-CAPA users have a long list of '.$lc_role.'s. The Recent '.$role.'s Hotlist feature keeps track of the last N '.$lc_role.'s which have been visited and places a table of these at the top of the '.$lc_role.'s page. People with very few '.$lc_role.'s should leave this feature disabled.').'
1.50      albertel  391: </p>
1.160     bisitz    392: <form name="prefs" action="/adm/preferences" method="post">
1.50      albertel  393: <input type="hidden" name="action" value="verify_and_change_rolespref" />
1.96      albertel  394: <br /><label>'.&mt('Enable Recent '.$role.'s Hotlist:').'
1.159     bisitz    395: <input type="checkbox"'.$checked.' name="recentroles" value="true" /></label>
1.96      albertel  396: <br />'.&mt('Number of '.$role.'s in Hotlist:').'
1.50      albertel  397: <select name="recentrolesn" size="1">
1.89      albertel  398: '.$options.'
1.50      albertel  399: </select>
1.96      albertel  400: <p>'.&mt('This list below can be used to <q>freeze</q> '.$lc_role.'s on your screen. Those marked as frozen will not be removed from the list, even if they have not been used recently.').'
1.89      albertel  401: </p>
                    402: '.$roles_check_list.'
1.50      albertel  403: <br />
1.136     schafran  404: <input type="submit" value="'.&mt('Save').'" />
1.89      albertel  405: </form>');
1.50      albertel  406: }
                    407: 
1.92      albertel  408: sub rolespref_get_role_text {
                    409: # Get a line of text for each role
                    410:     my ($roles) = @_;
                    411:     my %roletext = ();
                    412: 
                    413:     foreach my $item (@$roles) {
                    414: # get course information
                    415:         my ($role,$rest) = split(/\./, $item);
1.93      albertel  416:         my $trole = "";
                    417:         $trole = &Apache::lonnet::plaintext($role);
1.92      albertel  418:         my ($tdomain,$other,$tsection)= split(/\//,Apache::lonnet::declutter($rest));
                    419:         my $tother = '-';
1.93      albertel  420:         if ($role =~ /^(cc|st|in|ta|ep|cr)/ ) {
1.92      albertel  421:             my %newhash=&Apache::lonnet::coursedescription($tdomain."_".$other);
                    422:             $tother = " - ".$newhash{'description'};
                    423:         } elsif ($role =~ /dc/) {
                    424:             $tother = "";
                    425:         } else {
                    426:             $tother = " - $other";
                    427:         }
                    428:  
                    429:         my $section="";
                    430:         if ($tsection) {
                    431:             $section = " - Section/Group: $tsection";
                    432:         }
                    433:         $roletext{$item} = $tdomain." - ".$trole.$tother.$section;
                    434:     }
                    435:     return %roletext;
                    436: }
                    437: 
1.50      albertel  438: sub verify_and_change_rolespref {
                    439:     my $r = shift;
1.96      albertel  440:     my $role = ($env{'user.adv'} ? 'Role' : 'Course');
1.59      albertel  441:     my $user       = $env{'user.name'};
                    442:     my $domain     = $env{'user.domain'};
1.50      albertel  443: # Recent Roles Hotlist Flag
1.59      albertel  444:     my $hotlist_flag  = $env{'form.recentroles'};
                    445:     my $hotlist_n  = $env{'form.recentrolesn'};
1.89      albertel  446:     my $message='<hr />';
1.50      albertel  447:     if ($hotlist_flag) {
                    448:         &Apache::lonnet::put('environment',{'recentroles' => $hotlist_flag});
1.116     raeburn   449:         &Apache::lonnet::appenv({'environment.recentroles' => $hotlist_flag});
1.96      albertel  450:         $message=&mt('Recent '.$role.'s Hotlist is Enabled');
1.50      albertel  451:     } else {
                    452:         &Apache::lonnet::del('environment',['recentroles']);
1.139     raeburn   453:         &Apache::lonnet::delenv('environment.recentroles');
1.96      albertel  454:         $message=&mt('Recent '.$role.'s Hotlist is Disabled');
1.50      albertel  455:     }
                    456:     if ($hotlist_n) {
                    457:         &Apache::lonnet::put('environment',{'recentrolesn' => $hotlist_n});
1.116     raeburn   458:         &Apache::lonnet::appenv({'environment.recentrolesn' => $hotlist_n});
1.50      albertel  459:         if ($hotlist_flag) {
1.90      albertel  460:             $message.="<br />".
1.96      albertel  461: 		&mt('Display [_1] Most Recent '.$role.'s',$hotlist_n)."\n";
1.89      albertel  462:         }
                    463:     }
                    464: 
                    465: # Get list of froze roles and list of recent roles
                    466:     my @freeze_list = &Apache::loncommon::get_env_multiple('form.freezeroles');
                    467:     my %freeze = ();
1.92      albertel  468:     my %roletext = ();
                    469: 
1.89      albertel  470:     foreach my $key (@freeze_list) {
1.91      albertel  471:         $freeze{$key}='1';
1.89      albertel  472:     }
1.92      albertel  473: 
1.89      albertel  474:     my %recent_roles =
                    475:         &Apache::lonhtmlcommon::get_recent('roles',$env{'environment.recentrolesn'});
1.91      albertel  476:     my %frozen_roles =
                    477:         &Apache::lonhtmlcommon::get_recent_frozen('roles',$env{'environment.recentrolesn'});
1.92      albertel  478:     my %role_text = &rolespref_get_role_text([keys(%recent_roles)]);
1.89      albertel  479: 
                    480: # Unset any roles that were previously frozen but aren't in list
                    481:     foreach my $role_key (sort(keys(%recent_roles))) {
1.91      albertel  482:         if (($frozen_roles{$role_key}) && (!exists($freeze{$role_key}))) {
1.158     bisitz    483: 	    $message .= "<br />".&Apache::lonhtmlcommon::confirm_success(&mt('Unfreezing '.$role.': [_1]','<i>'.$role_text{$role_key}.'</i>'));
1.91      albertel  484: 	    &Apache::lonhtmlcommon::store_recent('roles',$role_key,' ',0);
1.89      albertel  485:         }
                    486:     }
                    487: 
                    488: # Freeze selected roles
                    489:     foreach my $role_key (@freeze_list) {
1.91      albertel  490:         if (!$frozen_roles{$role_key}) {
1.154     www       491:              $message .= "<br />".
1.158     bisitz    492:              &Apache::lonhtmlcommon::confirm_success(&mt('Freezing '.$role.': [_1]','<i>'.$role_text{$role_key}.'</i>'));
1.89      albertel  493:              &Apache::lonhtmlcommon::store_recent('roles',
1.91      albertel  494:                                           $role_key,' ',1);
1.50      albertel  495:         }
                    496:     }
1.158     bisitz    497:     $message=&Apache::loncommon::confirmwrapper($message);
1.152     www       498:     &print_main_menu($r, $message);
1.50      albertel  499: }
                    500: 
                    501: 
1.28      www       502: 
                    503: ################################################################
1.9       matthew   504: #         Anonymous Discussion Name Change Subroutines         #
                    505: ################################################################
1.5       www       506: sub screennamechanger {
                    507:     my $r = shift;
1.59      albertel  508:     my $user       = $env{'user.name'};
                    509:     my $domain     = $env{'user.domain'};
1.14      www       510:     my %userenv = &Apache::lonnet::get
                    511:         ('environment',['screenname','nickname']);
1.6       www       512:     my $screenname=$userenv{'screenname'};
1.14      www       513:     my $nickname=$userenv{'nickname'};
1.126     droeschl  514:     Apache::lonhtmlcommon::add_breadcrumb(
                    515: 		{ href => '/adm/preferences?action=changescreenname',
                    516:                   text => 'Change Screen Name'});
1.147     schafran  517:     $r->print(Apache::loncommon::start_page('Personal Data'));
1.126     droeschl  518:     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Screen Name'));
1.133     bisitz    519:     $r->print('<p>'
                    520:              .&mt('Change the name that is displayed in your posts.')
                    521:              .'</p>'
                    522:     );
                    523:     $r->print('<form name="prefs" action="/adm/preferences" method="post">'
                    524:              .'<input type="hidden" name="action" value="verify_and_change_screenname" />'
                    525:              .&Apache::lonhtmlcommon::start_pick_box()
1.158     bisitz    526:              .&Apache::lonhtmlcommon::row_title(&mt('Screenname').' '.&mt('(shown if you post anonymously)'))
1.133     bisitz    527:              .'<input type="text" size="20" value="'.$screenname.'" name="screenname" />'
                    528:              .&Apache::lonhtmlcommon::row_closure()
1.158     bisitz    529:              .&Apache::lonhtmlcommon::row_title(&mt('Nickname').' '.&mt('(shown if you post non-anonymously)'))
1.133     bisitz    530:              .'<input type="text" size="20" value="'.$nickname.'" name="nickname" />'
                    531:              .&Apache::lonhtmlcommon::row_closure()
                    532:              .&Apache::lonhtmlcommon::row_title()
                    533:              .'<input type="submit" value="'.&mt('Save').'" />'
                    534:              .&Apache::lonhtmlcommon::row_closure(1)
                    535:              .&Apache::lonhtmlcommon::end_pick_box()
                    536:              .'</form>'
                    537:     );
1.5       www       538: }
1.6       www       539: 
                    540: sub verify_and_change_screenname {
                    541:     my $r = shift;
1.59      albertel  542:     my $user       = $env{'user.name'};
                    543:     my $domain     = $env{'user.domain'};
1.14      www       544: # Screenname
1.59      albertel  545:     my $newscreen  = $env{'form.screenname'};
1.14      www       546:     $newscreen=~s/[^ \w]//g;
1.6       www       547:     my $message='';
                    548:     if ($newscreen) {
1.7       www       549:         &Apache::lonnet::put('environment',{'screenname' => $newscreen});
1.116     raeburn   550:         &Apache::lonnet::appenv({'environment.screenname' => $newscreen});
1.161     bisitz    551:         $message=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.&mt('Screenname').'</i>','<tt>"'.$newscreen.'"</tt>'));
1.6       www       552:     } else {
                    553:         &Apache::lonnet::del('environment',['screenname']);
1.139     raeburn   554:         &Apache::lonnet::delenv('environment.screenname');
1.158     bisitz    555:         $message=&Apache::lonhtmlcommon::confirm_success(&mt('Reset [_1]','<i>'.&mt('Screenname').'</i>'));
1.6       www       556:     }
1.14      www       557: # Nickname
                    558:     $message.='<br />';
1.59      albertel  559:     $newscreen  = $env{'form.nickname'};
1.14      www       560:     $newscreen=~s/[^ \w]//g;
                    561:     if ($newscreen) {
                    562:         &Apache::lonnet::put('environment',{'nickname' => $newscreen});
1.116     raeburn   563:         &Apache::lonnet::appenv({'environment.nickname' => $newscreen});
1.161     bisitz    564:         $message.=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.&mt('Nickname').'</i>','<tt>"'.$newscreen.'"</tt>'));
1.14      www       565:     } else {
                    566:         &Apache::lonnet::del('environment',['nickname']);
1.139     raeburn   567:         &Apache::lonnet::delenv('environment.nickname');
1.158     bisitz    568:         $message.=&Apache::lonhtmlcommon::confirm_success(&mt('Reset [_1]','<i>'.&mt('Nickname').'</i>'));
1.14      www       569:     }
1.68      www       570:     &Apache::lonnet::devalidate_cache_new('namescache',$user.':'.$domain);
1.158     bisitz    571:     $message=&Apache::loncommon::confirmwrapper($message);
1.152     www       572:     &print_main_menu($r, $message);
1.20      www       573: }
                    574: 
                    575: ################################################################
1.98      www       576: #                     Icon Subroutines                         #
                    577: ################################################################
                    578: sub iconchanger {
                    579:     my $r = shift;
1.154     www       580:     &Apache::lonhtmlcommon::add_breadcrumb(
1.126     droeschl  581: 	    {	href => '/adm/preferences?action=changeicons',
                    582:                 text => 'Change Main Menu'});
1.147     schafran  583:     $r->print(Apache::loncommon::start_page('Page Display Settings'));
1.126     droeschl  584:     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Main Menu'));
                    585: 
1.98      www       586:     my $user       = $env{'user.name'};
                    587:     my $domain     = $env{'user.domain'};
                    588:     my %userenv = &Apache::lonnet::get
                    589:         ('environment',['icons']);
                    590:     my $iconic='checked="checked"';
                    591:     my $classic='';
1.100     www       592:     my $onlyicon='';
1.98      www       593:     if ($userenv{'icons'} eq 'classic') {
                    594:        $classic='checked="checked"';
                    595:        $iconic='';
                    596:     }
1.100     www       597:     if ($userenv{'icons'} eq 'iconsonly') {
                    598:        $onlyicon='checked="checked"';
                    599:        $iconic='';
                    600:     }
                    601:     my $useicons=&mt('Use icons and text');
                    602:     my $usebuttons=&mt('Use buttons and text');
                    603:     my $useicononly=&mt('Use icons only');
1.136     schafran  604:     my $change=&mt('Save');
1.98      www       605:     $r->print(<<ENDSCREEN);
                    606: <form name="prefs" action="/adm/preferences" method="post">
                    607: <input type="hidden" name="action" value="verify_and_change_icons" />
                    608: <label><input type="radio" name="menumode" value="iconic" $iconic /> $useicons</label><br />
                    609: <label><input type="radio" name="menumode" value="classic" $classic /> $usebuttons</label><br />
1.100     www       610: <label><input type="radio" name="menumode" value="iconsonly" $onlyicon /> $useicononly</label><br />
1.98      www       611: <input type="submit" value="$change" />
                    612: </form>
                    613: ENDSCREEN
                    614: }
                    615: 
                    616: sub verify_and_change_icons {
                    617:     my $r = shift;
                    618:     my $user       = $env{'user.name'};
                    619:     my $domain     = $env{'user.domain'};
1.158     bisitz    620:     my $newicons   = $env{'form.menumode'};
1.98      www       621: 
                    622:     &Apache::lonnet::put('environment',{'icons' => $newicons});
1.116     raeburn   623:     &Apache::lonnet::appenv({'environment.icons' => $newicons});
1.158     bisitz    624:     my $message=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.&mt('Menu Display').'</i>','<tt>'.$newicons.'</tt>'));
                    625:     $message=&Apache::loncommon::confirmwrapper($message);
                    626:     &print_main_menu($r, $message);
1.98      www       627: }
                    628: 
                    629: ################################################################
1.105     www       630: #                     Clicker Subroutines                      #
                    631: ################################################################
                    632: 
                    633: sub clickerchanger {
                    634:     my $r = shift;
1.152     www       635:     &Apache::lonhtmlcommon::add_breadcrumb(
1.126     droeschl  636: 	    {	href => '/adm/preferences?action=changeclicker',
                    637:                 text => 'Register Clicker'});
1.147     schafran  638:     $r->print(Apache::loncommon::start_page('Other'));
1.126     droeschl  639:     $r->print(Apache::lonhtmlcommon::breadcrumbs('Register Clicker'));
1.105     www       640:     my $user       = $env{'user.name'};
                    641:     my $domain     = $env{'user.domain'};
                    642:     my %userenv = &Apache::lonnet::get
                    643:         ('environment',['clickers']);
                    644:     my $clickers=$userenv{'clickers'};
                    645:     $clickers=~s/\,/\n/gs;
                    646:     my $text=&mt('Enter response device ("clicker") numbers');
1.151     bisitz    647:     my $change=&mt('Save');
1.114     bisitz    648:     my $helplink=&Apache::loncommon::help_open_topic('Clicker_Registration',&mt('Locating your clicker ID'));
1.105     www       649:     $r->print(<<ENDSCREEN);
                    650: <form name="prefs" action="/adm/preferences" method="post">
                    651: <input type="hidden" name="action" value="verify_and_change_clicker" />
1.151     bisitz    652: <label>$helplink<br /><br />$text<br />
1.108     www       653: <textarea name="clickers" rows="5" cols="20">$clickers</textarea>
1.105     www       654: </label>
1.151     bisitz    655: <br />
1.105     www       656: <input type="submit" value="$change" />
                    657: </form>
                    658: ENDSCREEN
                    659: }
                    660: 
                    661: sub verify_and_change_clicker {
                    662:     my $r = shift;
                    663:     my $user       = $env{'user.name'};
                    664:     my $domain     = $env{'user.domain'};
                    665:     my $newclickers  = $env{'form.clickers'};
1.108     www       666:     $newclickers=~s/[^\w\:\-]+/\,/gs;
1.105     www       667:     $newclickers=~tr/a-z/A-Z/;
1.108     www       668:     $newclickers=~s/[\:\-]+/\-/g;
                    669:     $newclickers=~s/\,+/\,/g;
1.105     www       670:     $newclickers=~s/^\,//;
                    671:     $newclickers=~s/\,$//;
                    672:     &Apache::lonnet::put('environment',{'clickers' => $newclickers});
1.116     raeburn   673:     &Apache::lonnet::appenv({'environment.clickers' => $newclickers});
1.158     bisitz    674:     my $message=&Apache::lonhtmlcommon::confirm_success(&mt('Registering clickers: [_1]',$newclickers));
                    675:     $message=&Apache::loncommon::confirmwrapper($message);
                    676:     &print_main_menu($r, $message);
1.105     www       677: }
                    678: 
1.119     www       679: ################################################################
                    680: #               Domcoord Access Subroutines                    #
                    681: ################################################################
                    682: 
                    683: sub domcoordchanger {
                    684:     my $r = shift;
1.154     www       685:     &Apache::lonhtmlcommon::add_breadcrumb(
1.126     droeschl  686: 	    {	href => '/adm/preferences?action=changedomcoord',
                    687:                 text => 'Restrict Domain Coordinator Access'});
                    688:     $r->print(Apache::loncommon::start_page('Restrict Domain Coordinator Access'));
                    689:     $r->print(Apache::lonhtmlcommon::breadcrumbs('Restrict Domain Coordinator Access'));
1.119     www       690:     my $user       = $env{'user.name'};
                    691:     my $domain     = $env{'user.domain'};
                    692:     my %userenv = &Apache::lonnet::get
1.120     www       693:         ('environment',['domcoord.author']);
1.119     www       694:     my $constchecked='';
                    695:     if ($userenv{'domcoord.author'} eq 'blocked') {
1.159     bisitz    696:        $constchecked=' checked="checked"';
1.119     www       697:     }
1.120     www       698:     my $text=&mt('By default, the Domain Coordinator can enter your construction space.');
1.119     www       699:     my $construction=&mt('Block access to construction space');
1.136     schafran  700:     my $change=&mt('Save');
1.119     www       701:     $r->print(<<ENDSCREEN);
                    702: <form name="prefs" action="/adm/preferences" method="post">
                    703: <input type="hidden" name="action" value="verify_and_change_domcoord" />
                    704: $text<br />
1.159     bisitz    705: <label><input type="checkbox" name="construction"$constchecked />$construction</label><br />
1.119     www       706: <input type="submit" value="$change" />
                    707: </form>
                    708: ENDSCREEN
                    709: }
                    710: 
                    711: sub verify_and_change_domcoord {
                    712:     my $r = shift;
                    713:     my $user       = $env{'user.name'};
                    714:     my $domain     = $env{'user.domain'};
1.120     www       715:     my %domcoord=('domcoord.author' => '');
1.119     www       716:     if ($env{'form.construction'}) { $domcoord{'domcoord.author'}='blocked'; }
                    717:     &Apache::lonnet::put('environment',\%domcoord);
1.120     www       718:     &Apache::lonnet::appenv({'environment.domcoord.author' => $domcoord{'domcoord.author'}});
1.158     bisitz    719:     my $status='';
                    720:     if ($domcoord{'domcoord.author'} eq 'blocked') {
                    721:         $status=&mt('on');
                    722:     } else {
                    723:         $status=&mt('off');
                    724:     }
                    725:     my $message=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.&mt('Block access to construction space').'</i>','<tt>'.$status.'</tt>'));
                    726:     $message=&Apache::loncommon::confirmwrapper($message);
                    727:     &print_main_menu($r,$message);
1.119     www       728: }
                    729: 
1.118     www       730: #################################################################
                    731: ##                      Lock Subroutines                        #
                    732: #################################################################
                    733: 
                    734: sub lockwarning {
                    735:     my $r = shift;
                    736:     my $title=&mt('Action locked');
                    737:     my $texttop=&mt('LON-CAPA is currently performing the following actions:');
                    738:     my $textbottom=&mt('Changing roles or logging out may result in data corruption.');
                    739:     my ($num,%which)=&Apache::lonnet::get_locks();
                    740:     my $which='';
                    741:     foreach my $id (keys %which) {
                    742:        $which.='<li>'.$which{$id}.'</li>';
                    743:     }
                    744:     my $change=&mt('Override');
                    745:     $r->print(<<ENDSCREEN);
                    746: <form name="prefs" action="/adm/preferences" method="post">
                    747: <input type="hidden" name="action" value="verify_and_change_locks" />
                    748: <h1>$title</h1>
                    749: $texttop
                    750: <ul>
                    751: $which
                    752: </ul>
                    753: $textbottom
                    754: <input type="submit" value="$change" />
                    755: </form>
                    756: ENDSCREEN
                    757: }
                    758: 
                    759: sub verify_and_change_lockwarning {
                    760:     my $r = shift;
                    761:     &Apache::lonnet::remove_all_locks();
                    762:     $r->print(&mt('Cleared locks.'));
                    763: }
                    764: 
                    765: 
1.105     www       766: ################################################################
1.20      www       767: #         Message Forward                                      #
                    768: ################################################################
                    769: 
                    770: sub msgforwardchanger {
1.102     raeburn   771:     my ($r,$message) = @_;
1.59      albertel  772:     my $user       = $env{'user.name'};
                    773:     my $domain     = $env{'user.domain'};
1.102     raeburn   774:     my %userenv = &Apache::lonnet::get('environment',['msgforward','notification','critnotification','notifywithhtml']);
1.20      www       775:     my $msgforward=$userenv{'msgforward'};
1.102     raeburn   776:     my %lt = &Apache::lonlocal::texthash(
                    777:                                           all   => 'All',
                    778:                                           crit  => 'Critical only',
                    779:                                           reg   => 'Non-critical only',
                    780:                                           foad  => 'Forwarding Address(es)',
1.113     raeburn   781:                                           noti  => 'Notification E-mail Address(es)', 
1.110     bisitz    782:                                           foad_exmpl => 'e.g. <tt>userA:domain1,userB:domain2,...</tt>',
1.130     schafran  783:                                           mnot  => 'E-mail Address(es) which should be notified about new LON-CAPA messages',
                    784:  # old: 'Message Notification Email Address(es)',
1.110     bisitz    785:                                           mnot_exmpl => 'e.g. <tt>joe@doe.com</tt>',
1.136     schafran  786:                                           chg   => 'Save',
1.104     raeburn   787:                                           email => 'The e-mail address entered in row ',
1.102     raeburn   788:                                           notv => 'is not a valid e-mail address',
1.103     raeburn   789:                                           toen => "To enter multiple addresses, enter one address at a time, click 'Change' and then add the next one", 
1.136     schafran  790:                                           prme => 'Back',
1.102     raeburn   791:                                         );
1.126     droeschl  792:     Apache::lonhtmlcommon::add_breadcrumb(
                    793: 	    {	href => '/adm/preferences?action=changemsgforward',
                    794: 		text => 'Change Message Forwarding/Notification'});
1.147     schafran  795:     $r->print(Apache::loncommon::start_page('Message Management'));
1.126     droeschl  796:     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Message Forwarding/Notification'));
1.113     raeburn   797:     my $forwardingHelp = &Apache::loncommon::help_open_topic("Prefs_Forwarding");
                    798:     my $notificationHelp = &Apache::loncommon::help_open_topic("Prefs_Notification");
                    799:     my $criticalMessageHelp = &Apache::loncommon::help_open_topic("Course_Critical_Message");
1.102     raeburn   800:     my @allow_html = split(/,/,$userenv{'notifywithhtml'});
                    801:     my %allnot = &get_notifications(\%userenv);
                    802:     my $validatescript = &Apache::lonhtmlcommon::javascript_valid_email();
                    803:     my $jscript = qq|
1.148     bisitz    804: <script type="text/javascript" language="JavaScript">
1.102     raeburn   805: function validate() {
                    806:     for (var i=0; i<document.prefs.numnotify.value; i++) {
1.104     raeburn   807:         var checkaddress = 0;
1.102     raeburn   808:         var addr = document.prefs.elements['address_'+i].value;
1.104     raeburn   809:         var rownum = i+1;
1.102     raeburn   810:         if (i < document.prefs.numnotify.value-1) {
1.104     raeburn   811:             if (document.prefs.elements['modify_notify_'+i].checked) {
1.102     raeburn   812:                 checkaddress = 1;
1.104     raeburn   813:             }
1.102     raeburn   814:         } else {
                    815:             if (document.prefs.elements['add_notify_'+i].checked == true) { 
                    816:                 checkaddress = 1;
                    817:             }
                    818:         }
1.104     raeburn   819:         if (checkaddress == 1)  {
1.102     raeburn   820:             var addr = document.prefs.elements['address_'+i].value;
                    821:             if (validmail(document.prefs.elements['address_'+i]) == false) {
1.104     raeburn   822:                 var multimsg = '';
                    823:                 if (addr.indexOf(",") >= 0) {
                    824:                     multimsg = "\\n($lt{'toen'}).";
                    825:                 }
1.110     bisitz    826:                 alert("$lt{'email'} "+rownum+" ('"+addr+"') $lt{'notv'}."+multimsg);
1.102     raeburn   827:                 return;
                    828:             }
                    829:         }
                    830:     }
                    831:     document.prefs.submit();
                    832: }
1.104     raeburn   833: 
                    834: function address_changes (adnum) {
                    835:      if (!document.prefs.elements['del_notify_'+adnum].checked) { 
                    836:          document.prefs.elements['modify_notify_'+adnum].checked = true;
                    837:      }   
                    838: }
                    839: 
                    840: function new_address(adnum) {
                    841:      document.prefs.elements['add_notify_'+adnum].checked = true;
                    842: }
                    843: 
                    844: function delete_address(adnum) {
                    845:      if (document.prefs.elements['del_notify_'+adnum].checked) {
                    846:           document.prefs.elements['modify_notify_'+adnum].checked = false;
                    847:      }
                    848: }
                    849: 
                    850: function modify_address(adnum) {
                    851:     if (document.prefs.elements['modify_notify_'+adnum].checked) {
                    852:         document.prefs.elements['del_notify_'+adnum].checked = false;
                    853:     }
                    854: } 
                    855: 
1.102     raeburn   856: $validatescript
                    857: </script>
                    858: |;
1.20      www       859:     $r->print(<<ENDMSG);
1.102     raeburn   860: $jscript
                    861: $message
1.113     raeburn   862: <h3>$lt{'foad'} $forwardingHelp</h3>
1.88      albertel  863: <form name="prefs" action="/adm/preferences" method="post">
1.20      www       864: <input type="hidden" name="action" value="verify_and_change_msgforward" />
1.110     bisitz    865: $lt{'foad'} ($lt{'foad_exmpl'}):
1.113     raeburn   866: <input type="text" size="40" value="$msgforward" name="msgforward" /><br />
                    867: <h3>$lt{'noti'} $notificationHelp</h3>
1.110     bisitz    868: $lt{'mnot'} ($lt{'mnot_exmpl'}):<br />
1.102     raeburn   869: ENDMSG
                    870:     my @sortforwards = sort (keys(%allnot));
                    871:     my $output = &Apache::loncommon::start_data_table().
                    872:                  &Apache::loncommon::start_data_table_header_row().
1.104     raeburn   873:                  '<th>&nbsp;</th>'.
1.102     raeburn   874:                  '<th>'.&mt('Action').'</th>'.
                    875:                  '<th>'.&mt('Notification address').'</th><th>'.
1.113     raeburn   876:                  &mt('Types of message for which notification is sent').
                    877:                  $criticalMessageHelp.'</th><th>'.
1.104     raeburn   878:                  &mt('Excerpt retains HTML tags in message').'</th>'.
1.102     raeburn   879:                  &Apache::loncommon::end_data_table_header_row();
                    880:     my $num = 0;
1.104     raeburn   881:     my $counter = 1;
1.102     raeburn   882:     foreach my $item (@sortforwards) {
                    883:         $output .= &Apache::loncommon::start_data_table_row().
1.104     raeburn   884:                    '<td><b>'.$counter.'</b></td>'.
                    885:                    '<td><span class="LC_nobreak"><label>'.
                    886:                    '<input type="checkbox" name="modify_notify_'.
                    887:                    $num.'" onclick="javscript:modify_address('."'$num'".')" />'.
                    888:                    &mt('Modify').'</label></span>&nbsp;&nbsp; '.
                    889:                    '<span class="LC_nobreak"><label>'.
                    890:                    '<input type="checkbox" name="del_notify_'.$num.
                    891:                    '" onclick="javscript:delete_address('."'$num'".')" />'.
                    892:                    &mt('Delete').'</label></span></td>'.
1.102     raeburn   893:                    '<td><input type="text" value="'.$item.'" name="address_'.
1.104     raeburn   894:                    $num.'" onFocus="javascript:address_changes('."'$num'".
                    895:                    ')" /></td><td>';
1.102     raeburn   896:         my %chk;
                    897:         if (defined($allnot{$item}{'crit'})) {
                    898:             if (defined($allnot{$item}{'reg'})) {
                    899:                 $chk{'all'} = 'checked="checked" ';
                    900:             } else {
                    901:                 $chk{'crit'} = 'checked="checked" ';
                    902:             }
                    903:         } else {
                    904:             $chk{'reg'} = 'checked="checked" ';
                    905:         }
                    906:         foreach my $type ('all','crit','reg') {
                    907:             $output .= '<span class="LC_nobreak"><label>'.
                    908:                        '<input type="radio" name="notify_type_'.$num. 
1.104     raeburn   909:                        '" value="'.$type.'" '.$chk{$type}.
                    910:                        ' onchange="javascript:address_changes('."'$num'".')" />'.
                    911:                        $lt{$type}.'</label></span>&nbsp;';
1.102     raeburn   912:         }
                    913:         my $htmlon = '';
                    914:         my $htmloff = '';
                    915:         if (grep/^\Q$item\E/,@allow_html) {
                    916:             $htmlon = 'checked="checked" '; 
                    917:         } else {
                    918:             $htmloff = 'checked="checked" ';
                    919:         }
                    920:         $output .= '</td><td><label><input type="radio" name="html_'.$num.
1.104     raeburn   921:                    '" value="1" '.$htmlon.
                    922:                    ' onchange="javascript:address_changes('."'$num'".')" />'.
                    923:                    &mt('Yes').'</label>&nbsp;'.
1.102     raeburn   924:                    '<label><input type="radio" name="html_'.$num.'" value="0" '.
1.104     raeburn   925:                    $htmloff. ' onchange="javascript:address_changes('."'$num'".
                    926: ')" />'.
                    927:                    &mt('No').'</label></td>'.
1.102     raeburn   928:                    &Apache::loncommon::end_data_table_row();
                    929:         $num ++;
1.104     raeburn   930:         $counter ++;
1.102     raeburn   931:     }
                    932:     my %defchk = (
                    933:                    all => 'checked="checked" ',
                    934:                    crit => '',
                    935:                    reg => '',
                    936:                  );
                    937:     $output .= &Apache::loncommon::start_data_table_row().
1.104     raeburn   938:                '<td><b>'.$counter.'</b></td>'.
                    939:                '<td><span class="LC_nobreak"><label>'.
                    940:                '<input type="checkbox" name="add_notify_'.$num.
                    941:                '" value="1" />'.&mt('Add new address').'</label></span></td>'.
1.102     raeburn   942:                '<td><input type="text" value="" name="address_'.$num.
1.104     raeburn   943:                '" onFocus="javascript:new_address('."'$num'".')" /></td><td>';
1.102     raeburn   944:     foreach my $type ('all','crit','reg') {
                    945:         $output .= '<span class="LC_nobreak"><label>'.
                    946:                    '<input type="radio" name="notify_type_'.$num.
                    947:                    '" value="'.$type.'" '.$defchk{$type}.'/>'.
                    948:                    $lt{$type}.'</label></span>&nbsp;';
                    949:     }
                    950:     $output .= '</td><td><label><input type="radio" name="html_'.$num.
                    951:                '" value="1" />'.&mt('Yes').'</label>&nbsp;'.
                    952:                '<label><input type="radio" name="html_'.$num.'" value="0" '.
                    953:                ' checked="checked" />'.
                    954:                &mt('No').'</label></td>'.
                    955:                &Apache::loncommon::end_data_table_row().
                    956:                &Apache::loncommon::end_data_table();
                    957:     $num ++;
                    958:     $r->print($output);
                    959:     $r->print(qq|
1.113     raeburn   960: <br /><hr />
1.102     raeburn   961: <input type="hidden" name="numnotify" value="$num" />
1.136     schafran  962: <input type="button" value="$lt{'prme'}" onclick="location.href='/adm/preferences'" />
1.102     raeburn   963: <input type="button" value="$lt{'chg'}" onclick="javascript:validate()" />
1.20      www       964: </form>
1.102     raeburn   965: |);
                    966: 
                    967: }
                    968: 
                    969: sub get_notifications {
                    970:     my ($userenv) = @_;
                    971:     my %allnot;
                    972:     my @critnot = split(/,/,$userenv->{'critnotification'});
                    973:     my @regnot = split(/,/,$userenv->{'notification'});
                    974:     foreach my $item (@critnot) {
                    975:         $allnot{$item}{crit} = 1;
                    976:     }
                    977:     foreach my $item (@regnot) {
                    978:         $allnot{$item}{reg} = 1;
                    979:     }
                    980:     return %allnot;
1.20      www       981: }
                    982: 
                    983: sub verify_and_change_msgforward {
                    984:     my $r = shift;
1.59      albertel  985:     my $user       = $env{'user.name'};
                    986:     my $domain     = $env{'user.domain'};
1.20      www       987:     my $newscreen  = '';
                    988:     my $message='';
1.59      albertel  989:     foreach (split(/\,/,$env{'form.msgforward'})) {
1.20      www       990: 	my ($msuser,$msdomain)=split(/[\@\:]/,$_);
1.95      albertel  991:         $msuser = &LONCAPA::clean_username($msuser);
                    992:         $msdomain = &LONCAPA::clean_domain($msdomain);
1.20      www       993:         if (($msuser) && ($msdomain)) {
                    994: 	    if (&Apache::lonnet::homeserver($msuser,$msdomain) ne 'no_host') {
                    995:                $newscreen.=$msuser.':'.$msdomain.',';
                    996: 	   } else {
1.163     bisitz    997:                $message.= &mt('No such user: ').'<tt>'.$msuser.':'.$msdomain.'</tt><br />';
1.20      www       998:            }
                    999:         }
                   1000:     }
                   1001:     $newscreen=~s/\,$//;
                   1002:     if ($newscreen) {
                   1003:         &Apache::lonnet::put('environment',{'msgforward' => $newscreen});
1.116     raeburn  1004:         &Apache::lonnet::appenv({'environment.msgforward' => $newscreen});
1.110     bisitz   1005:         $message .= &mt('Set message forwarding to ').'<tt>"'.$newscreen.'"</tt>.'
                   1006:                     .'<br />';
1.20      www      1007:     } else {
                   1008:         &Apache::lonnet::del('environment',['msgforward']);
1.139     raeburn  1009:         &Apache::lonnet::delenv('environment.msgforward');
1.102     raeburn  1010:         $message.= &mt("Set message forwarding to 'off'.").'<br />';
1.20      www      1011:     }
1.102     raeburn  1012:     my $critnotification;
                   1013:     my $notification;
                   1014:     my $notify_with_html;
                   1015:     my $lastnotify = $env{'form.numnotify'}-1;
1.104     raeburn  1016:     my $totaladdresses = 0;
1.102     raeburn  1017:     for (my $i=0; $i<$env{'form.numnotify'}; $i++) {
                   1018:         if ((!defined($env{'form.del_notify_'.$i})) &&  
1.104     raeburn  1019:            ((($i==$lastnotify) && ($env{'form.add_notify_'.$lastnotify} == 1)) ||
1.102     raeburn  1020:             ($i<$lastnotify))) {
                   1021:             if (defined($env{'form.address_'.$i})) {
                   1022:                 if ($env{'form.notify_type_'.$i} eq 'all') {
                   1023:                     $critnotification .= $env{'form.address_'.$i}.',';
                   1024:                     $notification .= $env{'form.address_'.$i}.',';
                   1025:                 } elsif ($env{'form.notify_type_'.$i} eq 'crit') {
                   1026:                     $critnotification .= $env{'form.address_'.$i}.',';
                   1027:                 } elsif ($env{'form.notify_type_'.$i} eq 'reg') {
                   1028:                     $notification .= $env{'form.address_'.$i}.','; 
                   1029:                 }
                   1030:                 if ($env{'form.html_'.$i} eq '1') {
                   1031: 		    $notify_with_html .= $env{'form.address_'.$i}.',';       	
                   1032:                 }
1.104     raeburn  1033:                 $totaladdresses ++;
1.102     raeburn  1034:             }
                   1035:         }
                   1036:     }
                   1037:     $critnotification =~ s/,$//;
                   1038:     $critnotification=~s/\s//gs;
                   1039:     $notification =~ s/,$//;
1.20      www      1040:     $notification=~s/\s//gs;
1.102     raeburn  1041:     $notify_with_html =~ s/,$//;
                   1042:     $notify_with_html =~ s/\s//gs;
1.20      www      1043:     if ($notification) {
                   1044:         &Apache::lonnet::put('environment',{'notification' => $notification});
1.116     raeburn  1045:         &Apache::lonnet::appenv({'environment.notification' => $notification});
1.110     bisitz   1046:         $message.=&mt('Set non-critical message notification address(es) to ').'<tt>"'.$notification.'"</tt>.<br />';
1.20      www      1047:     } else {
                   1048:         &Apache::lonnet::del('environment',['notification']);
1.139     raeburn  1049:         &Apache::lonnet::delenv('environment.notification');
1.110     bisitz   1050:         $message.=&mt("Set non-critical message notification to 'off'.").'<br />';
1.20      www      1051:     }
                   1052:     if ($critnotification) {
                   1053:         &Apache::lonnet::put('environment',{'critnotification' => $critnotification});
1.116     raeburn  1054:         &Apache::lonnet::appenv({'environment.critnotification' => $critnotification});
1.110     bisitz   1055:         $message.=&mt('Set critical message notification address(es) to ').'<tt>"'.$critnotification.'"</tt>.<br />';
1.20      www      1056:     } else {
                   1057:         &Apache::lonnet::del('environment',['critnotification']);
1.139     raeburn  1058:         &Apache::lonnet::delenv('environment.critnotification');
1.110     bisitz   1059:         $message.=&mt("Set critical message notification to 'off'.").'<br />';
1.102     raeburn  1060:     }
                   1061:     if ($critnotification || $notification) {
                   1062:         if ($notify_with_html) {
                   1063:             &Apache::lonnet::put('environment',{'notifywithhtml' => $notify_with_html});
1.116     raeburn  1064:             &Apache::lonnet::appenv({'environment.notifywithhtml' => $notify_with_html});
1.110     bisitz   1065:             $message.=&mt('Set address(es) to receive excerpts with html retained ').'<tt>"'.$notify_with_html.'"</tt>.';
1.102     raeburn  1066:         } else {
                   1067:             &Apache::lonnet::del('environment',['notifywithhtml']);
1.139     raeburn  1068:             &Apache::lonnet::delenv('environment.notifywithhtml');
1.104     raeburn  1069:             if ($totaladdresses == 1) {
                   1070:                 $message.=&mt("Set notification address to receive excerpts with html stripped.");
                   1071:             } else {
                   1072:                 $message.=&mt("Set all notification addresses to receive excerpts with html stripped.");
                   1073:             }
1.102     raeburn  1074:         }
                   1075:     } else {
                   1076:         &Apache::lonnet::del('environment',['notifywithhtml']);
1.139     raeburn  1077:         &Apache::lonnet::delenv('environment.notifywithhtml');
1.102     raeburn  1078:     }
                   1079:     if ($message) {
                   1080:         $message .= '<br /><hr />';
1.20      www      1081:     }
1.109     albertel 1082:     &Apache::loncommon::flush_email_cache($user,$domain);
1.102     raeburn  1083:     &msgforwardchanger($r,$message);
1.6       www      1084: }
                   1085: 
1.12      www      1086: ################################################################
1.19      www      1087: #         Colors                                               #
1.12      www      1088: ################################################################
                   1089: 
1.19      www      1090: sub colorschanger {
1.12      www      1091:     my $r = shift;
1.126     droeschl 1092:     Apache::lonhtmlcommon::add_breadcrumb(
                   1093: 	    {	href => '/adm/preferences?action=changecolors',
                   1094:                 text => 'Change Colors'});
1.147     schafran 1095:     $r->print(Apache::loncommon::start_page('Page Display Settings'));
1.126     droeschl 1096:     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Colors'));
1.19      www      1097: # figure out colors
1.80      albertel 1098:     my $function=&Apache::loncommon::get_users_function();
1.19      www      1099:     my $domain=&Apache::loncommon::determinedomain();
1.157     bisitz   1100:     my %colortypes=&Apache::lonlocal::texthash(
                   1101:         'pgbg'     => 'Page Background Color',
                   1102:         'tabbg'    => 'Header Background Color',
                   1103:         'sidebg'   => 'Header Border Color',
                   1104:         'font'     => 'Font Color',
                   1105:         'fontmenu' => 'Font Menu Color',
                   1106:         'link'     => 'Un-Visited Link Color',
                   1107:         'vlink'    => 'Visited Link Color',
                   1108:         'alink'    => 'Active Link Color',
                   1109:     );
1.82      albertel 1110:     my $start_data_table = &Apache::loncommon::start_data_table();
1.19      www      1111:     my $chtable='';
1.22      matthew  1112:     foreach my $item (sort(keys(%colortypes))) {
1.19      www      1113:        my $curcol=&Apache::loncommon::designparm($function.'.'.$item,$domain);
1.82      albertel 1114:        $chtable.=&Apache::loncommon::start_data_table_row().
1.83      albertel 1115: 	   '<td>'.$colortypes{$item}.'</td><td style="background: '.$curcol.
1.19      www      1116:         '">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td><td><input name="'.$item.
1.21      www      1117:         '" size="10" value="'.$curcol.
                   1118: '" /></td><td><a href="javascript:pjump('."'color_custom','".$colortypes{$item}.
1.19      www      1119: "','".$curcol."','"
1.157     bisitz   1120: 	    .$item."','parmform.pres','psub'".');">'.&mt('Select').'</a></td>'.
1.83      albertel 1121: 	    &Apache::loncommon::end_data_table_row()."\n";
1.19      www      1122:     }
1.82      albertel 1123:     my $end_data_table = &Apache::loncommon::end_data_table();
1.23      matthew  1124:     my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
1.157     bisitz   1125:     my $savebutton = &mt('Save');
                   1126:     my $resetbutton = &mt('Reset All');
                   1127:     my $resetbuttondesc = &mt('Reset All Colors to Default');
1.19      www      1128:     $r->print(<<ENDCOL);
1.148     bisitz   1129: <script type="text/javascript" language="JavaScript">
1.19      www      1130: 
                   1131:     function pclose() {
                   1132:         parmwin=window.open("/adm/rat/empty.html","LONCAPAparms",
                   1133:                  "height=350,width=350,scrollbars=no,menubar=no");
                   1134:         parmwin.close();
                   1135:     }
                   1136: 
1.23      matthew  1137:     $pjump_def
1.19      www      1138: 
                   1139:     function psub() {
                   1140:         pclose();
                   1141:         if (document.parmform.pres_marker.value!='') {
1.21      www      1142:             if (document.parmform.pres_type.value!='') {
1.77      albertel 1143:                 eval('document.prefs.'+
1.21      www      1144:                      document.parmform.pres_marker.value+
1.19      www      1145: 		     '.value=document.parmform.pres_value.value;');
1.21      www      1146: 	    }
1.19      www      1147:         } else {
                   1148:             document.parmform.pres_value.value='';
                   1149:             document.parmform.pres_marker.value='';
                   1150:         }
                   1151:     }
                   1152: 
                   1153: 
                   1154: </script>
1.21      www      1155: <form name="parmform">
                   1156: <input type="hidden" name="pres_marker" />
                   1157: <input type="hidden" name="pres_type" />
                   1158: <input type="hidden" name="pres_value" />
                   1159: </form>
1.88      albertel 1160: <form name="prefs" action="/adm/preferences" method="post">
1.19      www      1161: <input type="hidden" name="action" value="verify_and_change_colors" />
1.82      albertel 1162: $start_data_table
1.19      www      1163: $chtable
1.82      albertel 1164: $end_data_table
1.19      www      1165: </table>
1.157     bisitz   1166: <p>
                   1167: <input type="submit" value="$savebutton" />
                   1168: <input type="submit" name="resetall" value="$resetbutton" title="$resetbuttondesc" />
                   1169: </p>
1.12      www      1170: </form>
1.19      www      1171: ENDCOL
1.12      www      1172: }
                   1173: 
1.19      www      1174: sub verify_and_change_colors {
1.12      www      1175:     my $r = shift;
1.19      www      1176: # figure out colors
1.80      albertel 1177:     my $function=&Apache::loncommon::get_users_function();
1.19      www      1178:     my $domain=&Apache::loncommon::determinedomain();
1.157     bisitz   1179:     my %colortypes=&Apache::lonlocal::texthash(
                   1180:         'pgbg'     => 'Page Background Color',
                   1181:         'tabbg'    => 'Header Background Color',
                   1182:         'sidebg'   => 'Header Border Color',
                   1183:         'font'     => 'Font Color',
                   1184: 	'fontmenu' => 'Font Menu Color',
                   1185:         'link'     => 'Un-Visited Link Color',
                   1186:         'vlink'    => 'Visited Link Color',
                   1187:         'alink'    => 'Active Link Color',
                   1188:     );
1.19      www      1189: 
1.12      www      1190:     my $message='';
1.21      www      1191:     foreach my $item (keys %colortypes) {
1.59      albertel 1192:         my $color=$env{'form.'.$item};
1.21      www      1193:         my $entry='color.'.$function.'.'.$item;
1.59      albertel 1194: 	if (($color=~/^\#[0-9A-Fa-f]{6}$/) && (!$env{'form.resetall'})) {
1.21      www      1195: 	    &Apache::lonnet::put('environment',{$entry => $color});
1.116     raeburn  1196: 	    &Apache::lonnet::appenv({'environment.'.$entry => $color});
1.157     bisitz   1197:             $message.=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.$colortypes{$item}.'</i>','<tt>"'.$color.'"</tt>'))
                   1198:                     .'<br />';
1.21      www      1199: 	} else {
                   1200: 	    &Apache::lonnet::del('environment',[$entry]);
1.138     schafran 1201: 	    &Apache::lonnet::delenv('environment.'.$entry);
1.157     bisitz   1202:             $message.=&Apache::lonhtmlcommon::confirm_success(&mt('Reset [_1]','<i>'.$colortypes{$item}.'</i>'))
                   1203:                      .'<br />';
1.21      www      1204: 	}
                   1205:     }
1.158     bisitz   1206:     $message=&Apache::loncommon::confirmwrapper($message);
1.157     bisitz   1207: 
1.84      albertel 1208:     my $now = time;
                   1209:     &Apache::lonnet::put('environment',{'color.timestamp' => $now});
1.116     raeburn  1210:     &Apache::lonnet::appenv({'environment.color.timestamp' => $now});
1.84      albertel 1211: 
1.152     www      1212:     &print_main_menu($r, $message);
1.12      www      1213: }
                   1214: 
1.4       matthew  1215: ######################################################
                   1216: #            password handler subroutines            #
                   1217: ######################################################
1.3       matthew  1218: sub passwordchanger {
1.94      raeburn  1219:     my ($r,$errormessage,$caller,$mailtoken) = @_;
1.4       matthew  1220:     # This function is a bit of a mess....
1.3       matthew  1221:     # Passwords are encrypted using londes.js (DES encryption)
1.4       matthew  1222:     $errormessage = ($errormessage || '');
1.94      raeburn  1223:     my ($user,$domain,$currentpass,$defdom);
1.152     www      1224:     &Apache::lonhtmlcommon::add_breadcrumb(
1.126     droeschl 1225: 		{ href => '/adm/preferences?action=changepass',
                   1226:                   text => 'Change Password'});
1.144     raeburn  1227:     unless ($caller eq 'reset_by_email') {
1.147     schafran 1228:         $r->print(Apache::loncommon::start_page('Personal Data'));
1.144     raeburn  1229:         $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Password'));
                   1230:     }
1.94      raeburn  1231:     if ((!defined($caller)) || ($caller eq 'preferences')) {
                   1232:         $user = $env{'user.name'};
                   1233:         $domain = $env{'user.domain'};
                   1234:         if (!defined($caller)) {
                   1235:             $caller = 'preferences';
                   1236:         }
                   1237:     } elsif ($caller eq 'reset_by_email') {
                   1238:             $defdom = $r->dir_config('lonDefDomain');
                   1239:             my %data = &Apache::lonnet::tmpget($mailtoken);
                   1240:             if (keys(%data) == 0) {
1.155     bisitz   1241:                 $r->print(&mt('Sorry, the URL you provided to complete the reset of your password was invalid. Either the token included in the URL has been deleted or the URL you provided was invalid. Please submit a [_1]new request[_2] for a password reset, and follow the link to the new URL included in the e-mail that will be sent to you, to allow you to enter a new password.'
                   1242:                              ,'<a href="/adm/resetpw">','</a>')
                   1243:                 );
1.94      raeburn  1244:                 return;
                   1245:             }
                   1246:             if (defined($data{time})) {
                   1247:                 if (time - $data{'time'} < 7200) {
                   1248:                     $user = $data{'username'};
                   1249:                     $domain = $data{'domain'};
                   1250:                     $currentpass = $data{'temppasswd'};
                   1251:                 } else {
                   1252:                     $r->print(&mt('Sorry, the token generated when you requested a password reset has expired.').'<br />');
                   1253:                     return;
                   1254:                 }
                   1255:             } else {
                   1256:                 $r->print(&mt('Sorry, the URL generated when you requested reset of your password contained incomplete information.').'<br />');
                   1257:                 return;
                   1258:             }
                   1259:    } else {
                   1260:         $r->print(&mt('Page requested in unexpected context').'<br />');
                   1261:         return;
                   1262:     }
1.3       matthew  1263:     my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain);
                   1264:     # Check for authentication types that allow changing of the password.
                   1265:     return if ($currentauth !~ /^(unix|internal):/);
                   1266:     #
                   1267:     # Generate keys
                   1268:     my ($lkey_cpass ,$ukey_cpass ) = &des_keys();
                   1269:     my ($lkey_npass1,$ukey_npass1) = &des_keys();
                   1270:     my ($lkey_npass2,$ukey_npass2) = &des_keys();
1.4       matthew  1271:     # Store the keys in the log files
1.3       matthew  1272:     my $lonhost = $r->dir_config('lonHostID');
                   1273:     my $logtoken=Apache::lonnet::reply('tmpput:'
                   1274: 				       .$ukey_cpass  . $lkey_cpass .'&'
                   1275: 				       .$ukey_npass1 . $lkey_npass1.'&'
                   1276: 				       .$ukey_npass2 . $lkey_npass2,
                   1277: 				       $lonhost);
1.4       matthew  1278:     # Hexify the keys for output as javascript variables
1.94      raeburn  1279:     my %hexkey;
                   1280:     $hexkey{'ukey_cpass'}  = hex($ukey_cpass);
                   1281:     $hexkey{'lkey_cpass'}  = hex($lkey_cpass);
                   1282:     $hexkey{'ukey_npass1'} = hex($ukey_npass1);
                   1283:     $hexkey{'lkey_npass1'} = hex($lkey_npass1);
                   1284:     $hexkey{'ukey_npass2'} = hex($ukey_npass2);
                   1285:     $hexkey{'lkey_npass2'} = hex($lkey_npass2);
1.3       matthew  1286:     # Output javascript to deal with passwords
1.4       matthew  1287:     # Output DES javascript
1.3       matthew  1288:     {
                   1289: 	my $include = $r->dir_config('lonIncludes');
                   1290: 	my $jsh=Apache::File->new($include."/londes.js");
                   1291: 	$r->print(<$jsh>);
                   1292:     }
1.94      raeburn  1293:     $r->print(&jscript_send($caller));
1.3       matthew  1294:     $r->print(<<ENDFORM);
1.94      raeburn  1295: $errormessage
                   1296: 
                   1297: <p>
                   1298: <!-- We separate the forms into 'server' and 'client' in order to
                   1299:      ensure that unencrypted passwords will not be sent out by a
                   1300:      crappy browser -->
                   1301: ENDFORM
                   1302:     $r->print(&server_form($logtoken,$caller,$mailtoken));
                   1303:     $r->print(&client_form($caller,\%hexkey,$currentpass,$defdom));
                   1304: 
                   1305:     #
                   1306:     return;
                   1307: }
                   1308: 
                   1309: sub jscript_send {
                   1310:     my ($caller) = @_;
                   1311:     my $output = qq|
1.148     bisitz   1312: <script type="text/javascript" language="JavaScript">
1.3       matthew  1313: 
                   1314:     function send() {
                   1315:         uextkey=this.document.client.elements.ukey_cpass.value;
                   1316:         lextkey=this.document.client.elements.lkey_cpass.value;
                   1317:         initkeys();
                   1318: 
1.52      raeburn  1319:         this.document.pserver.elements.currentpass.value
1.3       matthew  1320:             =crypted(this.document.client.elements.currentpass.value);
                   1321: 
                   1322:         uextkey=this.document.client.elements.ukey_npass1.value;
                   1323:         lextkey=this.document.client.elements.lkey_npass1.value;
                   1324:         initkeys();
1.52      raeburn  1325:         this.document.pserver.elements.newpass_1.value
1.3       matthew  1326:             =crypted(this.document.client.elements.newpass_1.value);
                   1327: 
                   1328:         uextkey=this.document.client.elements.ukey_npass2.value;
                   1329:         lextkey=this.document.client.elements.lkey_npass2.value;
                   1330:         initkeys();
1.52      raeburn  1331:         this.document.pserver.elements.newpass_2.value
1.3       matthew  1332:             =crypted(this.document.client.elements.newpass_2.value);
1.94      raeburn  1333: |;
                   1334:     if ($caller eq 'reset_by_email') {
                   1335:         $output .= qq|
                   1336:         this.document.pserver.elements.uname.value =
                   1337:                    this.document.client.elements.uname.value;
                   1338:         this.document.pserver.elements.udom.value =
                   1339:                    this.document.client.elements.udom.options[this.document.client.elements.udom.selectedIndex].value;
                   1340: |;
                   1341:     }
                   1342:     $ output .= qq|
1.52      raeburn  1343:         this.document.pserver.submit();
1.3       matthew  1344:     }
                   1345: </script>
1.94      raeburn  1346: |;
                   1347: }
1.3       matthew  1348: 
1.94      raeburn  1349: sub client_form {
                   1350:     my ($caller,$hexkey,$currentpass,$defdom) = @_;
1.99      www      1351:     my %lt=&Apache::lonlocal::texthash(
1.115     raeburn  1352:                 'email' => 'E-mail Address',
1.99      www      1353:                 'username' => 'Username',
                   1354:                 'domain' => 'Domain',
                   1355:                 'currentpass' => 'Current Password',
                   1356:                 'newpass' => 'New Password',
                   1357:                 'confirmpass' => 'Confirm Password',
1.136     schafran 1358:                 'changepass' => 'Save');
1.99      www      1359: 
1.164   ! bisitz   1360:     my $output = '<form name="client">'
        !          1361:                 .&Apache::lonhtmlcommon::start_pick_box();
1.94      raeburn  1362:     if ($caller eq 'reset_by_email') {
1.164   ! bisitz   1363:         $output .= &Apache::lonhtmlcommon::row_title(
        !          1364:                        '<label for="email">'.$lt{'email'}.'</label>')
        !          1365:                   .'<input type="text" name="email" size="30" />'
        !          1366:                   .&Apache::lonhtmlcommon::row_closure()
        !          1367:                   .&Apache::lonhtmlcommon::row_title(
        !          1368:                        '<label for="uname">'.$lt{'username'}.'</label>')
        !          1369:                   .'<input type="text" name="uname" size="15" />'
        !          1370:                   .'<input type="hidden" name="currentpass" value="'.$currentpass.'" />'
        !          1371:                   .&Apache::lonhtmlcommon::row_closure()
        !          1372:                   .&Apache::lonhtmlcommon::row_title(
        !          1373:                        '<label for="udom">'.$lt{'domain'}.'</label>')
        !          1374:                   .&Apache::loncommon::select_dom_form($defdom,'udom')
        !          1375:                   .&Apache::lonhtmlcommon::row_closure();
1.94      raeburn  1376:     } else {
1.164   ! bisitz   1377:         $output .= &Apache::lonhtmlcommon::row_title(
        !          1378:                        '<label for="currentpass">'.$lt{'currentpass'}.'</label>')
        !          1379:                   .'<input type="password" name="currentpass" size="10"/>'
        !          1380:                   .&Apache::lonhtmlcommon::row_closure();
        !          1381:     }
        !          1382:     $output .= &Apache::lonhtmlcommon::row_title(
        !          1383:                    '<label for="newpass_1">'.$lt{'newpass'}.'</label>')
        !          1384:               .'<input type="password" name="newpass_1" size="10" />'
        !          1385:               .&Apache::lonhtmlcommon::row_closure()
        !          1386:               .&Apache::lonhtmlcommon::row_title(
        !          1387:                    '<label for="newpass_2">'.$lt{'confirmpass'}.'</label>')
        !          1388:               .'<input type="password" name="newpass_2" size="10" />'
        !          1389:               .&Apache::lonhtmlcommon::row_closure(1)
        !          1390:               .&Apache::lonhtmlcommon::end_pick_box();
        !          1391:     $output .= '<p><input type="button" value="'.$lt{'changepass'}.'" onClick="send();" /></p>'
        !          1392:               .qq|
1.94      raeburn  1393: <input type="hidden" name="ukey_cpass"  value="$hexkey->{'ukey_cpass'}" />
                   1394: <input type="hidden" name="lkey_cpass"  value="$hexkey->{'lkey_cpass'}" />
                   1395: <input type="hidden" name="ukey_npass1" value="$hexkey->{'ukey_npass1'}" />
                   1396: <input type="hidden" name="lkey_npass1" value="$hexkey->{'lkey_npass1'}" />
                   1397: <input type="hidden" name="ukey_npass2" value="$hexkey->{'ukey_npass2'}" />
                   1398: <input type="hidden" name="lkey_npass2" value="$hexkey->{'lkey_npass2'}" />
1.3       matthew  1399: </form>
                   1400: </p>
1.164   ! bisitz   1401: |;
1.94      raeburn  1402:     return $output;
                   1403: }
                   1404: 
                   1405: sub server_form {
                   1406:     my ($logtoken,$caller,$mailtoken) = @_;
                   1407:     my $action = '/adm/preferences';
                   1408:     if ($caller eq 'reset_by_email') {
                   1409:         $action = '/adm/resetpw';
                   1410:     }
                   1411:     my $output = qq|
                   1412: <form name="pserver" action="$action" method="post">
                   1413: <input type="hidden" name="logtoken"    value="$logtoken" />
                   1414: <input type="hidden" name="currentpass" value="" />
                   1415: <input type="hidden" name="newpass_1"   value="" />
                   1416: <input type="hidden" name="newpass_2"   value="" />
                   1417:     |;
                   1418:     if ($caller eq 'reset_by_email') {
                   1419:         $output .=  qq|
                   1420: <input type="hidden" name="token"   value="$mailtoken" />
                   1421: <input type="hidden" name="uname"   value="" />
                   1422: <input type="hidden" name="udom"   value="" />
                   1423: 
                   1424: |;
                   1425:     }
                   1426:     $output .= qq|
                   1427: <input type="hidden" name="action" value="verify_and_change_pass" />
                   1428: </form>
                   1429: |;
                   1430:     return $output;
1.3       matthew  1431: }
                   1432: 
                   1433: sub verify_and_change_password {
1.94      raeburn  1434:     my ($r,$caller,$mailtoken) = @_;
                   1435:     my ($user,$domain,$homeserver);
                   1436:     if ($caller eq 'reset_by_email') {
                   1437:         $user       = $env{'form.uname'};
                   1438:         $domain     = $env{'form.udom'};
                   1439:         if ($user ne '' && $domain ne '') {
                   1440:             $homeserver = &Apache::lonnet::homeserver($user,$domain);
                   1441:             if ($homeserver eq 'no_host') {
1.99      www      1442:         &passwordchanger($r,"<p>\n<span class='LC_error'>".
                   1443:                          &mt("Invalid username and/or domain")."</span>\n</p>",
1.94      raeburn  1444:                          $caller,$mailtoken);
                   1445:                 return 1;
                   1446:             }
                   1447:         } else {
1.99      www      1448:             &passwordchanger($r,"<p>\n<span class='LC_error'>".
                   1449:                              &mt("Username and domain were blank")."</span>\n</p>",
1.94      raeburn  1450:                              $caller,$mailtoken);
                   1451:             return 1;
                   1452:         }
                   1453:     } else {
                   1454:         $user       = $env{'user.name'};
                   1455:         $domain     = $env{'user.domain'};
                   1456:         $homeserver = $env{'user.home'};
                   1457:     }
1.3       matthew  1458:     my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain);
1.4       matthew  1459:     # Check for authentication types that allow changing of the password.
1.94      raeburn  1460:     if ($currentauth !~ /^(unix|internal):/) {
                   1461:         if ($caller eq 'reset_by_email') {
1.99      www      1462:             &passwordchanger($r,"<p>\n<span class='LC_error'>".
                   1463:                              &mt("Authentication type for this user can not be changed by this mechanism").
                   1464:                              "</span>\n</p>",
1.94      raeburn  1465:                               $caller,$mailtoken);
                   1466:             return 1;
                   1467:         } else {
                   1468:             return;
                   1469:         }
                   1470:     }
1.3       matthew  1471:     #
1.59      albertel 1472:     my $currentpass = $env{'form.currentpass'}; 
                   1473:     my $newpass1    = $env{'form.newpass_1'}; 
                   1474:     my $newpass2    = $env{'form.newpass_2'};
                   1475:     my $logtoken    = $env{'form.logtoken'};
1.3       matthew  1476:     # Check for empty data 
1.4       matthew  1477:     unless (defined($currentpass) && 
                   1478: 	    defined($newpass1)    && 
                   1479: 	    defined($newpass2)    ){
1.99      www      1480: 	&passwordchanger($r,"<p>\n<span class='LC_error'>".
                   1481: 			 &mt("One or more password fields were blank").
                   1482:                          "</span>\n</p>",$caller,$mailtoken);
1.3       matthew  1483: 	return;
                   1484:     }
1.16      albertel 1485:     # Get the keys
                   1486:     my $lonhost = $r->dir_config('lonHostID');
1.3       matthew  1487:     my $tmpinfo = Apache::lonnet::reply('tmpget:'.$logtoken,$lonhost);
                   1488:     if (($tmpinfo=~/^error/) || ($tmpinfo eq 'con_lost')) {
1.4       matthew  1489:         # I do not a have a better idea about how to handle this
1.94      raeburn  1490:         my $tryagain_text = &mt('Please log out and try again.');
                   1491:         if ($caller eq 'reset_by_email') {
                   1492:             $tryagain_text = &mt('Please try again later.');
                   1493:         }
1.101     albertel 1494:         my $unable=&mt("Unable to retrieve saved token for password decryption");
1.3       matthew  1495: 	$r->print(<<ENDERROR);
                   1496: <p>
1.99      www      1497: <span class="LC_error">$unable.  $tryagain_text</span>
1.3       matthew  1498: </p>
                   1499: ENDERROR
1.4       matthew  1500:         # Probably should log an error here
1.75      albertel 1501:         return 1;
1.3       matthew  1502:     }
                   1503:     my ($ckey,$n1key,$n2key)=split(/&/,$tmpinfo);
1.4       matthew  1504:     # 
1.17      matthew  1505:     $currentpass = &des_decrypt($ckey ,$currentpass);
                   1506:     $newpass1    = &des_decrypt($n1key,$newpass1);
                   1507:     $newpass2    = &des_decrypt($n2key,$newpass2);
1.94      raeburn  1508:     #
                   1509:     if ($caller eq 'reset_by_email') {
                   1510:         my %data = &Apache::lonnet::tmpget($mailtoken);
1.117     raeburn  1511:         if (keys(%data) == 0) {
                   1512:             &passwordchanger($r,
                   1513:                          '<span class="LC_error">'.
                   1514:                          &mt('Could not verify current authentication.').'  '.
                   1515:                          &mt('Please try again.').'</span>',$caller,$mailtoken);
                   1516:             return 1;
                   1517:         }
1.94      raeburn  1518:         if ($currentpass ne $data{'temppasswd'}) {
                   1519:             &passwordchanger($r,
1.99      www      1520:                          '<span class="LC_error">'.
1.110     bisitz   1521:                          &mt('Could not verify current authentication.').'  '.
                   1522:                          &mt('Please try again.').'</span>',$caller,$mailtoken);
1.94      raeburn  1523:             return 1;
                   1524:         }
                   1525:     } 
1.3       matthew  1526:     if ($newpass1 ne $newpass2) {
1.4       matthew  1527: 	&passwordchanger($r,
1.99      www      1528: 			 '<span class="LC_error">'.
1.110     bisitz   1529: 			 &mt('The new passwords you entered do not match.').'  '.
                   1530: 			 &mt('Please try again.').'</span>',$caller,$mailtoken);
1.75      albertel 1531: 	return 1;
1.4       matthew  1532:     }
                   1533:     if (length($newpass1) < 7) {
                   1534: 	&passwordchanger($r,
1.99      www      1535: 			 '<span class="LC_error">'.
1.110     bisitz   1536: 			 &mt('Passwords must be a minimum of 7 characters long.').'  '.
                   1537: 			 &mt('Please try again.').'</span>',$caller,$mailtoken);
1.75      albertel 1538: 	return 1;
1.3       matthew  1539:     }
1.4       matthew  1540:     #
                   1541:     # Check for bad characters
                   1542:     my $badpassword = 0;
                   1543:     foreach (split(//,$newpass1)) {
                   1544: 	$badpassword = 1 if ((ord($_)<32)||(ord($_)>126));
                   1545:     }
                   1546:     if ($badpassword) {
                   1547: 	# I can't figure out how to enter bad characters on my browser.
1.99      www      1548: 	my $errormessage ='<span class="LC_error">'.
1.110     bisitz   1549:            &mt('The password you entered contained illegal characters.').'<br />'.
1.99      www      1550:            &mt('Valid characters are').(<<"ENDERROR");
                   1551: : space and <br />
1.4       matthew  1552: <pre>
                   1553: !&quot;\#$%&amp;\'()*+,-./0123456789:;&lt;=&gt;?\@
                   1554: ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_\`abcdefghijklmnopqrstuvwxyz{|}~
1.99      www      1555: </pre></span>
1.4       matthew  1556: ENDERROR
1.94      raeburn  1557:         &passwordchanger($r,$errormessage,$caller,$mailtoken);
                   1558:         return 1;
1.4       matthew  1559:     }
                   1560:     # 
                   1561:     # Change the password (finally)
                   1562:     my $result = &Apache::lonnet::changepass
1.94      raeburn  1563: 	($user,$domain,$currentpass,$newpass1,$homeserver,$caller);
1.4       matthew  1564:     # Inform the user the password has (not?) been changed
1.126     droeschl 1565:     my $message;
1.4       matthew  1566:     if ($result =~ /^ok$/) {
1.158     bisitz   1567:         $message = &Apache::lonhtmlcommon::confirm_success(&mt('The password for user [_1] was successfully changed.','<i>'.$user.'<i>'));
1.144     raeburn  1568:         if ($caller eq 'reset_by_email') {
                   1569:             $r->print($message.'<br />');
                   1570:         } else {
                   1571:             &print_main_menu($r, $message);
                   1572:         }
1.4       matthew  1573:     } else {
                   1574: 	# error error: run in circles, scream and shout
1.154     www      1575:         $message = &Apache::lonhtmlcommon::confirm_success(
1.158     bisitz   1576:           &mt("The password for user [_1] was not changed.",'<i>'.$user.'</i>').' '.&mt('Please make sure your old password was entered correctly.'),1);
1.144     raeburn  1577:         unless ($caller eq 'reset_by_email') {
1.158     bisitz   1578:             $message=&Apache::loncommon::confirmwrapper($message);
1.144     raeburn  1579:             &print_main_menu($r, $message);
                   1580:         }
1.75      albertel 1581:         return 1;
1.4       matthew  1582:     }
                   1583:     return;
1.3       matthew  1584: }
                   1585: 
1.42      raeburn  1586: ################################################################
                   1587: #            discussion display subroutines 
                   1588: ################################################################
                   1589: sub discussionchanger {
                   1590:     my $r = shift;
1.126     droeschl 1591:     Apache::lonhtmlcommon::add_breadcrumb(
                   1592: 	    {	href => '/adm/preferences?action=changediscussions',
                   1593:                 text => 'Change Discussion Preferences'});
1.147     schafran 1594:     $r->print(Apache::loncommon::start_page('Message Management'));
1.126     droeschl 1595:     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Discussion Preferences'));
1.59      albertel 1596:     my $user       = $env{'user.name'};
                   1597:     my $domain     = $env{'user.domain'};
1.42      raeburn  1598:     my %userenv = &Apache::lonnet::get
1.43      raeburn  1599:         ('environment',['discdisplay','discmarkread']);
                   1600:     my $discdisp = 'allposts';
                   1601:     my $discmark = 'onmark';
                   1602: 
                   1603:     if (defined($userenv{'discdisplay'})) {
                   1604:         unless ($userenv{'discdisplay'} eq '') { 
                   1605:             $discdisp = $userenv{'discdisplay'};
                   1606:         }
                   1607:     }
                   1608:     if (defined($userenv{'discmarkread'})) {
                   1609:         unless ($userenv{'discdisplay'} eq '') { 
                   1610:             $discmark = $userenv{'discmarkread'};
                   1611:         }
                   1612:     }
                   1613: 
                   1614:     my $newdisp = 'unread';
                   1615:     my $newmark = 'ondisp';
                   1616: 
                   1617:     my $function = &Apache::loncommon::get_users_function();
                   1618:     my $color = &Apache::loncommon::designparm($function.'.tabbg',
1.59      albertel 1619:                                                     $env{'user.domain'});
1.43      raeburn  1620:     my %lt = &Apache::lonlocal::texthash(
                   1621:         'pref' => 'Display Preference',
                   1622:         'curr' => 'Current setting ',
                   1623:         'actn' => 'Action',
1.135     schafran 1624:         'sdpf' => 'Set display preferences for discussion posts for both discussion boards and individual resources in all your courses.',
1.43      raeburn  1625:         'prca' => 'Preferences can be set that determine',
1.135     schafran 1626:         'whpo' => 'Which posts are displayed when you display a discussion board or resource, and',
1.43      raeburn  1627:         'unwh' => 'Under what circumstances posts are identfied as "New"',
                   1628:         'allposts' => 'All posts',
                   1629:         'unread' => 'New posts only',
                   1630:         'ondisp' => 'Once displayed',
                   1631:         'onmark' => 'Once marked as read',
                   1632:         'disa' => 'Posts displayed?',
                   1633:         'npmr' => 'New posts cease to be identified as "New"?',
                   1634:         'thde'  => 'The preferences you set here can be overridden within each individual discussion.',
                   1635:         'chgt' => 'Change to '
                   1636:     );
                   1637:     my $dispchange = $lt{'unread'};
                   1638:     my $markchange = $lt{'ondisp'};
                   1639:     my $currdisp = $lt{'allposts'};
                   1640:     my $currmark = $lt{'onmark'};
                   1641: 
                   1642:     if ($discdisp eq 'unread') {
                   1643:         $dispchange = $lt{'allposts'};
                   1644:         $currdisp = $lt{'unread'};
                   1645:         $newdisp = 'allposts';
                   1646:     }
                   1647: 
                   1648:     if ($discmark eq 'ondisp') {
                   1649:         $markchange = $lt{'onmark'};
                   1650:         $currmark = $lt{'ondisp'};
                   1651:         $newmark = 'onmark';
1.42      raeburn  1652:     }
1.43      raeburn  1653:     
                   1654:     $r->print(<<"END");
1.88      albertel 1655: <form name="prefs" action="/adm/preferences" method="post">
1.42      raeburn  1656: <input type="hidden" name="action" value="verify_and_change_discussion" />
                   1657: <br />
1.87      albertel 1658: $lt{'sdpf'}<br /> $lt{'prca'}  <ol><li>$lt{'whpo'}</li><li>$lt{'unwh'}</li></ol> 
1.82      albertel 1659: END
1.158     bisitz   1660: 
                   1661:     $r->print('<p class="LC_info">'.$lt{'thde'}.'</p>');
                   1662: 
1.82      albertel 1663:     $r->print(&Apache::loncommon::start_data_table());
                   1664:     $r->print(<<"END");
                   1665:        <tr>
                   1666:         <th>$lt{'pref'}</th>
                   1667:         <th>$lt{'curr'}</th>
                   1668:         <th>$lt{'actn'}?</th>
1.43      raeburn  1669:        </tr>
1.82      albertel 1670: END
                   1671:     $r->print(&Apache::loncommon::start_data_table_row());
                   1672:     $r->print(<<"END");
1.43      raeburn  1673:        <td>$lt{'disa'}</td>
                   1674:        <td>$lt{$discdisp}</td>
1.82      albertel 1675:        <td><label><input type="checkbox" name="discdisp" /><input type="hidden" name="newdisp" value="$newdisp" />&nbsp;$lt{'chgt'} "$dispchange"</label></td>
                   1676: END
                   1677:     $r->print(&Apache::loncommon::end_data_table_row().
                   1678: 	      &Apache::loncommon::start_data_table_row());
                   1679:     $r->print(<<"END");
1.43      raeburn  1680:        <td>$lt{'npmr'}</td>
                   1681:        <td>$lt{$discmark}</td>
1.82      albertel 1682:        <td><label><input type="checkbox" name="discmark" /><input type="hidden" name="newmark" value="$newmark" />&nbsp;$lt{'chgt'} "$markchange"</label></td>
1.43      raeburn  1683:       </tr>
1.82      albertel 1684: END
                   1685:     $r->print(&Apache::loncommon::end_data_table_row().
                   1686: 	      &Apache::loncommon::end_data_table());
1.142     zhu      1687: 
1.158     bisitz   1688:     $r->print('<br />'
                   1689:              .'<input type="submit" name="sub" value="'.&mt('Save').'" />'
                   1690:              .'</form>'
                   1691:     );
1.42      raeburn  1692: }
                   1693:                                                                                                                 
                   1694: sub verify_and_change_discussion {
                   1695:     my $r = shift;
1.59      albertel 1696:     my $user     = $env{'user.name'};
                   1697:     my $domain   = $env{'user.domain'};
1.42      raeburn  1698:     my $message='';
1.59      albertel 1699:     if (defined($env{'form.discdisp'}) ) {
                   1700:         my $newdisp  = $env{'form.newdisp'};
1.43      raeburn  1701:         if ($newdisp eq 'unread') {
1.110     bisitz   1702:             $message .=&mt('In discussions: only new posts will be displayed.').'<br />';
1.43      raeburn  1703:             &Apache::lonnet::put('environment',{'discdisplay' => $newdisp});
1.116     raeburn  1704:             &Apache::lonnet::appenv({'environment.discdisplay' => $newdisp});
1.43      raeburn  1705:         } else {
1.110     bisitz   1706:             $message .= &mt('In discussions: all posts will be displayed.').'<br />';
1.43      raeburn  1707:             &Apache::lonnet::del('environment',['discdisplay']);
1.139     raeburn  1708:             &Apache::lonnet::delenv('environment.discdisplay');
1.43      raeburn  1709:         }
                   1710:     }
1.59      albertel 1711:     if (defined($env{'form.discmark'}) ) {
                   1712:         my $newmark = $env{'form.newmark'};
1.43      raeburn  1713:         if ($newmark eq 'ondisp') {
1.152     www      1714:             $message.=&Apache::lonhtmlcommon::confirm_success(&mt('In discussions: new posts will be cease to be identified as "NEW" after display.')).'<br />';
1.43      raeburn  1715:             &Apache::lonnet::put('environment',{'discmarkread' => $newmark});
1.116     raeburn  1716:             &Apache::lonnet::appenv({'environment.discmarkread' => $newmark});
1.43      raeburn  1717:         } else {
1.152     www      1718:             $message.=&Apache::lonhtmlcommon::confirm_success(&mt('In discussions: posts will be identified as "NEW" until marked as read by the reader.')).'<br />';
1.43      raeburn  1719:             &Apache::lonnet::del('environment',['discmarkread']);
1.139     raeburn  1720:             &Apache::lonnet::delenv('environment.discmarkread');
1.43      raeburn  1721:         }
1.42      raeburn  1722:     }
1.158     bisitz   1723:     $message=&Apache::loncommon::confirmwrapper($message);
1.152     www      1724:     &print_main_menu($r, $message);
1.42      raeburn  1725: }
                   1726: 
1.63      raeburn  1727: ################################################################
                   1728: # Subroutines for page display on course access (Course Coordinators)
                   1729: ################################################################
                   1730: sub coursedisplaychanger {
                   1731:     my $r = shift;
1.152     www      1732:     &Apache::lonhtmlcommon::add_breadcrumb(
1.126     droeschl 1733: 	    {	href => '/adm/preferences?action=changecourseinit',
                   1734:                 text => 'Change Course Init. Pref.'});
                   1735:     $r->print(Apache::loncommon::start_page('Change Course Initialization Preference'));
                   1736:     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Course Init. Pref.'));
1.63      raeburn  1737:     my $user       = $env{'user.name'};
                   1738:     my $domain     = $env{'user.domain'};
1.66      albertel 1739:     my %userenv = &Apache::lonnet::get('environment',['course_init_display']);
1.71      raeburn  1740:     my $currvalue = 'whatsnew';
1.73      albertel 1741:     my $firstselect = '';
                   1742:     my $whatsnewselect = 'checked="checked"';
1.71      raeburn  1743:     if (exists($userenv{'course_init_display'})) {
                   1744:         if ($userenv{'course_init_display'} eq 'firstres') {
                   1745:             $currvalue = 'firstres';
1.73      albertel 1746:             $firstselect = 'checked="checked"';
                   1747: 	    $whatsnewselect = '';
1.71      raeburn  1748:         }
1.63      raeburn  1749:     }
1.134     bisitz   1750:     my %pagenames = &Apache::lonlocal::texthash(
1.71      raeburn  1751:                        firstres => 'First resource',
1.143     hauer    1752:                        whatsnew => "What's New Page",
1.71      raeburn  1753:                     );
1.134     bisitz   1754:     my $whatsnew_off=&mt('Display the [_1]first resource[_2] in the course.','<b>','</b>');
1.143     hauer    1755:     my $whatsnew_on=&mt("Display the [_1]What's New Page[_2] - a summary of items in the course which require attention.",'<b>','</b>');
1.63      raeburn  1756: 
1.134     bisitz   1757:     $r->print('<br /><b>'
                   1758:              .&mt('Set the default page to be displayed when you select a course role')
                   1759:              .'</b>&nbsp;'
                   1760:              .&mt('(Currently: [_1])',$pagenames{$currvalue})
                   1761:              .'<br />'
1.143     hauer    1762:              .&mt("The global user preference you set for your courses can be overridden in an individual course by setting a course specific setting via the [_1]What's New Page[_2] in the course.",'<i>','</i>')
1.134     bisitz   1763:              .'<br /><br />'
                   1764:     );
1.63      raeburn  1765:     $r->print(<<ENDLSCREEN);
1.88      albertel 1766: <form name="prefs" action="/adm/preferences" method="post">
1.63      raeburn  1767: <input type="hidden" name="action" value="verify_and_change_coursepage" />
1.72      albertel 1768: <br />
1.65      albertel 1769: <label><input type="radio" name="newdisp" value="firstres" $firstselect /> $whatsnew_off</label><br />
1.70      raeburn  1770: <label><input type="radio" name="newdisp" value="whatsnew" $whatsnewselect /> $whatsnew_on</label><input type="hidden" name="refpage" value="$env{'form.refpage'}" />
1.63      raeburn  1771: ENDLSCREEN
1.140     schafran 1772:     $r->print('<br /><br /><input type="submit" value="'.&mt('Save').'" />
1.63      raeburn  1773: </form>');
                   1774: }
                   1775: 
                   1776: sub verify_and_change_coursepage {
                   1777:     my $r = shift;
                   1778:     my $message='';
                   1779:     my %lt = &Apache::lonlocal::texthash(
1.70      raeburn  1780:         'defs' => 'Default now set',
1.71      raeburn  1781:         'when' => 'when you select a course role from the roles screen',
1.63      raeburn  1782:         'ywbt' => 'you will be taken to the start of the course.',
                   1783:         'apwb' => 'a page will be displayed that lists items in the course that may require action from you.',
                   1784:         'gtts' => 'Go to the start of the course',
1.146     hauer    1785:         'dasp' => "Display the What's New Page", 
1.63      raeburn  1786:     );
                   1787:     my $newdisp  = $env{'form.newdisp'};
1.70      raeburn  1788:     $message = '<b>'.$lt{'defs'}.'</b>: '.$lt{'when'}.', ';
1.63      raeburn  1789:     if ($newdisp eq 'firstres') {
1.87      albertel 1790:         $message .= $lt{'ywbt'}.'<br />';
1.63      raeburn  1791:         &Apache::lonnet::put('environment',{'course_init_display' => $newdisp});
1.116     raeburn  1792:         &Apache::lonnet::appenv({'environment.course_init_display' => $newdisp});
1.63      raeburn  1793:     } else {
1.87      albertel 1794:         $message .= $lt{'apwb'}.'<br />';
1.63      raeburn  1795:         &Apache::lonnet::del('environment',['course_init_display']);
1.139     raeburn  1796:         &Apache::lonnet::delenv('environment.course_init_display');
1.63      raeburn  1797:     }
1.70      raeburn  1798:     my $refpage = $env{'form.refpage'};
1.63      raeburn  1799:     if (($env{'request.course.fn'}) && ($env{'request.course.id'})) {
                   1800:         if ($newdisp eq 'firstres') {
                   1801:             my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   1802:             my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; 
                   1803:             my ($furl,$ferr)=
                   1804:                 &Apache::lonuserstate::readmap($cdom.'/'.$cnum);
                   1805:             $message .= '<br /><font size="+1"><a href="'.$furl.'">'.$lt{'gtts'}.' <i>'.&mt('now').'</i></a></font>';
                   1806:         } else {
1.70      raeburn  1807:             $message .= '<br /><font size="+1"><a href="/adm/whatsnew?refpage='.
                   1808:                         $refpage.'">'.$lt{'dasp'}.'</a></font>';
1.63      raeburn  1809:         }
                   1810:     }
1.152     www      1811:     &print_main_menu($r, &Apache::lonhtmlcommon::confirm_success($message));
1.63      raeburn  1812: }
                   1813: 
1.126     droeschl 1814: sub print_main_menu {
                   1815:     my ($r, $message) = @_;
                   1816:     # Determine current authentication method
                   1817:     my $user = $env{'user.name'};
                   1818:     my $domain = $env{'user.domain'};
                   1819:     my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain);
                   1820: 
                   1821:     # build the data structure for menu generation
                   1822: my $aboutmeurl='/adm/'.$env{'user.domain'}.'/'.$env{'user.name'}.'/aboutme';
                   1823: my $role = ($env{'user.adv'} ? 'Roles' : 'Course');
1.131     raeburn  1824: my %permissions;
                   1825: if (&Apache::lonnet::usertools_access($user,$domain,'aboutme')) {
                   1826:     $permissions{'aboutme'} = 'F';
                   1827: }
1.126     droeschl 1828: my @menu=
                   1829:     ({	categorytitle=>'Personal Data',
                   1830: 	items =>[
1.141     weissno  1831: 	    {	linktext => 'Personal Information Page',
1.126     droeschl 1832: 		url => $aboutmeurl,
1.131     raeburn  1833: 		permission => $permissions{'aboutme'},
1.126     droeschl 1834: 		#help => 'Prefs_About_Me',
                   1835: 		icon => 'system-users.png',
                   1836: 		linktitle => 'Edit information about yourself that should be displayed on your public profile.'
                   1837: 	    },
                   1838: 	    {	linktext => 'Screen Name',
                   1839: 		url => '/adm/preferences?action=changescreenname',
                   1840: 		permission => 'F',
                   1841: 		#help => 'Prefs_Screen_Name_Nickname',
                   1842: 		icon => 'preferences-desktop-font.png',
                   1843: 		linktitle => 'Change the name that is displayed in your posts.'
                   1844: 	    },
                   1845: 		]
                   1846:     },
                   1847:     {	categorytitle=>'Page Display Settings',
                   1848: 	items =>[
                   1849: 	    {	linktext => 'Color Scheme',
                   1850: 		url => '/adm/preferences?action=changecolors',
                   1851: 		permission => 'F',
                   1852: 		#help => 'Change_Colors',
                   1853: 		icon => 'preferences-desktop-theme.png',
                   1854: 		linktitle => 'Change LON-CAPA default colors.'
                   1855: 	    },
                   1856: 	    {	linktext => 'Menu Display',
                   1857: 		url => '/adm/preferences?action=changeicons',
                   1858: 		permission => 'F',
                   1859: 		#help => '',
                   1860: 		icon => 'preferences-system-windows.png',
                   1861: 		linktitle => 'Change whether the menus are displayed with buttons, icons or icons and text.'
                   1862: 	    }
                   1863: 
                   1864: 		]
                   1865:     },
                   1866:     {	categorytitle=>'Content Display Settings',
                   1867: 	items =>[
                   1868: 	    {	linktext => 'Language',
                   1869: 		url => '/adm/preferences?action=changelanguages',
                   1870: 		permission => 'F',
                   1871: 		#help => 'Prefs_Language',
                   1872: 		icon => 'preferences-desktop-locale.png',
1.127     droeschl 1873: 		linktitle => 'Choose the default language for this user.'
1.126     droeschl 1874: 	    },
1.128     droeschl 1875: 	    {	linktext => 'WYSIWYG Editor',
1.126     droeschl 1876: 		url => '/adm/preferences?action=changewysiwyg',
                   1877: 		permission => 'F',
                   1878: 		#help => '',
                   1879: 		icon => 'edit-select-all.png',
                   1880: 		linktitle => 'Enable or disable the WYSIWYG-Editor.'
                   1881: 	    },
1.128     droeschl 1882: 	    {	linktext => $role.' Page',
1.126     droeschl 1883: 		url => '/adm/preferences?action=changerolespref',
                   1884: 		permission => 'F',
                   1885: 		#help => '',
                   1886: 		icon => 'sctr.png',
                   1887: 		linktitle => 'Configure the roles hotlist.'
                   1888: 	    },
1.127     droeschl 1889: 	    {	linktext => 'Display of Scientific Equations',
1.126     droeschl 1890: 		url => '/adm/preferences?action=changetexenginepref',
                   1891: 		permission => 'F',
                   1892: 		#help => '',
                   1893: 		icon => 'stat.png',
1.127     droeschl 1894: 		linktitle => 'Change how Scientific Equations are displayed.'
1.126     droeschl 1895: 	    },
                   1896: 		]
                   1897:     },
1.128     droeschl 1898:     {	categorytitle=>'Message Management',
                   1899: 	items =>[
1.153     www      1900: 	    {	linktext => 'Messages &amp; Notifications',
1.128     droeschl 1901: 		url => '/adm/preferences?action=changemsgforward',
                   1902: 		permission => 'F',
                   1903: 		#help => 'Prefs_Messages',
                   1904: 		icon => 'mail-reply-all.png',
                   1905: 		linktitle => 'Change messageforwarding or notifications settings.'
                   1906: 	    },
                   1907: 	    {	linktext => 'Discussion Display',
                   1908: 		url => '/adm/preferences?action=changediscussions',
                   1909: 		permission => 'F',
                   1910: 		#help => 'Change_Discussion_Display',
                   1911: 		icon => 'mail-message-new.png',
1.135     schafran 1912: 		linktitle => 'Set display preferences for discussion posts for both discussion boards and individual resources in all your courses.'
1.128     droeschl 1913: 	    },
                   1914: 		]
                   1915:     },
1.126     droeschl 1916:     {	categorytitle=>'Other',
                   1917: 	items =>[
1.153     www      1918: 	    {	linktext => 'Register Response Devices (&quot;Clickers&quot;)',
1.126     droeschl 1919: 		url => '/adm/preferences?action=changeclicker',
                   1920: 		permission => 'F',
                   1921: 		#help => '',
                   1922: 		icon => 'network-workgroup.png',
                   1923: 		linktitle => 'Register your clicker.'
                   1924: 	    },
                   1925: 		]
                   1926:     },
                   1927:     );
                   1928: 
                   1929:     if ($currentauth =~ /^(unix|internal):/) {
                   1930: push(@{ $menu[0]->{items} }, {
                   1931: 	linktext => 'Password',
                   1932: 	url => '/adm/preferences?action=changepass',
                   1933: 	permission => 'F',
                   1934: 	#help => 'Change_Password',
                   1935: 	icon => 'emblem-readonly.png',
                   1936: 	linktitle => 'Change your password.',
                   1937: 	});
                   1938:     }
                   1939:     if ($env{'environment.remote'} eq 'off') {
                   1940: push(@{ $menu[1]->{items} }, {
                   1941: 	linktext => 'Launch Remote Control',
                   1942: 	url => '/adm/remote?url=/adm/preferences?action=launch',
                   1943: 	permission => 'F',
                   1944: 	#help => '',
                   1945: 	icon => 'network-wireless.png',
                   1946: 	linktitle => 'Launch the remote control for LON-CAPA.',
                   1947: 	});
                   1948:     }else{
                   1949: push(@{ $menu[1]->{items} }, {
                   1950: 	linktext => 'Collapse Remote Control',
                   1951: 	url => '/adm/remote?url=/adm/preferences?action=collapse',
                   1952: 	permission => 'F',
                   1953: 	#help => '',
                   1954: 	icon => 'network-wireless.png',
                   1955: 	linktitle => 'Collapse the remote control for LON-CAPA.',
                   1956: 	});
                   1957:     }
                   1958:     my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au']);
                   1959:     if (keys(%author_roles) > 0) {
                   1960: push(@{ $menu[4]->{items} }, {
                   1961: 	linktext => 'Restrict Domain Coordinator Access',
                   1962: 	url => '/adm/preferences?action=changedomcoord',
                   1963: 	permission => 'F',
                   1964: 	#help => '',
                   1965: 	icon => 'system-lock-screen.png',
                   1966: 	linktitle => 'Restrict domain coordinator access.',
                   1967: 	});
                   1968:     }
                   1969: 
                   1970:     if (&Apache::lonnet::allowed('whn',$env{'request.course.id'})
                   1971: 	|| &Apache::lonnet::allowed('whn',$env{'request.course.id'}.'/'
                   1972: 				    .$env{'request.course.sec'})) {
                   1973: push(@{ $menu[4]->{items} }, {
1.128     droeschl 1974: 	linktext => 'Course Initialization',
1.126     droeschl 1975: 	url => '/adm/preferences?action=changecourseinit',
                   1976: 	permission => 'F',
                   1977: 	#help => '',
                   1978: 	icon => 'edit-copy.png',
                   1979: 	linktitle => 'Set the default page to be displayed when you select a course role.',
                   1980: 	});
                   1981: 
                   1982:     }
                   1983:     if ($env{'user.name'} =~ /^(albertel|fox|foxr|kortemey|korte|raeburn)$/) {
                   1984: push(@{ $menu[4]->{items} }, {
                   1985: 	linktext => 'Toggle Debug Messages (Current:'.$env{'user.debug'}.')',
                   1986: 	url => '/adm/preferences?action=debugtoggle',
                   1987: 	permission => 'F',
                   1988: 	#help => '',
                   1989: 	icon => 'blog.png',
                   1990: 	linktitle => 'Toggle Debug Messages.',
                   1991: 	});
                   1992:     }   
                   1993: 
1.147     schafran 1994:     $r->print(&Apache::loncommon::start_page('My Space'));
1.126     droeschl 1995:     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Preferences'));
                   1996:     $r->print($message);
                   1997:     $r->print(Apache::lonhtmlcommon::generate_menu(@menu));
                   1998:     $r->print(Apache::loncommon::end_page());
                   1999: }
1.63      raeburn  2000: 
1.4       matthew  2001: ######################################################
                   2002: #            other handler subroutines               #
                   2003: ######################################################
                   2004: 
1.3       matthew  2005: ################################################################
                   2006: #                          Main handler                        #
                   2007: ################################################################
1.126     droeschl 2008: sub handler {    
                   2009:     my $r = shift;
                   2010:     Apache::loncommon::content_type($r,'text/html');
                   2011:     # Some pages contain DES keys and should not be cached.
                   2012:     Apache::loncommon::no_cache($r);
                   2013:     $r->send_http_header;
                   2014:     return OK if $r->header_only;
                   2015:     #
                   2016:     Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                   2017:                                    ['action','wysiwyg','returnurl','refpage']);
                   2018:     #
                   2019:     Apache::lonhtmlcommon::clear_breadcrumbs();
                   2020:     Apache::lonhtmlcommon::add_breadcrumb
                   2021:         ({href => '/adm/preferences',
1.150     droeschl 2022:           text => 'Set User Preferences',
                   2023:           help =>
                   2024:           'Prefs_About_Me,Prefs_Language,Prefs_Screen_Name_Nickname,Change_Colors,Change_Password,Prefs_Messages,Change_Discussion_Display'});
1.126     droeschl 2025:     if(!exists $env{'form.action'}) {
1.150     droeschl 2026: 	    &print_main_menu($r);
1.126     droeschl 2027:     }elsif($env{'form.action'} eq 'changepass'){
                   2028:         &passwordchanger($r);
                   2029:     }elsif($env{'form.action'} eq 'verify_and_change_pass'){
                   2030:         &verify_and_change_password($r);
                   2031:     }elsif($env{'form.action'} eq 'changescreenname'){
                   2032:         &screennamechanger($r);
                   2033:     }elsif($env{'form.action'} eq 'verify_and_change_screenname'){
                   2034:         &verify_and_change_screenname($r);
                   2035:     }elsif($env{'form.action'} eq 'changemsgforward'){
                   2036:         &msgforwardchanger($r);
                   2037:     }elsif($env{'form.action'} eq 'verify_and_change_msgforward'){
                   2038:         &verify_and_change_msgforward($r);
                   2039:     }elsif($env{'form.action'} eq 'changecolors'){
                   2040:         &colorschanger($r);
                   2041:     }elsif($env{'form.action'} eq 'verify_and_change_colors'){
                   2042:         &verify_and_change_colors($r);
                   2043:     }elsif($env{'form.action'} eq 'changelanguages'){
                   2044:         &languagechanger($r);
                   2045:     }elsif($env{'form.action'} eq 'verify_and_change_languages'){
                   2046:         &verify_and_change_languages($r);
                   2047:     }elsif($env{'form.action'} eq 'changewysiwyg'){
                   2048:         &wysiwygchanger($r);
                   2049:     }elsif($env{'form.action'} eq 'set_wysiwyg'){
                   2050:         &verify_and_change_wysiwyg($r);
                   2051:     }elsif($env{'form.action'} eq 'changediscussions'){
                   2052:         &discussionchanger($r);
                   2053:     }elsif($env{'form.action'} eq 'verify_and_change_discussion'){
                   2054:         &verify_and_change_discussion($r);
                   2055:     }elsif($env{'form.action'} eq 'changerolespref'){
                   2056:         &rolesprefchanger($r);
                   2057:     }elsif($env{'form.action'} eq 'verify_and_change_rolespref'){
                   2058:         &verify_and_change_rolespref($r);
                   2059:     }elsif($env{'form.action'} eq 'changetexenginepref'){
                   2060:         &texenginechanger($r);
                   2061:     }elsif($env{'form.action'} eq 'verify_and_change_texengine'){
                   2062:         &verify_and_change_texengine($r);
                   2063:     }elsif($env{'form.action'} eq 'changeicons'){
                   2064:         &iconchanger($r);
                   2065:     }elsif($env{'form.action'} eq 'verify_and_change_icons'){
                   2066:         &verify_and_change_icons($r);
                   2067:     }elsif($env{'form.action'} eq 'changeclicker'){
                   2068:         &clickerchanger($r);
                   2069:     }elsif($env{'form.action'} eq 'verify_and_change_clicker'){
                   2070:         &verify_and_change_clicker($r);
                   2071:     }elsif($env{'form.action'} eq 'changedomcoord'){
                   2072:         &domcoordchanger($r);
                   2073:     }elsif($env{'form.action'} eq 'verify_and_change_domcoord'){
                   2074:         &verify_and_change_domcoord($r);
                   2075:     }elsif($env{'form.action'} eq 'lockwarning'){
                   2076:         &lockwarning($r);
                   2077:     }elsif($env{'form.action'} eq 'verify_and_change_locks'){
                   2078:         &verify_and_change_lockwarning($r);
                   2079:     }elsif($env{'form.action'} eq 'changecourseinit'){
                   2080:         &coursedisplaychanger($r);
                   2081:     }elsif($env{'form.action'} eq 'verify_and_change_coursepage'){
                   2082:         &verify_and_change_coursepage($r);
                   2083:     }elsif($env{'form.action'} eq 'debugtoggle'){
1.154     www      2084:         &toggle_debug();
                   2085: 	&print_main_menu($r);
1.126     droeschl 2086:     }
                   2087: 
                   2088:     return OK;
                   2089: 
                   2090: 
                   2091: }
                   2092: #remove when done
                   2093: #old handler routine
                   2094: sub handler2 {
1.1       www      2095:     my $r = shift;
1.59      albertel 2096:     my $user = $env{'user.name'};
                   2097:     my $domain = $env{'user.domain'};
1.31      www      2098:     &Apache::loncommon::content_type($r,'text/html');
1.4       matthew  2099:     # Some pages contain DES keys and should not be cached.
                   2100:     &Apache::loncommon::no_cache($r);
1.1       www      2101:     $r->send_http_header;
                   2102:     return OK if $r->header_only;
1.9       matthew  2103:     #
1.35      matthew  2104:     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
1.70      raeburn  2105:                                    ['action','wysiwyg','returnurl','refpage']);
1.35      matthew  2106:     #
                   2107:     &Apache::lonhtmlcommon::clear_breadcrumbs();
                   2108:     &Apache::lonhtmlcommon::add_breadcrumb
                   2109:         ({href => '/adm/preferences',
                   2110:           text => 'Set User Preferences'});
                   2111: 
                   2112:     my @Options;
                   2113:     # Determine current authentication method
                   2114:     my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain);
                   2115:     if ($currentauth =~ /^(unix|internal):/) {
                   2116:         push (@Options,({ action   => 'changepass',
1.40      www      2117:                           linktext => 'Change Password',
1.35      matthew  2118:                           href     => '/adm/preferences',
                   2119:                           help     => 'Change_Password',
                   2120:                           subroutine => \&passwordchanger,
                   2121:                           breadcrumb => 
                   2122:                               { href => '/adm/preferences?action=changepass',
                   2123:                                 text => 'Change Password'},
                   2124:                           },
                   2125:                         { action => 'verify_and_change_pass',
                   2126:                           subroutine => \&verify_and_change_password,
                   2127:                           breadcrumb => 
                   2128:                               { href =>'/adm/preferences?action=changepass',
                   2129:                                 text => 'Change Password'},
1.75      albertel 2130:                           printmenu => 'not_on_error',
1.35      matthew  2131:                           }));
                   2132:     }
                   2133:     push (@Options,({ action   => 'changescreenname',
                   2134:                       linktext => 'Change Screen Name',
                   2135:                       href     => '/adm/preferences',
                   2136:                       help     => 'Prefs_Screen_Name_Nickname',
                   2137:                       subroutine => \&screennamechanger,
                   2138:                       breadcrumb => 
                   2139:                           { href => '/adm/preferences?action=changescreenname',
                   2140:                             text => 'Change Screen Name'},
                   2141:                       },
                   2142:                     { action   => 'verify_and_change_screenname',
                   2143:                       subroutine => \&verify_and_change_screenname,
                   2144:                       breadcrumb => 
                   2145:                           { href => '/adm/preferences?action=changescreenname',
                   2146:                             text => 'Change Screen Name'},
                   2147:                       printmenu => 'yes',
                   2148:                       }));
                   2149: 
                   2150:     push (@Options,({ action   => 'changemsgforward',
1.129     schafran 2151:                       linktext => 'Change Message Forwarding and Notification E-mail Addresses',
1.35      matthew  2152:                       href     => '/adm/preferences',
1.113     raeburn  2153:                       help     => 'Prefs_Messages',
1.35      matthew  2154:                       breadcrumb => 
                   2155:                           { href => '/adm/preferences?action=changemsgforward',
1.113     raeburn  2156:                             text => 'Change Message Forwarding/Notification'},
1.35      matthew  2157:                       subroutine => \&msgforwardchanger,
                   2158:                       },
                   2159:                     { action => 'verify_and_change_msgforward',
1.113     raeburn  2160:                       help   => 'Prefs_Messages',
1.35      matthew  2161:                       breadcrumb => 
                   2162:                           { href => '/adm/preferences?action=changemsgforward',
1.113     raeburn  2163:                             text => 'Change Message Forwarding/Notification'},
1.126     droeschl 2164:                       printmenu => 'yes',
1.35      matthew  2165:                       subroutine => \&verify_and_change_msgforward }));
                   2166:     my $aboutmeaction=
1.59      albertel 2167:         '/adm/'.$env{'user.domain'}.'/'.$env{'user.name'}.'/aboutme';
1.35      matthew  2168:     push (@Options,{ action => 'none', 
                   2169:                      linktext =>
1.141     weissno  2170:                          q{Edit the Personal Information Page},
1.45      www      2171: 		     help => 'Prefs_About_Me',
1.35      matthew  2172:                      href => $aboutmeaction});
                   2173:     push (@Options,({ action => 'changecolors',
                   2174:                       linktext => 'Change Color Scheme',
                   2175:                       href => '/adm/preferences',
                   2176:                       help => 'Change_Colors',
                   2177:                       breadcrumb => 
                   2178:                           { href => '/adm/preferences?action=changecolors',
                   2179:                             text => 'Change Colors'},
                   2180:                       subroutine => \&colorschanger,
                   2181:                   },
                   2182:                     { action => 'verify_and_change_colors',
                   2183:                       breadcrumb => 
                   2184:                           { href => '/adm/preferences?action=changecolors',
                   2185:                             text => 'Change Colors'},
                   2186:                       printmenu => 'yes',
                   2187:                       subroutine => \&verify_and_change_colors,
                   2188:                       }));
                   2189:     push (@Options,({ action => 'changelanguages',
1.39      www      2190:                       linktext => 'Change Language Preferences',
1.35      matthew  2191:                       href => '/adm/preferences',
1.45      www      2192: 		      help => 'Prefs_Language',
1.35      matthew  2193:                       breadcrumb=>
                   2194:                           { href => '/adm/preferences?action=changelanguages',
                   2195:                             text => 'Change Language'},
                   2196:                       subroutine =>  \&languagechanger,
                   2197:                   },
                   2198:                     { action => 'verify_and_change_languages',
                   2199:                       breadcrumb=>
                   2200:                           {href => '/adm/preferences?action=changelanguages',
                   2201:                            text => 'Change Language'},
                   2202:                       printmenu => 'yes',
                   2203:                       subroutine=>\&verify_and_change_languages, }
                   2204:                     ));
1.44      www      2205:     push (@Options,({ action => 'changewysiwyg',
                   2206:                       linktext => 'Change WYSIWYG Editor Preferences',
                   2207:                       href => '/adm/preferences',
                   2208:                       breadcrumb => 
                   2209:                             { href => '/adm/preferences?action=changewysiwyg',
                   2210:                               text => 'Change WYSIWYG Preferences'},
                   2211:                       subroutine => \&wysiwygchanger,
                   2212:                   },
                   2213:                     { action => 'set_wysiwyg',
                   2214:                       breadcrumb =>
                   2215:                           { href => '/adm/preferences?action=changewysiwyg',
                   2216:                             text => 'Change WYSIWYG Preferences'},
                   2217:                       printmenu => 'yes',
                   2218:                       subroutine => \&verify_and_change_wysiwyg, }
                   2219:                     ));
1.42      raeburn  2220:     push (@Options,({ action => 'changediscussions',
                   2221:                       linktext => 'Change Discussion Display Preferences',
                   2222:                       href => '/adm/preferences',
1.46      raeburn  2223:                       help => 'Change_Discussion_Display',
1.42      raeburn  2224:                       breadcrumb => 
                   2225:                             { href => '/adm/preferences?action=changediscussions',
1.43      raeburn  2226:                               text => 'Change Discussion Preferences'},
1.42      raeburn  2227:                       subroutine => \&discussionchanger,
                   2228:                   },
                   2229:                     { action => 'verify_and_change_discussion',
                   2230:                       breadcrumb =>
                   2231:                           { href => '/adm/preferences?action=changediscussions',
1.43      raeburn  2232:                             text => 'Change Discussion Preferences'},
1.42      raeburn  2233:                       printmenu => 'yes',
                   2234:                       subroutine => \&verify_and_change_discussion, }
                   2235:                     ));
1.96      albertel 2236: 
                   2237:     my $role = ($env{'user.adv'} ? 'Roles' : 'Course');
1.50      albertel 2238:     push (@Options,({ action   => 'changerolespref',
1.96      albertel 2239:                       linktext => 'Change '.$role.' Page Preferences',
1.50      albertel 2240:                       href     => '/adm/preferences',
                   2241:                       subroutine => \&rolesprefchanger,
                   2242:                       breadcrumb =>
                   2243:                           { href => '/adm/preferences?action=changerolespref',
1.96      albertel 2244:                             text => 'Change '.$role.' Page Pref'},
1.50      albertel 2245:                       },
                   2246:                     { action   => 'verify_and_change_rolespref',
                   2247:                       subroutine => \&verify_and_change_rolespref,
                   2248:                       breadcrumb =>
                   2249:                           { href => '/adm/preferences?action=changerolespref',
1.96      albertel 2250:                             text => 'Change '.$role.' Page Preferences'},
1.50      albertel 2251:                       printmenu => 'yes',
                   2252:                       }));
                   2253: 
1.54      albertel 2254:     push (@Options,({ action   => 'changetexenginepref',
                   2255:                       linktext => 'Change How Math Equations Are Displayed',
                   2256:                       href     => '/adm/preferences',
                   2257:                       subroutine => \&texenginechanger,
                   2258:                       breadcrumb =>
                   2259:                           { href => '/adm/preferences?action=changetexenginepref',
                   2260:                             text => 'Change Math Pref'},
                   2261:                       },
                   2262:                     { action   => 'verify_and_change_texengine',
                   2263:                       subroutine => \&verify_and_change_texengine,
                   2264:                       breadcrumb =>
                   2265:                           { href => '/adm/preferences?action=changetexenginepref',
                   2266:                             text => 'Change Math Preferences'},
                   2267:                       printmenu => 'yes',
                   2268:                       }));
1.85      albertel 2269: 
                   2270:     if ($env{'environment.remote'} eq 'off') {
                   2271: 	push (@Options,({ action => 'launch',
                   2272: 			  linktext => 'Launch Remote Control',
                   2273: 			  href => '/adm/remote?url=/adm/preferences',
                   2274: 		      }));
                   2275:     } else {
                   2276: 	push (@Options,({ action => 'collapse',
                   2277: 			  linktext => 'Collapse Remote Control',
                   2278: 			  href => '/adm/remote?url=/adm/preferences',
                   2279: 		      }));
                   2280:     }
                   2281: 
1.98      www      2282:     push (@Options,({ action   => 'changeicons',
1.100     www      2283:                       linktext => 'Change How Menus are Displayed',
1.98      www      2284:                       href     => '/adm/preferences',
                   2285:                       subroutine => \&iconchanger,
                   2286:                       breadcrumb =>
                   2287:                           { href => '/adm/preferences?action=changeicons',
                   2288:                             text => 'Change Main Menu'},
                   2289:                       },
                   2290:                     { action   => 'verify_and_change_icons',
                   2291:                       subroutine => \&verify_and_change_icons,
                   2292:                       breadcrumb =>
                   2293:                           { href => '/adm/preferences?action=changeicons',
                   2294:                             text => 'Change Main Menu'},
                   2295:                       printmenu => 'yes',
                   2296:                       }));
                   2297: 
1.106     www      2298:     push (@Options,({ action   => 'changeclicker',
                   2299:                       linktext => 'Register Response Devices ("Clickers")',
                   2300:                       href     => '/adm/preferences',
                   2301:                       subroutine => \&clickerchanger,
                   2302:                       breadcrumb =>
1.118     www      2303:                           { href => '/adm/preferences?action=changeclicker',
1.106     www      2304:                             text => 'Register Clicker'},
                   2305:                       },
                   2306:                     { action   => 'verify_and_change_clicker',
                   2307:                       subroutine => \&verify_and_change_clicker,
                   2308:                       breadcrumb =>
                   2309:                           { href => '/adm/preferences?action=changeclicker',
                   2310:                             text => 'Register Clicker'},
                   2311:                       printmenu => 'yes',
                   2312:                       }));
1.125     raeburn  2313:     my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au']);
                   2314:     if (keys(%author_roles) > 0) {
1.119     www      2315:       push (@Options,({ action   => 'changedomcoord',
                   2316:                         linktext => 'Restrict Domain Coordinator Access',
                   2317:                         href     => '/adm/preferences',
                   2318:                         subroutine => \&domcoordchanger,
                   2319:                         breadcrumb =>
                   2320:                             { href => '/adm/preferences?action=changedomcoord',
                   2321:                               text => 'Restrict Domain Coordinator Access'},
                   2322:                       },
                   2323:                       { action   => 'verify_and_change_domcoord',
                   2324:                         subroutine => \&verify_and_change_domcoord,
                   2325:                         breadcrumb =>
                   2326:                             { href => '/adm/preferences?action=changedomcoord',
                   2327:                               text => 'Restrict Domain Coordinator Access'},
                   2328:                         printmenu => 'yes',
                   2329:                       }));
                   2330:     }
1.105     www      2331: 
1.118     www      2332:     push (@Options,({ action   => 'lockwarning',
                   2333:                       subroutine => \&lockwarning,
                   2334:                       breadcrumb =>
                   2335:                           { href => '/adm/preferences?action=lockwarning',
                   2336:                             text => 'Lock Warnings'},
                   2337:                       },
                   2338:                     { action   => 'verify_and_change_locks',
                   2339:                       subroutine => \&verify_and_change_lockwarning,
                   2340:                       breadcrumb =>
                   2341:                           { href => '/adm/preferences?action=lockwarning',
                   2342:                             text => 'Lockwarnings'},
                   2343:                       printmenu => 'yes',
                   2344:                       }));
                   2345: 
1.105     www      2346: 
1.74      albertel 2347:     if (&Apache::lonnet::allowed('whn',$env{'request.course.id'})
                   2348: 	|| &Apache::lonnet::allowed('whn',$env{'request.course.id'}.'/'
                   2349: 				    .$env{'request.course.sec'})) {
1.63      raeburn  2350:         push (@Options,({ action => 'changecourseinit',
                   2351:                           linktext => 'Change Course Initialization Preference',
                   2352:                           href => '/adm/preferences',
                   2353:                           subroutine => \&coursedisplaychanger,
                   2354:                           breadcrumb =>
                   2355:                               { href => '/adm/preferences?action=changecourseinit',
                   2356:                                 text => 'Change Course Init. Pref.'},
                   2357:                           },
                   2358:                         { action => 'verify_and_change_coursepage',
                   2359:                           breadcrumb =>
                   2360:                           { href => '/adm/preferences?action=changecourseinit',                               text => 'Change Course Initialization Preference'},
                   2361:                         printmenu => 'yes',
                   2362:                         subroutine => \&verify_and_change_coursepage,
                   2363:                        }));
                   2364:     }
1.50      albertel 2365: 
1.154     www      2366:     if (($env{'user.name'} =~ /^(albertel|fox|foxr|kortemey|korte|raeburn)$/)
                   2367:      && ($env{'user.domain'} =~/^(msu|gerd)$/)){
1.35      matthew  2368:         push (@Options,({ action => 'debugtoggle',
                   2369:                           printmenu => 'yes',
                   2370:                           subroutine => \&toggle_debug,
                   2371:                           }));
                   2372:     }
1.76      albertel 2373: 
                   2374:     $r->print(&Apache::loncommon::start_page('Change Preferences'));
                   2375: 
1.35      matthew  2376:     my $call = undef;
1.48      albertel 2377:     my $help = undef;
1.35      matthew  2378:     my $printmenu = 'yes';
                   2379:     foreach my $option (@Options) {
1.59      albertel 2380:         if ($option->{'action'} eq $env{'form.action'}) {
1.35      matthew  2381:             $call = $option->{'subroutine'};
                   2382:             $printmenu = $option->{'printmenu'};
                   2383:             if (exists($option->{'breadcrumb'})) {
                   2384:                 &Apache::lonhtmlcommon::add_breadcrumb
                   2385:                     ($option->{'breadcrumb'});
                   2386:             }
1.48      albertel 2387: 	    $help=$option->{'help'};
1.35      matthew  2388:         }
                   2389:     }
1.81      albertel 2390:     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Change Preferences',$help));
1.75      albertel 2391:     my $error;
1.35      matthew  2392:     if (defined($call)) {
1.75      albertel 2393:         $error = $call->($r);
1.35      matthew  2394:     }
1.75      albertel 2395:     if ( ( ($printmenu eq 'yes')
                   2396: 	   || ($printmenu eq 'not_on_error' && !$error) )
                   2397: 	 && (!$env{'form.returnurl'})) {
1.35      matthew  2398:         my $optionlist = '<table cellpadding="5">';
1.59      albertel 2399:         if ($env{'user.name'} =~ 
1.62      raeburn  2400:                          /^(albertel|kortemey|fox|foxr|korte|hallmat3|turtle|raeburn)$/
1.35      matthew  2401:             ) {
                   2402:             push (@Options,({ action => 'debugtoggle',
                   2403:                               linktext => 'Toggle Debug Messages',
                   2404:                               text => 'Current Debug status is -'.
1.59      albertel 2405:                                   $env{'user.debug'}.'-.',
1.35      matthew  2406:                               href => '/adm/preferences',
                   2407:                               printmenu => 'yes',
                   2408:                               subroutine => \&toggle_debug,
                   2409:                               }));
                   2410:         }
                   2411:         foreach my $option(@Options) {
                   2412:             my $optiontext = '';
                   2413:             if (exists($option->{'href'})) {
1.85      albertel 2414: 		$option->{'href_args'}{'action'}=$option->{'action'};
                   2415: 		$optiontext .= 
                   2416:                     '<a href="'.&add_get_param($option->{'href'},
                   2417: 					       $option->{'href_args'}).'">'.
1.47      albertel 2418:                     &mt($option->{'linktext'}).'</a>';
1.35      matthew  2419:             }
                   2420:             if (exists($option->{'text'})) {
1.47      albertel 2421:                 $optiontext .= ' '.&mt($option->{'text'});
1.35      matthew  2422:             }
                   2423:             if ($optiontext ne '') {
                   2424:                 $optiontext = '<font size="+1">'.$optiontext.'</font>'; 
                   2425:                 my $helplink = '&nbsp;';
                   2426:                 if (exists($option->{'help'})) {
                   2427:                     $helplink = &Apache::loncommon::help_open_topic
                   2428:                                                     ($option->{'help'});
                   2429:                 }
                   2430:                 $optionlist .= '<tr>'.
                   2431:                     '<td>'.$helplink.'</td>'.
                   2432:                     '<td>'.$optiontext.'</td>'.
                   2433:                     '</tr>';
                   2434:             }
1.13      www      2435:         }
1.35      matthew  2436:         $optionlist .= '</table>';
                   2437:         $r->print($optionlist);
1.59      albertel 2438:     } elsif ($env{'form.returnurl'}) {
                   2439: 	$r->print('<br /><a href="'.$env{'form.returnurl'}.'"><font size="+1">'.
1.44      www      2440: 		  &mt('Return').'</font></a>');
1.3       matthew  2441:     }
1.76      albertel 2442:     $r->print(&Apache::loncommon::end_page());
1.1       www      2443:     return OK;
1.35      matthew  2444: }
                   2445: 
                   2446: sub toggle_debug {
1.59      albertel 2447:     if ($env{'user.debug'}) {
1.139     raeburn  2448:         &Apache::lonnet::delenv('user.debug');
1.35      matthew  2449:     } else {
1.116     raeburn  2450:         &Apache::lonnet::appenv({'user.debug' => 1});
1.35      matthew  2451:     }
1.13      www      2452: }
1.1       www      2453: 
                   2454: 1;
                   2455: __END__

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>