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

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

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