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

1.1       www         1: # The LearningOnline Network
                      2: # Preferences
                      3: #
1.244   ! raeburn     4: # $Id: lonpreferences.pm,v 1.243 2023/11/11 03:13:07 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;
                     34: use Apache::Constants qw(:common);
1.3       matthew    35: use Apache::File;
1.4       matthew    36: use Apache::loncommon();
1.23      matthew    37: use Apache::lonhtmlcommon();
1.32      www        38: use Apache::lonlocal;
1.59      albertel   39: use Apache::lonnet;
1.174     raeburn    40: use LONCAPA::lonauthcgi();
1.95      albertel   41: use LONCAPA();
1.241     raeburn    42: use DateTime::TimeZone();
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.204     raeburn   107:     my %userenv = &Apache::lonnet::get('environment',['languages']);
1.29      www       108:     my $language=$userenv{'languages'};
1.32      www       109: 
1.204     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.220     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.195     dseaton   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.195     dseaton   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.195     dseaton   184:       'mathjax'  => 'MathJax:',
1.213     bisitz    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.195     dseaton   204: <h3>$lt{'mathjax'}</h3>
                    205: </script>
1.213     bisitz    206: <iframe src="/res/adm/pages/math_example.tex?inhibitmenu=yes&texengine=MathJax" width="400" height="150"></iframe>
1.195     dseaton   207: </p>
                    208: <p>
1.213     bisitz    209: $lt{'mathjaxinfo'}
1.195     dseaton   210: </p>
                    211: 
1.123     bisitz    212: <h3>$lt{'mimetex'}</h3>
                    213: <p>
1.213     bisitz    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.213     bisitz    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.220     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.198     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.198     raeburn   276:                 text => $brtext});
1.147     schafran  277:     $r->print(Apache::loncommon::start_page('Content Display Settings'));
1.198     raeburn   278:     $r->print(Apache::lonhtmlcommon::breadcrumbs($brtitle));
1.50      albertel  279:     my $hotlist_flag=$userenv{'recentroles'};
                    280:     my $hotlist_n=$userenv{'recentrolesn'};
1.198     raeburn   281:     my ($checkedon,$checkedoff);
1.50      albertel  282:     if ($hotlist_flag) {
1.198     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.198     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.198     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.198     raeburn   344: <form name="prefs" action="'.$actionurl.'" method="post">
1.50      albertel  345: <input type="hidden" name="action" value="verify_and_change_rolespref" />
1.198     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.198     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.198     raeburn   361: $options.'
                    362: </select>'.
1.181     wenzelju  363: &Apache::lonhtmlcommon::row_closure(1).
1.198     raeburn   364: &Apache::lonhtmlcommon::end_pick_box().'
                    365: </div>');
1.235     raeburn   366:     if ($roles_check_list) {
1.198     raeburn   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.201     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.198     raeburn   373: </div>');
                    374:      } else {
                    375:          $r->print('<br clear="all" />'.
1.210     raeburn   376:                    &mt('Once the Hotlist contains recently visited '.$lc_role.'s you can return to this page to also set frozen roles.'));
1.198     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.198     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.237     raeburn   630:      my %icon_text = &Apache::lonlocal::texthash (
1.192     raeburn   631:                       annotate => 'Notes',
1.197     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.237     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'),
1.238     raeburn   641:         evaluate => "s&8&1&eval.png&$icon_text{'evaluate'}&this[_1]&gopost('/adm/evaluate',currentURL,1)&".&mt('Provide my evaluation of this resource'),
1.237     raeburn   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'),
1.238     raeburn   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'};
1.218     raeburn   686:     my $uhome      = $env{'user.home'};
1.105     www       687:     my $newclickers  = $env{'form.clickers'};
1.218     raeburn   688:     my $message;
1.108     www       689:     $newclickers=~s/[^\w\:\-]+/\,/gs;
1.105     www       690:     $newclickers=~tr/a-z/A-Z/;
1.108     www       691:     $newclickers=~s/[\:\-]+/\-/g;
                    692:     $newclickers=~s/\,+/\,/g;
1.105     www       693:     $newclickers=~s/^\,//;
                    694:     $newclickers=~s/\,$//;
1.218     raeburn   695:     my @oldclickers = split(/,/,$env{'environment.clickers'});
                    696:     my @newclickers = split(/,/,$newclickers);
                    697:     my %newuniq;
                    698:     map { $newuniq{$_} = 1; }  @newclickers;
                    699:     @newclickers = sort(keys(%newuniq));
                    700:     my @differences = &Apache::loncommon::compare_arrays(\@oldclickers,\@newclickers);
                    701:     if (@differences) {
                    702:         my $putres = &Apache::lonnet::put('environment',{'clickers' => $newclickers});
                    703:         if ($putres eq 'ok') {
                    704:             my @adds = ();
                    705:             my @dels = ();
                    706:             foreach my $item (@differences) {
                    707:                 if (grep(/^\Q$item\E$/,@newclickers)) {
                    708:                     push(@adds,$item);
                    709:                 } else {
                    710:                     push(@dels,$item);
                    711:                 }
                    712:             }
                    713:             if (@dels) {
                    714:                  my %delclicker;
                    715:                  map { $delclicker{$_} = $user; } @dels;
                    716:                  my $putresult = &Apache::lonnet::iddel($domain,\%delclicker,$uhome,'clickers');
                    717:             }
                    718:             if (@adds) {
                    719:                  my %addclicker;
                    720:                  map { $addclicker{$_} = $user; } @adds;
                    721:                  my $putresult = &Apache::lonnet::updateclickers($domain,'add',\%addclicker,$uhome,1);
                    722:             }
                    723:             &Apache::lonnet::appenv({'environment.clickers' => $newclickers});
                    724:             $message=&Apache::lonhtmlcommon::confirm_success(&mt('Registering clickers: [_1]',$newclickers));
                    725:         } else {
                    726:             $message=&Apache::lonhtmlcommon::confirm_success(&mt('Error saving clicker ID').1);
                    727:         }
                    728:     } else {
                    729:         $message='<span class="LC_info">'.&mt('Clicker information unchanged').'</span>';
                    730:     }
1.158     bisitz    731:     $message=&Apache::loncommon::confirmwrapper($message);
                    732:     &print_main_menu($r, $message);
1.105     www       733: }
                    734: 
1.119     www       735: ################################################################
                    736: #               Domcoord Access Subroutines                    #
                    737: ################################################################
                    738: 
                    739: sub domcoordchanger {
                    740:     my $r = shift;
1.154     www       741:     &Apache::lonhtmlcommon::add_breadcrumb(
1.126     droeschl  742: 	    {	href => '/adm/preferences?action=changedomcoord',
                    743:                 text => 'Restrict Domain Coordinator Access'});
                    744:     $r->print(Apache::loncommon::start_page('Restrict Domain Coordinator Access'));
                    745:     $r->print(Apache::lonhtmlcommon::breadcrumbs('Restrict Domain Coordinator Access'));
1.119     www       746:     my $user       = $env{'user.name'};
                    747:     my $domain     = $env{'user.domain'};
                    748:     my %userenv = &Apache::lonnet::get
1.120     www       749:         ('environment',['domcoord.author']);
1.119     www       750:     my $constchecked='';
                    751:     if ($userenv{'domcoord.author'} eq 'blocked') {
1.159     bisitz    752:        $constchecked=' checked="checked"';
1.119     www       753:     }
1.205     bisitz    754:     my $text=&mt('By default, the Domain Coordinator can enter your Authoring Space.');
                    755:     my $construction=&mt('Block access to Authoring Space');
1.136     schafran  756:     my $change=&mt('Save');
1.225     raeburn   757:     my $returnurl = &HTML::Entities::encode($env{'form.returnurl'},'"<>&\'');
1.119     www       758:     $r->print(<<ENDSCREEN);
                    759: <form name="prefs" action="/adm/preferences" method="post">
1.225     raeburn   760: <input type="hidden" name="returnurl" value="$returnurl" />
1.119     www       761: <input type="hidden" name="action" value="verify_and_change_domcoord" />
                    762: $text<br />
1.159     bisitz    763: <label><input type="checkbox" name="construction"$constchecked />$construction</label><br />
1.119     www       764: <input type="submit" value="$change" />
                    765: </form>
                    766: ENDSCREEN
                    767: }
                    768: 
                    769: sub verify_and_change_domcoord {
                    770:     my $r = shift;
                    771:     my $user       = $env{'user.name'};
                    772:     my $domain     = $env{'user.domain'};
1.120     www       773:     my %domcoord=('domcoord.author' => '');
1.119     www       774:     if ($env{'form.construction'}) { $domcoord{'domcoord.author'}='blocked'; }
                    775:     &Apache::lonnet::put('environment',\%domcoord);
1.120     www       776:     &Apache::lonnet::appenv({'environment.domcoord.author' => $domcoord{'domcoord.author'}});
1.158     bisitz    777:     my $status='';
                    778:     if ($domcoord{'domcoord.author'} eq 'blocked') {
                    779:         $status=&mt('on');
                    780:     } else {
                    781:         $status=&mt('off');
                    782:     }
1.205     bisitz    783:     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    784:     $message=&Apache::loncommon::confirmwrapper($message);
1.225     raeburn   785:     if ($env{'form.returnurl'}) {
                    786:         &do_redirect($r,$env{'form.returnurl'},$message);
                    787:     } else {
                    788:         &print_main_menu($r,$message);
                    789:     }
1.119     www       790: }
                    791: 
1.118     www       792: #################################################################
                    793: ##                      Lock Subroutines                        #
                    794: #################################################################
                    795: 
                    796: sub lockwarning {
                    797:     my $r = shift;
                    798:     my $title=&mt('Action locked');
                    799:     my $texttop=&mt('LON-CAPA is currently performing the following actions:');
                    800:     my $textbottom=&mt('Changing roles or logging out may result in data corruption.');
                    801:     my ($num,%which)=&Apache::lonnet::get_locks();
                    802:     my $which='';
1.214     raeburn   803:     foreach my $id (keys(%which)) {
1.118     www       804:        $which.='<li>'.$which{$id}.'</li>';
                    805:     }
                    806:     my $change=&mt('Override');
                    807:     $r->print(<<ENDSCREEN);
                    808: <form name="prefs" action="/adm/preferences" method="post">
                    809: <input type="hidden" name="action" value="verify_and_change_locks" />
                    810: <h1>$title</h1>
                    811: $texttop
                    812: <ul>
                    813: $which
                    814: </ul>
                    815: $textbottom
                    816: <input type="submit" value="$change" />
                    817: </form>
                    818: ENDSCREEN
                    819: }
                    820: 
                    821: sub verify_and_change_lockwarning {
                    822:     my $r = shift;
                    823:     &Apache::lonnet::remove_all_locks();
                    824:     $r->print(&mt('Cleared locks.'));
                    825: }
                    826: 
                    827: 
1.105     www       828: ################################################################
1.20      www       829: #         Message Forward                                      #
                    830: ################################################################
                    831: 
                    832: sub msgforwardchanger {
1.102     raeburn   833:     my ($r,$message) = @_;
1.59      albertel  834:     my $user       = $env{'user.name'};
                    835:     my $domain     = $env{'user.domain'};
1.102     raeburn   836:     my %userenv = &Apache::lonnet::get('environment',['msgforward','notification','critnotification','notifywithhtml']);
1.20      www       837:     my $msgforward=$userenv{'msgforward'};
1.102     raeburn   838:     my %lt = &Apache::lonlocal::texthash(
                    839:                                           all   => 'All',
                    840:                                           crit  => 'Critical only',
                    841:                                           reg   => 'Non-critical only',
1.175     raeburn   842:                                           foad  => 'Forward to account(s)',
                    843:                                           fwdm  => 'Forward messages to other account(s) in LON-CAPA',
                    844:                                           noti  => 'E-mail notification of LON-CAPA messages',
                    845:                                           mnot  => 'E-mail address(es) which should be notified about new LON-CAPA messages',
1.136     schafran  846:                                           chg   => 'Save',
1.104     raeburn   847:                                           email => 'The e-mail address entered in row ',
1.102     raeburn   848:                                           notv => 'is not a valid e-mail address',
1.103     raeburn   849:                                           toen => "To enter multiple addresses, enter one address at a time, click 'Change' and then add the next one", 
1.136     schafran  850:                                           prme => 'Back',
1.102     raeburn   851:                                         );
1.208     bisitz    852:     $lt{'foad_exmpl'} = &mt('e.g. [_1]userA:domain1,userB:domain2,...[_2]','<tt>','</tt>');
                    853:     $lt{'mnot_exmpl'} = &mt('e.g. [_1]joe@doe.com[_2]','<tt>','</tt>');
1.126     droeschl  854:     Apache::lonhtmlcommon::add_breadcrumb(
                    855: 	    {	href => '/adm/preferences?action=changemsgforward',
1.176     raeburn   856: 		text => 'Messages & Notifications'});
1.178     bisitz    857:     $r->print(Apache::loncommon::start_page('Messages &amp; Notifications'));
                    858:     $r->print(Apache::lonhtmlcommon::breadcrumbs('Messages &amp; Notifications'));
1.113     raeburn   859:     my $forwardingHelp = &Apache::loncommon::help_open_topic("Prefs_Forwarding");
                    860:     my $notificationHelp = &Apache::loncommon::help_open_topic("Prefs_Notification");
                    861:     my $criticalMessageHelp = &Apache::loncommon::help_open_topic("Course_Critical_Message");
1.102     raeburn   862:     my @allow_html = split(/,/,$userenv{'notifywithhtml'});
                    863:     my %allnot = &get_notifications(\%userenv);
                    864:     my $validatescript = &Apache::lonhtmlcommon::javascript_valid_email();
                    865:     my $jscript = qq|
1.148     bisitz    866: <script type="text/javascript" language="JavaScript">
1.102     raeburn   867: function validate() {
                    868:     for (var i=0; i<document.prefs.numnotify.value; i++) {
1.104     raeburn   869:         var checkaddress = 0;
1.102     raeburn   870:         var addr = document.prefs.elements['address_'+i].value;
1.104     raeburn   871:         var rownum = i+1;
1.102     raeburn   872:         if (i < document.prefs.numnotify.value-1) {
1.104     raeburn   873:             if (document.prefs.elements['modify_notify_'+i].checked) {
1.102     raeburn   874:                 checkaddress = 1;
1.104     raeburn   875:             }
1.102     raeburn   876:         } else {
                    877:             if (document.prefs.elements['add_notify_'+i].checked == true) { 
                    878:                 checkaddress = 1;
                    879:             }
                    880:         }
1.104     raeburn   881:         if (checkaddress == 1)  {
1.102     raeburn   882:             var addr = document.prefs.elements['address_'+i].value;
                    883:             if (validmail(document.prefs.elements['address_'+i]) == false) {
1.104     raeburn   884:                 var multimsg = '';
                    885:                 if (addr.indexOf(",") >= 0) {
                    886:                     multimsg = "\\n($lt{'toen'}).";
                    887:                 }
1.110     bisitz    888:                 alert("$lt{'email'} "+rownum+" ('"+addr+"') $lt{'notv'}."+multimsg);
1.102     raeburn   889:                 return;
                    890:             }
                    891:         }
                    892:     }
                    893:     document.prefs.submit();
                    894: }
1.104     raeburn   895: 
                    896: function address_changes (adnum) {
                    897:      if (!document.prefs.elements['del_notify_'+adnum].checked) { 
                    898:          document.prefs.elements['modify_notify_'+adnum].checked = true;
                    899:      }   
                    900: }
                    901: 
                    902: function new_address(adnum) {
                    903:      document.prefs.elements['add_notify_'+adnum].checked = true;
                    904: }
                    905: 
                    906: function delete_address(adnum) {
                    907:      if (document.prefs.elements['del_notify_'+adnum].checked) {
                    908:           document.prefs.elements['modify_notify_'+adnum].checked = false;
                    909:      }
                    910: }
                    911: 
                    912: function modify_address(adnum) {
                    913:     if (document.prefs.elements['modify_notify_'+adnum].checked) {
                    914:         document.prefs.elements['del_notify_'+adnum].checked = false;
                    915:     }
                    916: } 
                    917: 
1.102     raeburn   918: $validatescript
                    919: </script>
                    920: |;
1.20      www       921:     $r->print(<<ENDMSG);
1.102     raeburn   922: $jscript
                    923: $message
1.175     raeburn   924: <h3>$lt{'fwdm'} $forwardingHelp</h3>
1.88      albertel  925: <form name="prefs" action="/adm/preferences" method="post">
1.20      www       926: <input type="hidden" name="action" value="verify_and_change_msgforward" />
1.110     bisitz    927: $lt{'foad'} ($lt{'foad_exmpl'}):
1.175     raeburn   928: <input type="text" size="40" value="$msgforward" name="msgforward" />
                    929: <br /><br />
1.113     raeburn   930: <h3>$lt{'noti'} $notificationHelp</h3>
1.110     bisitz    931: $lt{'mnot'} ($lt{'mnot_exmpl'}):<br />
1.102     raeburn   932: ENDMSG
                    933:     my @sortforwards = sort (keys(%allnot));
                    934:     my $output = &Apache::loncommon::start_data_table().
                    935:                  &Apache::loncommon::start_data_table_header_row().
1.104     raeburn   936:                  '<th>&nbsp;</th>'.
1.102     raeburn   937:                  '<th>'.&mt('Action').'</th>'.
                    938:                  '<th>'.&mt('Notification address').'</th><th>'.
1.113     raeburn   939:                  &mt('Types of message for which notification is sent').
                    940:                  $criticalMessageHelp.'</th><th>'.
1.104     raeburn   941:                  &mt('Excerpt retains HTML tags in message').'</th>'.
1.102     raeburn   942:                  &Apache::loncommon::end_data_table_header_row();
                    943:     my $num = 0;
1.104     raeburn   944:     my $counter = 1;
1.102     raeburn   945:     foreach my $item (@sortforwards) {
                    946:         $output .= &Apache::loncommon::start_data_table_row().
1.104     raeburn   947:                    '<td><b>'.$counter.'</b></td>'.
                    948:                    '<td><span class="LC_nobreak"><label>'.
                    949:                    '<input type="checkbox" name="modify_notify_'.
                    950:                    $num.'" onclick="javscript:modify_address('."'$num'".')" />'.
                    951:                    &mt('Modify').'</label></span>&nbsp;&nbsp; '.
                    952:                    '<span class="LC_nobreak"><label>'.
                    953:                    '<input type="checkbox" name="del_notify_'.$num.
                    954:                    '" onclick="javscript:delete_address('."'$num'".')" />'.
                    955:                    &mt('Delete').'</label></span></td>'.
1.102     raeburn   956:                    '<td><input type="text" value="'.$item.'" name="address_'.
1.206     bisitz    957:                    $num.'" onfocus="javascript:address_changes('."'$num'".
1.104     raeburn   958:                    ')" /></td><td>';
1.102     raeburn   959:         my %chk;
                    960:         if (defined($allnot{$item}{'crit'})) {
                    961:             if (defined($allnot{$item}{'reg'})) {
                    962:                 $chk{'all'} = 'checked="checked" ';
                    963:             } else {
                    964:                 $chk{'crit'} = 'checked="checked" ';
                    965:             }
                    966:         } else {
                    967:             $chk{'reg'} = 'checked="checked" ';
                    968:         }
                    969:         foreach my $type ('all','crit','reg') {
                    970:             $output .= '<span class="LC_nobreak"><label>'.
                    971:                        '<input type="radio" name="notify_type_'.$num. 
1.104     raeburn   972:                        '" value="'.$type.'" '.$chk{$type}.
                    973:                        ' onchange="javascript:address_changes('."'$num'".')" />'.
1.175     raeburn   974:                        $lt{$type}.'</label></span>'.('&nbsp;' x4);
1.102     raeburn   975:         }
                    976:         my $htmlon = '';
                    977:         my $htmloff = '';
                    978:         if (grep/^\Q$item\E/,@allow_html) {
                    979:             $htmlon = 'checked="checked" '; 
                    980:         } else {
                    981:             $htmloff = 'checked="checked" ';
                    982:         }
                    983:         $output .= '</td><td><label><input type="radio" name="html_'.$num.
1.104     raeburn   984:                    '" value="1" '.$htmlon.
                    985:                    ' onchange="javascript:address_changes('."'$num'".')" />'.
1.175     raeburn   986:                    &mt('Yes').'</label>'.('&nbsp;' x3).
1.102     raeburn   987:                    '<label><input type="radio" name="html_'.$num.'" value="0" '.
1.104     raeburn   988:                    $htmloff. ' onchange="javascript:address_changes('."'$num'".
                    989: ')" />'.
                    990:                    &mt('No').'</label></td>'.
1.102     raeburn   991:                    &Apache::loncommon::end_data_table_row();
                    992:         $num ++;
1.104     raeburn   993:         $counter ++;
1.102     raeburn   994:     }
                    995:     my %defchk = (
                    996:                    all => 'checked="checked" ',
                    997:                    crit => '',
                    998:                    reg => '',
                    999:                  );
                   1000:     $output .= &Apache::loncommon::start_data_table_row().
1.104     raeburn  1001:                '<td><b>'.$counter.'</b></td>'.
                   1002:                '<td><span class="LC_nobreak"><label>'.
                   1003:                '<input type="checkbox" name="add_notify_'.$num.
                   1004:                '" value="1" />'.&mt('Add new address').'</label></span></td>'.
1.102     raeburn  1005:                '<td><input type="text" value="" name="address_'.$num.
1.206     bisitz   1006:                '" onfocus="javascript:new_address('."'$num'".')" /></td><td>';
1.102     raeburn  1007:     foreach my $type ('all','crit','reg') {
                   1008:         $output .= '<span class="LC_nobreak"><label>'.
                   1009:                    '<input type="radio" name="notify_type_'.$num.
                   1010:                    '" value="'.$type.'" '.$defchk{$type}.'/>'.
1.175     raeburn  1011:                    $lt{$type}.'</label></span>'.('&nbsp;' x4);
1.102     raeburn  1012:     }
                   1013:     $output .= '</td><td><label><input type="radio" name="html_'.$num.
1.175     raeburn  1014:                '" value="1" />'.&mt('Yes').'</label>'.('&nbsp;' x3).
1.102     raeburn  1015:                '<label><input type="radio" name="html_'.$num.'" value="0" '.
                   1016:                ' checked="checked" />'.
                   1017:                &mt('No').'</label></td>'.
                   1018:                &Apache::loncommon::end_data_table_row().
                   1019:                &Apache::loncommon::end_data_table();
                   1020:     $num ++;
                   1021:     $r->print($output);
                   1022:     $r->print(qq|
1.113     raeburn  1023: <br /><hr />
1.102     raeburn  1024: <input type="hidden" name="numnotify" value="$num" />
1.136     schafran 1025: <input type="button" value="$lt{'prme'}" onclick="location.href='/adm/preferences'" />
1.102     raeburn  1026: <input type="button" value="$lt{'chg'}" onclick="javascript:validate()" />
1.20      www      1027: </form>
1.102     raeburn  1028: |);
                   1029: 
                   1030: }
                   1031: 
                   1032: sub get_notifications {
                   1033:     my ($userenv) = @_;
                   1034:     my %allnot;
                   1035:     my @critnot = split(/,/,$userenv->{'critnotification'});
                   1036:     my @regnot = split(/,/,$userenv->{'notification'});
                   1037:     foreach my $item (@critnot) {
                   1038:         $allnot{$item}{crit} = 1;
                   1039:     }
                   1040:     foreach my $item (@regnot) {
                   1041:         $allnot{$item}{reg} = 1;
                   1042:     }
                   1043:     return %allnot;
1.20      www      1044: }
                   1045: 
                   1046: sub verify_and_change_msgforward {
                   1047:     my $r = shift;
1.59      albertel 1048:     my $user       = $env{'user.name'};
                   1049:     my $domain     = $env{'user.domain'};
1.20      www      1050:     my $newscreen  = '';
                   1051:     my $message='';
1.182     raeburn  1052:     foreach my $recip (split(/\,/,$env{'form.msgforward'})) {
                   1053:         my ($msuser,$msdomain);
                   1054:         if ($recip =~ /:/) {
                   1055:             ($msuser,$msdomain)=split(':',$recip);
                   1056:         } else {
                   1057:             ($msuser,$msdomain)=split(/\@/,$recip);
                   1058:         }
1.95      albertel 1059:         $msuser = &LONCAPA::clean_username($msuser);
                   1060:         $msdomain = &LONCAPA::clean_domain($msdomain);
1.20      www      1061:         if (($msuser) && ($msdomain)) {
                   1062: 	    if (&Apache::lonnet::homeserver($msuser,$msdomain) ne 'no_host') {
1.182     raeburn  1063:                 $newscreen.=$msuser.':'.$msdomain.',';
                   1064: 	    } else {
                   1065:                 $message.= &mt('No such user: ').'<tt>'.$msuser.':'.$msdomain.'</tt><br />';
                   1066:             }
1.20      www      1067:         }
                   1068:     }
                   1069:     $newscreen=~s/\,$//;
                   1070:     if ($newscreen) {
                   1071:         &Apache::lonnet::put('environment',{'msgforward' => $newscreen});
1.116     raeburn  1072:         &Apache::lonnet::appenv({'environment.msgforward' => $newscreen});
1.180     wenzelju 1073:         $message .= &Apache::lonhtmlcommon::confirm_success(&mt('Set message forwarding to ').'<tt>"'.$newscreen.'"</tt>.<br />');
1.20      www      1074:     } else {
                   1075:         &Apache::lonnet::del('environment',['msgforward']);
1.139     raeburn  1076:         &Apache::lonnet::delenv('environment.msgforward');
1.180     wenzelju 1077:         $message.= &Apache::lonhtmlcommon::confirm_success(&mt("Set message forwarding to 'off'.").'<br />');
1.20      www      1078:     }
1.102     raeburn  1079:     my $critnotification;
                   1080:     my $notification;
                   1081:     my $notify_with_html;
                   1082:     my $lastnotify = $env{'form.numnotify'}-1;
1.104     raeburn  1083:     my $totaladdresses = 0;
1.102     raeburn  1084:     for (my $i=0; $i<$env{'form.numnotify'}; $i++) {
                   1085:         if ((!defined($env{'form.del_notify_'.$i})) &&  
1.104     raeburn  1086:            ((($i==$lastnotify) && ($env{'form.add_notify_'.$lastnotify} == 1)) ||
1.102     raeburn  1087:             ($i<$lastnotify))) {
                   1088:             if (defined($env{'form.address_'.$i})) {
                   1089:                 if ($env{'form.notify_type_'.$i} eq 'all') {
                   1090:                     $critnotification .= $env{'form.address_'.$i}.',';
                   1091:                     $notification .= $env{'form.address_'.$i}.',';
                   1092:                 } elsif ($env{'form.notify_type_'.$i} eq 'crit') {
                   1093:                     $critnotification .= $env{'form.address_'.$i}.',';
                   1094:                 } elsif ($env{'form.notify_type_'.$i} eq 'reg') {
                   1095:                     $notification .= $env{'form.address_'.$i}.','; 
                   1096:                 }
                   1097:                 if ($env{'form.html_'.$i} eq '1') {
                   1098: 		    $notify_with_html .= $env{'form.address_'.$i}.',';       	
                   1099:                 }
1.104     raeburn  1100:                 $totaladdresses ++;
1.102     raeburn  1101:             }
                   1102:         }
                   1103:     }
                   1104:     $critnotification =~ s/,$//;
                   1105:     $critnotification=~s/\s//gs;
                   1106:     $notification =~ s/,$//;
1.20      www      1107:     $notification=~s/\s//gs;
1.102     raeburn  1108:     $notify_with_html =~ s/,$//;
                   1109:     $notify_with_html =~ s/\s//gs;
1.20      www      1110:     if ($notification) {
                   1111:         &Apache::lonnet::put('environment',{'notification' => $notification});
1.116     raeburn  1112:         &Apache::lonnet::appenv({'environment.notification' => $notification});
1.180     wenzelju 1113:         $message.=&Apache::lonhtmlcommon::confirm_success(&mt('Set non-critical message notification address(es) to ').'<tt>"'.$notification.'"</tt>.<br />');
1.20      www      1114:     } else {
                   1115:         &Apache::lonnet::del('environment',['notification']);
1.139     raeburn  1116:         &Apache::lonnet::delenv('environment.notification');
1.180     wenzelju 1117:         $message.=&Apache::lonhtmlcommon::confirm_success(&mt("Set non-critical message notification to 'off'.").'<br />');
1.20      www      1118:     }
                   1119:     if ($critnotification) {
                   1120:         &Apache::lonnet::put('environment',{'critnotification' => $critnotification});
1.116     raeburn  1121:         &Apache::lonnet::appenv({'environment.critnotification' => $critnotification});
1.180     wenzelju 1122:         $message.=&Apache::lonhtmlcommon::confirm_success(&mt('Set critical message notification address(es) to ').'<tt>"'.$critnotification.'"</tt>.<br />');
1.20      www      1123:     } else {
                   1124:         &Apache::lonnet::del('environment',['critnotification']);
1.139     raeburn  1125:         &Apache::lonnet::delenv('environment.critnotification');
1.180     wenzelju 1126:         $message.=&Apache::lonhtmlcommon::confirm_success(&mt("Set critical message notification to 'off'.").'<br />');
1.102     raeburn  1127:     }
                   1128:     if ($critnotification || $notification) {
                   1129:         if ($notify_with_html) {
                   1130:             &Apache::lonnet::put('environment',{'notifywithhtml' => $notify_with_html});
1.116     raeburn  1131:             &Apache::lonnet::appenv({'environment.notifywithhtml' => $notify_with_html});
1.180     wenzelju 1132:             $message.=&Apache::lonhtmlcommon::confirm_success(&mt('Set address(es) to receive excerpts with html retained ').'<tt>"'.$notify_with_html.'"</tt>.');
1.102     raeburn  1133:         } else {
                   1134:             &Apache::lonnet::del('environment',['notifywithhtml']);
1.139     raeburn  1135:             &Apache::lonnet::delenv('environment.notifywithhtml');
1.104     raeburn  1136:             if ($totaladdresses == 1) {
1.180     wenzelju 1137:                 $message.=&Apache::lonhtmlcommon::confirm_success(&mt("Set notification address to receive excerpts with html stripped."));
1.104     raeburn  1138:             } else {
1.180     wenzelju 1139:                 $message.=&Apache::lonhtmlcommon::confirm_success(&mt("Set all notification addresses to receive excerpts with html stripped."));
1.104     raeburn  1140:             }
1.102     raeburn  1141:         }
                   1142:     } else {
                   1143:         &Apache::lonnet::del('environment',['notifywithhtml']);
1.139     raeburn  1144:         &Apache::lonnet::delenv('environment.notifywithhtml');
1.102     raeburn  1145:     }
1.109     albertel 1146:     &Apache::loncommon::flush_email_cache($user,$domain);
1.180     wenzelju 1147:     $message=&Apache::loncommon::confirmwrapper($message);
1.102     raeburn  1148:     &msgforwardchanger($r,$message);
1.6       www      1149: }
                   1150: 
1.12      www      1151: ################################################################
1.19      www      1152: #         Colors                                               #
1.12      www      1153: ################################################################
                   1154: 
1.19      www      1155: sub colorschanger {
1.12      www      1156:     my $r = shift;
1.126     droeschl 1157:     Apache::lonhtmlcommon::add_breadcrumb(
                   1158: 	    {	href => '/adm/preferences?action=changecolors',
                   1159:                 text => 'Change Colors'});
1.147     schafran 1160:     $r->print(Apache::loncommon::start_page('Page Display Settings'));
1.126     droeschl 1161:     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Colors'));
1.19      www      1162: # figure out colors
1.80      albertel 1163:     my $function=&Apache::loncommon::get_users_function();
1.19      www      1164:     my $domain=&Apache::loncommon::determinedomain();
1.157     bisitz   1165:     my %colortypes=&Apache::lonlocal::texthash(
                   1166:         'pgbg'     => 'Page Background Color',
                   1167:         'tabbg'    => 'Header Background Color',
                   1168:         'sidebg'   => 'Header Border Color',
                   1169:         'font'     => 'Font Color',
                   1170:         'fontmenu' => 'Font Menu Color',
                   1171:         'link'     => 'Un-Visited Link Color',
                   1172:         'vlink'    => 'Visited Link Color',
                   1173:         'alink'    => 'Active Link Color',
                   1174:     );
1.82      albertel 1175:     my $start_data_table = &Apache::loncommon::start_data_table();
1.19      www      1176:     my $chtable='';
1.22      matthew  1177:     foreach my $item (sort(keys(%colortypes))) {
1.19      www      1178:        my $curcol=&Apache::loncommon::designparm($function.'.'.$item,$domain);
1.82      albertel 1179:        $chtable.=&Apache::loncommon::start_data_table_row().
1.200     foxr     1180: 	   '<td>'.$colortypes{$item}.'<td><input name="'.$item.
                   1181:         '" class="colorchooser"  size="10" value="'.$curcol.
                   1182: '" /></td>'.
1.83      albertel 1183: 	    &Apache::loncommon::end_data_table_row()."\n";
1.19      www      1184:     }
1.82      albertel 1185:     my $end_data_table = &Apache::loncommon::end_data_table();
1.23      matthew  1186:     my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition();
1.157     bisitz   1187:     my $savebutton = &mt('Save');
                   1188:     my $resetbutton = &mt('Reset All');
                   1189:     my $resetbuttondesc = &mt('Reset All Colors to Default');
1.200     foxr     1190:     my $colorchooser=&Apache::lonhtmlcommon::color_picker();
1.202     raeburn  1191:     $r->print('<script type="text/javascript" language="JavaScript">
1.200     foxr     1192: ' . $colorchooser . '
                   1193: </script>
                   1194: ');
1.19      www      1195:     $r->print(<<ENDCOL);
                   1196: 
1.207     bisitz   1197: <form name="parmform" action="">
1.21      www      1198: <input type="hidden" name="pres_marker" />
                   1199: <input type="hidden" name="pres_type" />
                   1200: <input type="hidden" name="pres_value" />
                   1201: </form>
1.88      albertel 1202: <form name="prefs" action="/adm/preferences" method="post">
1.19      www      1203: <input type="hidden" name="action" value="verify_and_change_colors" />
1.82      albertel 1204: $start_data_table
1.19      www      1205: $chtable
1.82      albertel 1206: $end_data_table
1.19      www      1207: </table>
1.157     bisitz   1208: <p>
                   1209: <input type="submit" value="$savebutton" />
                   1210: <input type="submit" name="resetall" value="$resetbutton" title="$resetbuttondesc" />
                   1211: </p>
1.12      www      1212: </form>
1.19      www      1213: ENDCOL
1.12      www      1214: }
                   1215: 
1.19      www      1216: sub verify_and_change_colors {
1.12      www      1217:     my $r = shift;
1.19      www      1218: # figure out colors
1.80      albertel 1219:     my $function=&Apache::loncommon::get_users_function();
1.19      www      1220:     my $domain=&Apache::loncommon::determinedomain();
1.157     bisitz   1221:     my %colortypes=&Apache::lonlocal::texthash(
                   1222:         'pgbg'     => 'Page Background Color',
                   1223:         'tabbg'    => 'Header Background Color',
                   1224:         'sidebg'   => 'Header Border Color',
                   1225:         'font'     => 'Font Color',
                   1226: 	'fontmenu' => 'Font Menu Color',
                   1227:         'link'     => 'Un-Visited Link Color',
                   1228:         'vlink'    => 'Visited Link Color',
                   1229:         'alink'    => 'Active Link Color',
                   1230:     );
1.19      www      1231: 
1.12      www      1232:     my $message='';
1.214     raeburn  1233:     foreach my $item (keys(%colortypes)) {
1.59      albertel 1234:         my $color=$env{'form.'.$item};
1.200     foxr     1235: 	if (!($color =~ /^#/)) {
                   1236: 	    $color = '#' . $color;
                   1237: 	}
1.21      www      1238:         my $entry='color.'.$function.'.'.$item;
1.59      albertel 1239: 	if (($color=~/^\#[0-9A-Fa-f]{6}$/) && (!$env{'form.resetall'})) {
1.21      www      1240: 	    &Apache::lonnet::put('environment',{$entry => $color});
1.116     raeburn  1241: 	    &Apache::lonnet::appenv({'environment.'.$entry => $color});
1.157     bisitz   1242:             $message.=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.$colortypes{$item}.'</i>','<tt>"'.$color.'"</tt>'))
                   1243:                     .'<br />';
1.21      www      1244: 	} else {
                   1245: 	    &Apache::lonnet::del('environment',[$entry]);
1.138     schafran 1246: 	    &Apache::lonnet::delenv('environment.'.$entry);
1.157     bisitz   1247:             $message.=&Apache::lonhtmlcommon::confirm_success(&mt('Reset [_1]','<i>'.$colortypes{$item}.'</i>'))
                   1248:                      .'<br />';
1.21      www      1249: 	}
                   1250:     }
1.158     bisitz   1251:     $message=&Apache::loncommon::confirmwrapper($message);
1.157     bisitz   1252: 
1.84      albertel 1253:     my $now = time;
                   1254:     &Apache::lonnet::put('environment',{'color.timestamp' => $now});
1.116     raeburn  1255:     &Apache::lonnet::appenv({'environment.color.timestamp' => $now});
1.84      albertel 1256: 
1.152     www      1257:     &print_main_menu($r, $message);
1.12      www      1258: }
                   1259: 
1.4       matthew  1260: ######################################################
                   1261: #            password handler subroutines            #
                   1262: ######################################################
1.3       matthew  1263: sub passwordchanger {
1.228     raeburn  1264:     my ($r,$errormessage,$caller,$mailtoken,$timelimit,$extrafields) = @_;
1.4       matthew  1265:     # This function is a bit of a mess....
1.3       matthew  1266:     # Passwords are encrypted using londes.js (DES encryption)
1.4       matthew  1267:     $errormessage = ($errormessage || '');
1.239     raeburn  1268:     my ($user,$domain,$currentpass,$clientip);
                   1269:     $clientip = &Apache::lonnet::get_requestor_ip($r);
1.152     www      1270:     &Apache::lonhtmlcommon::add_breadcrumb(
1.126     droeschl 1271: 		{ href => '/adm/preferences?action=changepass',
                   1272:                   text => 'Change Password'});
1.144     raeburn  1273:     unless ($caller eq 'reset_by_email') {
1.147     schafran 1274:         $r->print(Apache::loncommon::start_page('Personal Data'));
1.144     raeburn  1275:         $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Password'));
                   1276:     }
1.94      raeburn  1277:     if ((!defined($caller)) || ($caller eq 'preferences')) {
                   1278:         $user = $env{'user.name'};
                   1279:         $domain = $env{'user.domain'};
                   1280:         if (!defined($caller)) {
                   1281:             $caller = 'preferences';
                   1282:         }
1.236     raeburn  1283:         my ($blocked,$blocktext) =
1.239     raeburn  1284:             &Apache::loncommon::blocking_status('passwd',$clientip);
1.236     raeburn  1285:         if ($blocked) {
                   1286:             $r->print('<p class="LC_warning">'.$blocktext.'</p>');
                   1287:             return;
                   1288:         }
1.94      raeburn  1289:     } elsif ($caller eq 'reset_by_email') {
1.229     raeburn  1290:         my %data = &Apache::lonnet::tmpget($mailtoken);
                   1291:         if (keys(%data) == 0) {
                   1292:             $r->print(
                   1293:                 '<p class="LC_warning">'
                   1294:                .&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.'
                   1295:                    ,'<a href="/adm/resetpw">','</a>')
                   1296:                .'</p>'
                   1297:             );
                   1298:             return;
                   1299:         }
                   1300:         if (defined($data{time})) {
                   1301:             if (time - $data{'time'} < $timelimit) {
                   1302:                 $user = $data{'username'};
                   1303:                 $domain = $data{'domain'};
                   1304:                 $currentpass = $data{'temppasswd'};
1.236     raeburn  1305:                 my ($blocked,$blocktext) =
1.239     raeburn  1306:                     &Apache::loncommon::blocking_status('passwd',$clientip,$user,$domain);
1.236     raeburn  1307:                 if ($blocked) {
                   1308:                     $r->print('<p class="LC_warning">'.$blocktext.'</p>');
                   1309:                     return;
                   1310:                 }
1.94      raeburn  1311:             } else {
1.199     bisitz   1312:                 $r->print(
                   1313:                     '<p class="LC_warning">'
1.229     raeburn  1314:                    .&mt('Sorry, the token generated when you requested'
                   1315:                        .' a password reset has expired.')
1.199     bisitz   1316:                    .'</p>'
                   1317:                 );
1.94      raeburn  1318:                 return;
                   1319:             }
1.231     raeburn  1320:         } else {
1.229     raeburn  1321:             $r->print(
                   1322:                 '<p class="LC_warning">'
                   1323:                .&mt('Sorry, the URL generated when you requested reset of'
                   1324:                    .' your password contained incomplete information.')
                   1325:                .'</p>'
                   1326:             );
                   1327:             return;
                   1328:         }
                   1329:         if (&Apache::lonnet::domain($domain) eq '') {
                   1330:             $domain = $r->dir_config('lonDefDomain');
                   1331:         }
1.193     raeburn  1332:     } else {
1.199     bisitz   1333:         $r->print(
                   1334:             '<p class="LC_error">'
                   1335:            .&mt('Page requested in unexpected context')
                   1336:            .'</p>'
                   1337:         );
1.94      raeburn  1338:         return;
                   1339:     }
1.3       matthew  1340:     my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain);
                   1341:     # Check for authentication types that allow changing of the password.
                   1342:     return if ($currentauth !~ /^(unix|internal):/);
                   1343:     #
                   1344:     # Generate keys
1.212     raeburn  1345:     my ($lkey_cpass ,$ukey_cpass ) = &Apache::loncommon::des_keys();
                   1346:     my ($lkey_npass1,$ukey_npass1) = &Apache::loncommon::des_keys();
                   1347:     my ($lkey_npass2,$ukey_npass2) = &Apache::loncommon::des_keys();
1.4       matthew  1348:     # Store the keys in the log files
1.3       matthew  1349:     my $lonhost = $r->dir_config('lonHostID');
                   1350:     my $logtoken=Apache::lonnet::reply('tmpput:'
                   1351: 				       .$ukey_cpass  . $lkey_cpass .'&'
                   1352: 				       .$ukey_npass1 . $lkey_npass1.'&'
                   1353: 				       .$ukey_npass2 . $lkey_npass2,
                   1354: 				       $lonhost);
1.4       matthew  1355:     # Hexify the keys for output as javascript variables
1.94      raeburn  1356:     my %hexkey;
                   1357:     $hexkey{'ukey_cpass'}  = hex($ukey_cpass);
                   1358:     $hexkey{'lkey_cpass'}  = hex($lkey_cpass);
                   1359:     $hexkey{'ukey_npass1'} = hex($ukey_npass1);
                   1360:     $hexkey{'lkey_npass1'} = hex($lkey_npass1);
                   1361:     $hexkey{'ukey_npass2'} = hex($ukey_npass2);
                   1362:     $hexkey{'lkey_npass2'} = hex($lkey_npass2);
1.3       matthew  1363:     # Output javascript to deal with passwords
1.4       matthew  1364:     # Output DES javascript
1.3       matthew  1365:     {
                   1366: 	my $include = $r->dir_config('lonIncludes');
                   1367: 	my $jsh=Apache::File->new($include."/londes.js");
                   1368: 	$r->print(<$jsh>);
                   1369:     }
1.236     raeburn  1370:     $r->print(&jscript_send($caller,$domain,$currentauth,$extrafields));
1.3       matthew  1371:     $r->print(<<ENDFORM);
1.94      raeburn  1372: $errormessage
                   1373: 
                   1374: <p>
                   1375: <!-- We separate the forms into 'server' and 'client' in order to
                   1376:      ensure that unencrypted passwords will not be sent out by a
                   1377:      crappy browser -->
                   1378: ENDFORM
1.228     raeburn  1379:     $r->print(&server_form($logtoken,$caller,$mailtoken,$extrafields));
                   1380:     $r->print(&client_form($caller,\%hexkey,$currentpass,$domain,$extrafields));
1.94      raeburn  1381: 
                   1382:     #
                   1383:     return;
                   1384: }
                   1385: 
                   1386: sub jscript_send {
1.236     raeburn  1387:     my ($caller,$domain,$currentauth,$extrafields) = @_;
                   1388:     my ($min,$max,$rulestr,$numrules);
                   1389:     $min = $Apache::lonnet::passwdmin;
                   1390:     my %js_lt = &Apache::lonlocal::texthash(
                   1391:               uc => 'New password needs at least one upper case letter',
                   1392:               lc => 'New password needs at least one lower case letter',
                   1393:               num => 'New password needs at least one number',
                   1394:               spec => 'New password needs at least one non-alphanumeric',
                   1395:               blank1 => 'Empty Password field',
                   1396:               blank2 => 'Empty Confirm Password field',
                   1397:               mismatch => 'Contents of Password and Confirm Password fields must match',
                   1398:               fail => 'Please fix the following:',
                   1399:     );
                   1400:     &js_escape(\%js_lt);
                   1401:     if ($currentauth eq 'internal:') {
                   1402:         if ($domain ne '') {
                   1403:             my %passwdconf = &Apache::lonnet::get_passwdconf($domain);
                   1404:             if (keys(%passwdconf)) {
                   1405:                 if ($passwdconf{min}) {
                   1406:                     $min = $passwdconf{min};
                   1407:                 }
                   1408:                 if ($passwdconf{max}) {
                   1409:                     $max = $passwdconf{max};
                   1410:                     $js_lt{'long'} = &js_escape(&mt('Maximum password length: [_1]',$max));
                   1411:                 }
                   1412:                 if (ref($passwdconf{chars}) eq 'ARRAY') {
                   1413:                     if (@{$passwdconf{chars}}) {
                   1414:                         $rulestr =  join('","',@{$passwdconf{chars}});
                   1415:                         $numrules = scalar(@{$passwdconf{chars}});
                   1416:                     }
                   1417:                 }
                   1418:             }
                   1419:         }
                   1420:     }
                   1421:     $js_lt{'short'} = &js_escape(&mt('Minimum password length: [_1]',$min));
                   1422: 
                   1423:     my $passwdcheck = <<"ENDJS";
                   1424:         var errors = new Array();
                   1425:         var min = parseInt("$min") || 0;
                   1426:         var currauth = "$currentauth";
                   1427:         if (this.document.client.elements.newpass_1.value == '') {
                   1428:             errors.push("$js_lt{'blank1'}");
                   1429:         }
                   1430:         if (this.document.client.elements.newpass_2.value == '') {
                   1431:             errors.push("$js_lt{'blank2'}");
                   1432:         }
                   1433:         if (errors.length == 0) {
                   1434:             if (this.document.client.elements.newpass_1.value !=  this.document.client.elements.newpass_2.value) {
                   1435:                 errors.push("$js_lt{'mismatch'}");
                   1436:             }
                   1437:             var posspass = this.document.client.elements.newpass_1.value;
                   1438:             if (min > 0) {
                   1439:                 if (posspass.length < min) {
                   1440:                     errors.push("$js_lt{'short'}");
                   1441:                 }
                   1442:             }
                   1443:             if (currauth == 'internal:') {
                   1444:                 var max = parseInt("$max") || 0;
                   1445:                 if (max > 0) {
                   1446:                     if (posspass.length > max) {
                   1447:                         errors.push("$js_lt{'long'}");
                   1448:                     }
                   1449:                 }
                   1450:                 var numrules = parseInt("$numrules") || 0;
                   1451:                 if (numrules > 0) {
                   1452:                     var rules = new Array("$rulestr");
                   1453:                     for (var i=0; i<rules.length; i++) {
                   1454:                         if (rules[i] == 'uc') {
                   1455:                             if (!posspass.match(/[A-Z]/)) {
                   1456:                                 errors.push("$js_lt{'uc'}");
                   1457:                             }
                   1458:                         } else if (rules[i] == 'lc') {
                   1459:                             if (!posspass.match(/[a-z]/)) {
                   1460:                                 errors.push("$js_lt{'lc'}");
                   1461:                             }
                   1462:                         } else if (rules[i] == 'num') {
                   1463:                             if (!posspass.match(/\\d/)) {
                   1464:                                 errors.push("$js_lt{'num'}");
                   1465:                             }
                   1466:                         } else if (rules[i] == 'spec') {
                   1467:                             var pattern = /^[!@#$%^&*()_+\\-=\\[\\]{};':"\\\|,.<a>\\/?]/;
                   1468:                             if (!posspass.match(pattern)) {
                   1469:                                 errors.push("$js_lt{'spec'}");
                   1470:                             }
                   1471:                         }
                   1472:                     }
                   1473:                 }
                   1474:             }
                   1475:         }
                   1476:         if (errors.length > 0) {
                   1477:             alert("$js_lt{'fail'}"+"\\n\\n"+errors.join("\\n"));
                   1478:             return;
                   1479:         }
                   1480: ENDJS
1.94      raeburn  1481:     my $output = qq|
1.148     bisitz   1482: <script type="text/javascript" language="JavaScript">
1.3       matthew  1483: 
                   1484:     function send() {
1.236     raeburn  1485: $passwdcheck
1.3       matthew  1486:         uextkey=this.document.client.elements.ukey_cpass.value;
                   1487:         lextkey=this.document.client.elements.lkey_cpass.value;
                   1488:         initkeys();
1.219     raeburn  1489:         this.document.pserver.elements.currentpass.value =
                   1490:             getCrypted(this.document.client.elements.currentpass.value);
1.3       matthew  1491:         uextkey=this.document.client.elements.ukey_npass1.value;
                   1492:         lextkey=this.document.client.elements.lkey_npass1.value;
                   1493:         initkeys();
1.52      raeburn  1494:         this.document.pserver.elements.newpass_1.value
1.219     raeburn  1495:             =getCrypted(this.document.client.elements.newpass_1.value);
1.3       matthew  1496:         uextkey=this.document.client.elements.ukey_npass2.value;
                   1497:         lextkey=this.document.client.elements.lkey_npass2.value;
                   1498:         initkeys();
1.52      raeburn  1499:         this.document.pserver.elements.newpass_2.value
1.219     raeburn  1500:             =getCrypted(this.document.client.elements.newpass_2.value);
1.94      raeburn  1501: |;
                   1502:     if ($caller eq 'reset_by_email') {
1.228     raeburn  1503:         if ((ref($extrafields) eq 'HASH') && ($extrafields->{'username'})) {
                   1504:             $output .= qq|
1.94      raeburn  1505:         this.document.pserver.elements.uname.value =
                   1506:                    this.document.client.elements.uname.value;
                   1507:         this.document.pserver.elements.udom.value =
                   1508:                    this.document.client.elements.udom.options[this.document.client.elements.udom.selectedIndex].value;
1.228     raeburn  1509: |;
                   1510:         }
                   1511:         if ((ref($extrafields) eq 'HASH') && ($extrafields->{'email'})) {
1.235     raeburn  1512:             $output .= qq|
1.173     raeburn  1513:         this.document.pserver.elements.email.value =
                   1514:                    this.document.client.elements.email.value;
1.94      raeburn  1515: |;
1.228     raeburn  1516:         }
1.94      raeburn  1517:     }
                   1518:     $ output .= qq|
1.52      raeburn  1519:         this.document.pserver.submit();
1.3       matthew  1520:     }
1.219     raeburn  1521: 
1.3       matthew  1522: </script>
1.94      raeburn  1523: |;
                   1524: }
1.3       matthew  1525: 
1.94      raeburn  1526: sub client_form {
1.228     raeburn  1527:     my ($caller,$hexkey,$currentpass,$defdom,$extrafields) = @_;
1.99      www      1528:     my %lt=&Apache::lonlocal::texthash(
1.115     raeburn  1529:                 'email' => 'E-mail Address',
1.99      www      1530:                 'username' => 'Username',
                   1531:                 'domain' => 'Domain',
                   1532:                 'currentpass' => 'Current Password',
                   1533:                 'newpass' => 'New Password',
                   1534:                 'confirmpass' => 'Confirm Password',
1.169     raeburn  1535:                 'changepass' => 'Save',
                   1536:     );
1.99      www      1537: 
1.207     bisitz   1538:     my $output = '<form name="client" action="">'
1.164     bisitz   1539:                 .&Apache::lonhtmlcommon::start_pick_box();
1.94      raeburn  1540:     if ($caller eq 'reset_by_email') {
1.228     raeburn  1541:         if ((ref($extrafields) eq 'HASH') && ($extrafields->{'email'})) {
                   1542:             $output .= &Apache::lonhtmlcommon::row_title(
                   1543:                        '<label for="email">'.$lt{'email'}.'</label>')
                   1544:                       .'<input type="text" name="email" size="30" autocapitalize="off" autocorrect="off" />'
                   1545:                       .&Apache::lonhtmlcommon::row_closure();
1.221     raeburn  1546:         }
1.228     raeburn  1547:         if ((ref($extrafields) eq 'HASH') && ($extrafields->{'username'})) {
1.235     raeburn  1548:             $output .= &Apache::lonhtmlcommon::row_title(
1.164     bisitz   1549:                        '<label for="uname">'.$lt{'username'}.'</label>')
1.228     raeburn  1550:                       .'<input type="text" name="uname" size="20" autocapitalize="off" autocorrect="off" />'
                   1551:                       .&Apache::lonhtmlcommon::row_closure()
                   1552:                       .&Apache::lonhtmlcommon::row_title(
1.164     bisitz   1553:                        '<label for="udom">'.$lt{'domain'}.'</label>')
1.228     raeburn  1554:                       .&Apache::loncommon::select_dom_form($defdom,'udom')
                   1555:                       .&Apache::lonhtmlcommon::row_closure();
                   1556:         }
1.94      raeburn  1557:     } else {
1.164     bisitz   1558:         $output .= &Apache::lonhtmlcommon::row_title(
                   1559:                        '<label for="currentpass">'.$lt{'currentpass'}.'</label>')
1.219     raeburn  1560:                   .'<input type="password" name="currentpass" size="20"/>'
1.164     bisitz   1561:                   .&Apache::lonhtmlcommon::row_closure();
                   1562:     }
                   1563:     $output .= &Apache::lonhtmlcommon::row_title(
                   1564:                    '<label for="newpass_1">'.$lt{'newpass'}.'</label>')
1.219     raeburn  1565:               .'<input type="password" name="newpass_1" size="20" />'
1.164     bisitz   1566:               .&Apache::lonhtmlcommon::row_closure()
                   1567:               .&Apache::lonhtmlcommon::row_title(
                   1568:                    '<label for="newpass_2">'.$lt{'confirmpass'}.'</label>')
1.219     raeburn  1569:               .'<input type="password" name="newpass_2" size="20" />'
1.164     bisitz   1570:               .&Apache::lonhtmlcommon::row_closure(1)
                   1571:               .&Apache::lonhtmlcommon::end_pick_box();
1.228     raeburn  1572:     if ($caller eq 'reset_by_email') {
                   1573:         $output .= '<input type="hidden" name="currentpass" value="'.$currentpass.'" />';
                   1574:     }
1.206     bisitz   1575:     $output .= '<p><input type="button" value="'.$lt{'changepass'}.'" onclick="send();" /></p>'
1.164     bisitz   1576:               .qq|
1.94      raeburn  1577: <input type="hidden" name="ukey_cpass"  value="$hexkey->{'ukey_cpass'}" />
                   1578: <input type="hidden" name="lkey_cpass"  value="$hexkey->{'lkey_cpass'}" />
                   1579: <input type="hidden" name="ukey_npass1" value="$hexkey->{'ukey_npass1'}" />
                   1580: <input type="hidden" name="lkey_npass1" value="$hexkey->{'lkey_npass1'}" />
                   1581: <input type="hidden" name="ukey_npass2" value="$hexkey->{'ukey_npass2'}" />
                   1582: <input type="hidden" name="lkey_npass2" value="$hexkey->{'lkey_npass2'}" />
1.3       matthew  1583: </form>
                   1584: </p>
1.164     bisitz   1585: |;
1.94      raeburn  1586:     return $output;
                   1587: }
                   1588: 
                   1589: sub server_form {
1.228     raeburn  1590:     my ($logtoken,$caller,$mailtoken,$extrafields) = @_;
1.94      raeburn  1591:     my $action = '/adm/preferences';
                   1592:     if ($caller eq 'reset_by_email') {
                   1593:         $action = '/adm/resetpw';
                   1594:     }
                   1595:     my $output = qq|
                   1596: <form name="pserver" action="$action" method="post">
                   1597: <input type="hidden" name="logtoken"    value="$logtoken" />
                   1598: <input type="hidden" name="currentpass" value="" />
                   1599: <input type="hidden" name="newpass_1"   value="" />
                   1600: <input type="hidden" name="newpass_2"   value="" />
1.228     raeburn  1601: |;
1.94      raeburn  1602:     if ($caller eq 'reset_by_email') {
                   1603:         $output .=  qq|
                   1604: <input type="hidden" name="token"   value="$mailtoken" />
1.228     raeburn  1605: |;
                   1606:        if ((ref($extrafields) eq 'HASH') && ($extrafields->{'username'})) {
                   1607:            $output .=  qq|
1.94      raeburn  1608: <input type="hidden" name="uname"   value="" />
                   1609: <input type="hidden" name="udom"   value="" />
1.228     raeburn  1610: |;
                   1611:        }
                   1612:        if ((ref($extrafields) eq 'HASH') && ($extrafields->{'email'})) {
                   1613:            $output .=  qq|
1.173     raeburn  1614: <input type="hidden" name="email"   value="" />
1.94      raeburn  1615: |;
1.228     raeburn  1616:        }
1.94      raeburn  1617:     }
                   1618:     $output .= qq|
                   1619: <input type="hidden" name="action" value="verify_and_change_pass" />
                   1620: </form>
                   1621: |;
                   1622:     return $output;
1.3       matthew  1623: }
                   1624: 
                   1625: sub verify_and_change_password {
1.236     raeburn  1626:     my ($r,$caller,$mailtoken,$timelimit,$extrafields,$ended) = @_;
1.239     raeburn  1627:     my ($user,$domain,$homeserver,$clientip);
1.94      raeburn  1628:     if ($caller eq 'reset_by_email') {
                   1629:         $user       = $env{'form.uname'};
                   1630:         $domain     = $env{'form.udom'};
                   1631:         if ($user ne '' && $domain ne '') {
                   1632:             $homeserver = &Apache::lonnet::homeserver($user,$domain);
                   1633:             if ($homeserver eq 'no_host') {
1.99      www      1634:         &passwordchanger($r,"<p>\n<span class='LC_error'>".
                   1635:                          &mt("Invalid username and/or domain")."</span>\n</p>",
1.236     raeburn  1636:                          $caller,$mailtoken,$timelimit,$extrafields);
                   1637:                 return 'no_host';
1.94      raeburn  1638:             }
                   1639:         } else {
1.99      www      1640:             &passwordchanger($r,"<p>\n<span class='LC_error'>".
                   1641:                              &mt("Username and domain were blank")."</span>\n</p>",
1.236     raeburn  1642:                              $caller,$mailtoken,$timelimit,$extrafields);
                   1643:             return 'missingdata';
1.94      raeburn  1644:         }
                   1645:     } else {
                   1646:         $user       = $env{'user.name'};
                   1647:         $domain     = $env{'user.domain'};
                   1648:         $homeserver = $env{'user.home'};
                   1649:     }
1.239     raeburn  1650:     $clientip = &Apache::lonnet::get_requestor_ip($r);
1.236     raeburn  1651:     my ($blocked,$blocktext) =
1.239     raeburn  1652:         &Apache::loncommon::blocking_status('passwd',$clientip,$user,$domain);
1.236     raeburn  1653:     if ($blocked) {
                   1654:         $r->print('<p class="LC_warning">'.$blocktext.'</p>');
                   1655:         if ($caller eq 'reset_by_email') {
                   1656:             return 'blocked';
                   1657:         } else {
                   1658:             return;
                   1659:         }
                   1660:     }
1.3       matthew  1661:     my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain);
1.4       matthew  1662:     # Check for authentication types that allow changing of the password.
1.94      raeburn  1663:     if ($currentauth !~ /^(unix|internal):/) {
                   1664:         if ($caller eq 'reset_by_email') {
1.99      www      1665:             &passwordchanger($r,"<p>\n<span class='LC_error'>".
                   1666:                              &mt("Authentication type for this user can not be changed by this mechanism").
                   1667:                              "</span>\n</p>",
1.236     raeburn  1668:                               $caller,$mailtoken,$timelimit,$extrafields);
                   1669:             return 'otherauth';
1.94      raeburn  1670:         } else {
                   1671:             return;
                   1672:         }
                   1673:     }
1.3       matthew  1674:     #
1.59      albertel 1675:     my $currentpass = $env{'form.currentpass'}; 
                   1676:     my $newpass1    = $env{'form.newpass_1'}; 
                   1677:     my $newpass2    = $env{'form.newpass_2'};
                   1678:     my $logtoken    = $env{'form.logtoken'};
1.3       matthew  1679:     # Check for empty data 
1.4       matthew  1680:     unless (defined($currentpass) && 
                   1681: 	    defined($newpass1)    && 
                   1682: 	    defined($newpass2)    ){
1.99      www      1683: 	&passwordchanger($r,"<p>\n<span class='LC_error'>".
                   1684: 			 &mt("One or more password fields were blank").
1.236     raeburn  1685:                          "</span>\n</p>",$caller,$mailtoken,$timelimit,$extrafields);
                   1686:         if ($caller eq 'reset_by_email') {
                   1687:             return 'missingdata';
                   1688:         } else {
                   1689:             return;
                   1690:         }
1.3       matthew  1691:     }
1.16      albertel 1692:     # Get the keys
                   1693:     my $lonhost = $r->dir_config('lonHostID');
1.3       matthew  1694:     my $tmpinfo = Apache::lonnet::reply('tmpget:'.$logtoken,$lonhost);
                   1695:     if (($tmpinfo=~/^error/) || ($tmpinfo eq 'con_lost')) {
1.4       matthew  1696:         # I do not a have a better idea about how to handle this
1.94      raeburn  1697:         my $tryagain_text = &mt('Please log out and try again.');
                   1698:         if ($caller eq 'reset_by_email') {
                   1699:             $tryagain_text = &mt('Please try again later.');
                   1700:         }
1.101     albertel 1701:         my $unable=&mt("Unable to retrieve saved token for password decryption");
1.3       matthew  1702: 	$r->print(<<ENDERROR);
                   1703: <p>
1.99      www      1704: <span class="LC_error">$unable.  $tryagain_text</span>
1.3       matthew  1705: </p>
                   1706: ENDERROR
1.4       matthew  1707:         # Probably should log an error here
1.236     raeburn  1708:         if ($caller eq 'reset_by_email') {
                   1709:             return 'internalerror';
                   1710:         } else {
                   1711:             return;
                   1712:         }
1.3       matthew  1713:     }
                   1714:     my ($ckey,$n1key,$n2key)=split(/&/,$tmpinfo);
1.219     raeburn  1715:     #
1.211     raeburn  1716:     $currentpass = &Apache::loncommon::des_decrypt($ckey ,$currentpass);
                   1717:     $newpass1    = &Apache::loncommon::des_decrypt($n1key,$newpass1);
                   1718:     $newpass2    = &Apache::loncommon::des_decrypt($n2key,$newpass2);
1.94      raeburn  1719:     #
                   1720:     if ($caller eq 'reset_by_email') {
                   1721:         my %data = &Apache::lonnet::tmpget($mailtoken);
1.117     raeburn  1722:         if (keys(%data) == 0) {
                   1723:             &passwordchanger($r,
                   1724:                          '<span class="LC_error">'.
                   1725:                          &mt('Could not verify current authentication.').'  '.
1.236     raeburn  1726:                          &mt('Please try again.').'</span>',$caller,$mailtoken,$timelimit,$extrafields);
                   1727:             return 'emptydata';
1.117     raeburn  1728:         }
1.94      raeburn  1729:         if ($currentpass ne $data{'temppasswd'}) {
                   1730:             &passwordchanger($r,
1.99      www      1731:                          '<span class="LC_error">'.
1.110     bisitz   1732:                          &mt('Could not verify current authentication.').'  '.
1.236     raeburn  1733:                          &mt('Please try again.').'</span>',$caller,$mailtoken,$timelimit,$extrafields);
                   1734:             return 'missingtemp';
1.94      raeburn  1735:         }
1.231     raeburn  1736:     }
1.3       matthew  1737:     if ($newpass1 ne $newpass2) {
1.4       matthew  1738: 	&passwordchanger($r,
1.199     bisitz   1739: 			 '<span class="LC_warning">'.
1.110     bisitz   1740: 			 &mt('The new passwords you entered do not match.').'  '.
1.236     raeburn  1741: 			 &mt('Please try again.').'</span>',$caller,$mailtoken,$timelimit,$extrafields);
                   1742:         if ($caller eq 'reset_by_email') {
                   1743:             return 'mismatch';
                   1744:         } else {
                   1745:             return;
                   1746:         }
1.4       matthew  1747:     }
1.231     raeburn  1748:     if ($currentauth eq 'unix:') {
                   1749:         if (length($newpass1) < 7) {
                   1750:             &passwordchanger($r,
                   1751:                              '<span class="LC_warning">'.
                   1752:                              &mt('Passwords must be a minimum of 7 characters long.').'  '.
1.236     raeburn  1753:                              &mt('Please try again.').'</span>',$caller,$mailtoken,$timelimit,$extrafields);
                   1754:             if ($caller eq 'reset_by_email') {
                   1755:                 return 'length';
                   1756:             } else {
                   1757:                 return;
                   1758:             }
1.231     raeburn  1759:         }
                   1760:     } else {
1.234     raeburn  1761:         my $warning = &Apache::loncommon::check_passwd_rules($domain,$newpass1);
1.233     raeburn  1762:         if ($warning) {
1.231     raeburn  1763:             &passwordchanger($r,'<span class="LC_warning">'.
                   1764:                             $warning.
                   1765:                             &mt('Please try again.').'</span>',
1.236     raeburn  1766:                             $caller,$mailtoken,$timelimit,$extrafields);
                   1767:             if ($caller eq 'reset_by_email') {
                   1768:                 return 'rules';
                   1769:             } else {
                   1770:                 return;
                   1771:             }
1.231     raeburn  1772:         }
1.3       matthew  1773:     }
1.4       matthew  1774:     #
                   1775:     # Check for bad characters
                   1776:     my $badpassword = 0;
                   1777:     foreach (split(//,$newpass1)) {
                   1778: 	$badpassword = 1 if ((ord($_)<32)||(ord($_)>126));
                   1779:     }
                   1780:     if ($badpassword) {
                   1781: 	# I can't figure out how to enter bad characters on my browser.
1.199     bisitz   1782: 	my $errormessage ='<span class="LC_warning">'.
1.110     bisitz   1783:            &mt('The password you entered contained illegal characters.').'<br />'.
1.99      www      1784:            &mt('Valid characters are').(<<"ENDERROR");
                   1785: : space and <br />
1.4       matthew  1786: <pre>
                   1787: !&quot;\#$%&amp;\'()*+,-./0123456789:;&lt;=&gt;?\@
                   1788: ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_\`abcdefghijklmnopqrstuvwxyz{|}~
1.99      www      1789: </pre></span>
1.4       matthew  1790: ENDERROR
1.236     raeburn  1791:         &passwordchanger($r,$errormessage,$caller,$mailtoken,$timelimit,$extrafields);
                   1792:         if ($caller eq 'reset_by_email') {
                   1793:             return 'badchars';
                   1794:         } else {
                   1795:             return;
                   1796:         }
1.4       matthew  1797:     }
                   1798:     # 
                   1799:     # Change the password (finally)
                   1800:     my $result = &Apache::lonnet::changepass
1.94      raeburn  1801: 	($user,$domain,$currentpass,$newpass1,$homeserver,$caller);
1.4       matthew  1802:     # Inform the user the password has (not?) been changed
1.126     droeschl 1803:     my $message;
1.4       matthew  1804:     if ($result =~ /^ok$/) {
1.170     bisitz   1805:         $message = &Apache::lonhtmlcommon::confirm_success(&mt('The password for user [_1] was successfully changed.','<i>'.$user.'</i>'));
1.180     wenzelju 1806:         $message = &Apache::loncommon::confirmwrapper($message);
1.144     raeburn  1807:         if ($caller eq 'reset_by_email') {
                   1808:             $r->print($message.'<br />');
                   1809:         } else {
                   1810:             &print_main_menu($r, $message);
1.226     raeburn  1811:             if (ref($ended)) {
                   1812:                 $$ended = 1;
                   1813:             }
1.144     raeburn  1814:         }
1.4       matthew  1815:     } else {
                   1816: 	# error error: run in circles, scream and shout
1.173     raeburn  1817:         if ($caller eq 'reset_by_email') {
                   1818:             if (!$result) {
1.236     raeburn  1819:                 return 'error';
1.173     raeburn  1820:             } else {
                   1821:                 return $result;
                   1822:             }
                   1823:         } else {
1.232     raeburn  1824:             my $feedback;
                   1825:             if ($result eq 'prioruse') {
                   1826:                 $feedback = &mt('Please enter a password that you have not used recently.');
                   1827:             } else {
                   1828:                 $feedback = &mt('Please make sure your old password was entered correctly.');
                   1829:             }
1.173     raeburn  1830:             $message = &Apache::lonhtmlcommon::confirm_success(
1.232     raeburn  1831:                 &mt("The password for user [_1] was not changed.",'<i>'.$user.'</i>').' '.$feedback,1);
1.158     bisitz   1832:             $message=&Apache::loncommon::confirmwrapper($message);
1.144     raeburn  1833:             &print_main_menu($r, $message);
1.226     raeburn  1834:             if (ref($ended)) {
                   1835:                 $$ended = 1;
                   1836:             }
1.144     raeburn  1837:         }
1.4       matthew  1838:     }
                   1839:     return;
1.3       matthew  1840: }
                   1841: 
1.42      raeburn  1842: ################################################################
                   1843: #            discussion display subroutines 
                   1844: ################################################################
                   1845: sub discussionchanger {
                   1846:     my $r = shift;
1.126     droeschl 1847:     Apache::lonhtmlcommon::add_breadcrumb(
                   1848: 	    {	href => '/adm/preferences?action=changediscussions',
                   1849:                 text => 'Change Discussion Preferences'});
1.178     bisitz   1850:     $r->print(Apache::loncommon::start_page('Change Discussion Preferences'));
1.126     droeschl 1851:     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Discussion Preferences'));
1.59      albertel 1852:     my $user       = $env{'user.name'};
                   1853:     my $domain     = $env{'user.domain'};
1.42      raeburn  1854:     my %userenv = &Apache::lonnet::get
1.43      raeburn  1855:         ('environment',['discdisplay','discmarkread']);
                   1856:     my $discdisp = 'allposts';
                   1857:     my $discmark = 'onmark';
                   1858: 
                   1859:     if (defined($userenv{'discdisplay'})) {
                   1860:         unless ($userenv{'discdisplay'} eq '') { 
                   1861:             $discdisp = $userenv{'discdisplay'};
                   1862:         }
                   1863:     }
                   1864:     if (defined($userenv{'discmarkread'})) {
1.171     raeburn  1865:         unless ($userenv{'discmarkread'} eq '') { 
1.43      raeburn  1866:             $discmark = $userenv{'discmarkread'};
                   1867:         }
                   1868:     }
                   1869: 
                   1870:     my $newdisp = 'unread';
                   1871:     my $newmark = 'ondisp';
                   1872: 
                   1873:     my $function = &Apache::loncommon::get_users_function();
                   1874:     my $color = &Apache::loncommon::designparm($function.'.tabbg',
1.59      albertel 1875:                                                     $env{'user.domain'});
1.43      raeburn  1876:     my %lt = &Apache::lonlocal::texthash(
                   1877:         'pref' => 'Display Preference',
                   1878:         'curr' => 'Current setting ',
                   1879:         'actn' => 'Action',
1.135     schafran 1880:         'sdpf' => 'Set display preferences for discussion posts for both discussion boards and individual resources in all your courses.',
1.43      raeburn  1881:         'prca' => 'Preferences can be set that determine',
1.135     schafran 1882:         'whpo' => 'Which posts are displayed when you display a discussion board or resource, and',
1.194     raeburn  1883:         'unwh' => 'Under what circumstances posts are identified as "NEW"',
1.43      raeburn  1884:         'allposts' => 'All posts',
                   1885:         'unread' => 'New posts only',
                   1886:         'ondisp' => 'Once displayed',
1.194     raeburn  1887:         'onmark' => 'Once marked not NEW',
1.43      raeburn  1888:         'disa' => 'Posts displayed?',
1.194     raeburn  1889:         'npmr' => 'New posts cease to be identified as "NEW"?',
1.43      raeburn  1890:         'thde'  => 'The preferences you set here can be overridden within each individual discussion.',
                   1891:         'chgt' => 'Change to '
                   1892:     );
                   1893:     my $dispchange = $lt{'unread'};
                   1894:     my $markchange = $lt{'ondisp'};
                   1895:     my $currdisp = $lt{'allposts'};
                   1896:     my $currmark = $lt{'onmark'};
                   1897: 
                   1898:     if ($discdisp eq 'unread') {
                   1899:         $dispchange = $lt{'allposts'};
                   1900:         $currdisp = $lt{'unread'};
                   1901:         $newdisp = 'allposts';
                   1902:     }
                   1903: 
                   1904:     if ($discmark eq 'ondisp') {
                   1905:         $markchange = $lt{'onmark'};
                   1906:         $currmark = $lt{'ondisp'};
                   1907:         $newmark = 'onmark';
1.42      raeburn  1908:     }
1.171     raeburn  1909: 
1.43      raeburn  1910:     $r->print(<<"END");
1.88      albertel 1911: <form name="prefs" action="/adm/preferences" method="post">
1.42      raeburn  1912: <input type="hidden" name="action" value="verify_and_change_discussion" />
                   1913: <br />
1.87      albertel 1914: $lt{'sdpf'}<br /> $lt{'prca'}  <ol><li>$lt{'whpo'}</li><li>$lt{'unwh'}</li></ol> 
1.82      albertel 1915: END
1.158     bisitz   1916: 
                   1917:     $r->print('<p class="LC_info">'.$lt{'thde'}.'</p>');
                   1918: 
1.82      albertel 1919:     $r->print(&Apache::loncommon::start_data_table());
                   1920:     $r->print(<<"END");
                   1921:        <tr>
                   1922:         <th>$lt{'pref'}</th>
                   1923:         <th>$lt{'curr'}</th>
                   1924:         <th>$lt{'actn'}?</th>
1.43      raeburn  1925:        </tr>
1.82      albertel 1926: END
                   1927:     $r->print(&Apache::loncommon::start_data_table_row());
                   1928:     $r->print(<<"END");
1.43      raeburn  1929:        <td>$lt{'disa'}</td>
                   1930:        <td>$lt{$discdisp}</td>
1.82      albertel 1931:        <td><label><input type="checkbox" name="discdisp" /><input type="hidden" name="newdisp" value="$newdisp" />&nbsp;$lt{'chgt'} "$dispchange"</label></td>
                   1932: END
                   1933:     $r->print(&Apache::loncommon::end_data_table_row().
                   1934: 	      &Apache::loncommon::start_data_table_row());
                   1935:     $r->print(<<"END");
1.43      raeburn  1936:        <td>$lt{'npmr'}</td>
                   1937:        <td>$lt{$discmark}</td>
1.82      albertel 1938:        <td><label><input type="checkbox" name="discmark" /><input type="hidden" name="newmark" value="$newmark" />&nbsp;$lt{'chgt'} "$markchange"</label></td>
1.43      raeburn  1939:       </tr>
1.82      albertel 1940: END
                   1941:     $r->print(&Apache::loncommon::end_data_table_row().
                   1942: 	      &Apache::loncommon::end_data_table());
1.142     zhu      1943: 
1.158     bisitz   1944:     $r->print('<br />'
                   1945:              .'<input type="submit" name="sub" value="'.&mt('Save').'" />'
                   1946:              .'</form>'
                   1947:     );
1.42      raeburn  1948: }
                   1949:                                                                                                                 
                   1950: sub verify_and_change_discussion {
                   1951:     my $r = shift;
1.59      albertel 1952:     my $user     = $env{'user.name'};
                   1953:     my $domain   = $env{'user.domain'};
1.42      raeburn  1954:     my $message='';
1.59      albertel 1955:     if (defined($env{'form.discdisp'}) ) {
                   1956:         my $newdisp  = $env{'form.newdisp'};
1.43      raeburn  1957:         if ($newdisp eq 'unread') {
1.171     raeburn  1958:             $message .=&Apache::lonhtmlcommon::confirm_success(&mt('In discussions: only new posts will be displayed.')).'<br />';
1.43      raeburn  1959:             &Apache::lonnet::put('environment',{'discdisplay' => $newdisp});
1.116     raeburn  1960:             &Apache::lonnet::appenv({'environment.discdisplay' => $newdisp});
1.43      raeburn  1961:         } else {
1.171     raeburn  1962:             $message .= &Apache::lonhtmlcommon::confirm_success(&mt('In discussions: all posts will be displayed.')).'<br />';
1.43      raeburn  1963:             &Apache::lonnet::del('environment',['discdisplay']);
1.139     raeburn  1964:             &Apache::lonnet::delenv('environment.discdisplay');
1.43      raeburn  1965:         }
                   1966:     }
1.59      albertel 1967:     if (defined($env{'form.discmark'}) ) {
                   1968:         my $newmark = $env{'form.newmark'};
1.43      raeburn  1969:         if ($newmark eq 'ondisp') {
1.209     bisitz   1970:             $message.=&Apache::lonhtmlcommon::confirm_success(&mt('In discussions: new posts will cease to be identified as "NEW" after display.')).'<br />';
1.43      raeburn  1971:             &Apache::lonnet::put('environment',{'discmarkread' => $newmark});
1.116     raeburn  1972:             &Apache::lonnet::appenv({'environment.discmarkread' => $newmark});
1.43      raeburn  1973:         } else {
1.194     raeburn  1974:             $message.=&Apache::lonhtmlcommon::confirm_success(&mt('In discussions: posts will be identified as "NEW" until marked as not "NEW".')).'<br />';
1.43      raeburn  1975:             &Apache::lonnet::del('environment',['discmarkread']);
1.139     raeburn  1976:             &Apache::lonnet::delenv('environment.discmarkread');
1.43      raeburn  1977:         }
1.42      raeburn  1978:     }
1.158     bisitz   1979:     $message=&Apache::loncommon::confirmwrapper($message);
1.152     www      1980:     &print_main_menu($r, $message);
1.42      raeburn  1981: }
                   1982: 
1.63      raeburn  1983: ################################################################
                   1984: # Subroutines for page display on course access (Course Coordinators)
                   1985: ################################################################
                   1986: sub coursedisplaychanger {
                   1987:     my $r = shift;
1.152     www      1988:     &Apache::lonhtmlcommon::add_breadcrumb(
1.126     droeschl 1989: 	    {	href => '/adm/preferences?action=changecourseinit',
                   1990:                 text => 'Change Course Init. Pref.'});
                   1991:     $r->print(Apache::loncommon::start_page('Change Course Initialization Preference'));
                   1992:     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Course Init. Pref.'));
1.63      raeburn  1993:     my $user       = $env{'user.name'};
                   1994:     my $domain     = $env{'user.domain'};
1.66      albertel 1995:     my %userenv = &Apache::lonnet::get('environment',['course_init_display']);
1.71      raeburn  1996:     my $currvalue = 'whatsnew';
1.73      albertel 1997:     my $firstselect = '';
                   1998:     my $whatsnewselect = 'checked="checked"';
1.71      raeburn  1999:     if (exists($userenv{'course_init_display'})) {
                   2000:         if ($userenv{'course_init_display'} eq 'firstres') {
                   2001:             $currvalue = 'firstres';
1.73      albertel 2002:             $firstselect = 'checked="checked"';
                   2003: 	    $whatsnewselect = '';
1.71      raeburn  2004:         }
1.63      raeburn  2005:     }
1.134     bisitz   2006:     my %pagenames = &Apache::lonlocal::texthash(
1.71      raeburn  2007:                        firstres => 'First resource',
1.143     hauer    2008:                        whatsnew => "What's New Page",
1.71      raeburn  2009:                     );
1.134     bisitz   2010:     my $whatsnew_off=&mt('Display the [_1]first resource[_2] in the course.','<b>','</b>');
1.143     hauer    2011:     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  2012: 
1.134     bisitz   2013:     $r->print('<br /><b>'
                   2014:              .&mt('Set the default page to be displayed when you select a course role')
                   2015:              .'</b>&nbsp;'
                   2016:              .&mt('(Currently: [_1])',$pagenames{$currvalue})
                   2017:              .'<br />'
1.143     hauer    2018:              .&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   2019:              .'<br /><br />'
                   2020:     );
1.63      raeburn  2021:     $r->print(<<ENDLSCREEN);
1.88      albertel 2022: <form name="prefs" action="/adm/preferences" method="post">
1.63      raeburn  2023: <input type="hidden" name="action" value="verify_and_change_coursepage" />
1.72      albertel 2024: <br />
1.65      albertel 2025: <label><input type="radio" name="newdisp" value="firstres" $firstselect /> $whatsnew_off</label><br />
1.70      raeburn  2026: <label><input type="radio" name="newdisp" value="whatsnew" $whatsnewselect /> $whatsnew_on</label><input type="hidden" name="refpage" value="$env{'form.refpage'}" />
1.63      raeburn  2027: ENDLSCREEN
1.140     schafran 2028:     $r->print('<br /><br /><input type="submit" value="'.&mt('Save').'" />
1.63      raeburn  2029: </form>');
                   2030: }
                   2031: 
                   2032: sub verify_and_change_coursepage {
                   2033:     my $r = shift;
                   2034:     my $message='';
                   2035:     my %lt = &Apache::lonlocal::texthash(
1.70      raeburn  2036:         'defs' => 'Default now set',
1.71      raeburn  2037:         'when' => 'when you select a course role from the roles screen',
1.63      raeburn  2038:         'ywbt' => 'you will be taken to the start of the course.',
                   2039:         'apwb' => 'a page will be displayed that lists items in the course that may require action from you.',
                   2040:         'gtts' => 'Go to the start of the course',
1.146     hauer    2041:         'dasp' => "Display the What's New Page", 
1.63      raeburn  2042:     );
                   2043:     my $newdisp  = $env{'form.newdisp'};
1.70      raeburn  2044:     $message = '<b>'.$lt{'defs'}.'</b>: '.$lt{'when'}.', ';
1.63      raeburn  2045:     if ($newdisp eq 'firstres') {
1.87      albertel 2046:         $message .= $lt{'ywbt'}.'<br />';
1.63      raeburn  2047:         &Apache::lonnet::put('environment',{'course_init_display' => $newdisp});
1.116     raeburn  2048:         &Apache::lonnet::appenv({'environment.course_init_display' => $newdisp});
1.63      raeburn  2049:     } else {
1.87      albertel 2050:         $message .= $lt{'apwb'}.'<br />';
1.63      raeburn  2051:         &Apache::lonnet::del('environment',['course_init_display']);
1.139     raeburn  2052:         &Apache::lonnet::delenv('environment.course_init_display');
1.63      raeburn  2053:     }
1.70      raeburn  2054:     my $refpage = $env{'form.refpage'};
1.63      raeburn  2055:     if (($env{'request.course.fn'}) && ($env{'request.course.id'})) {
                   2056:         if ($newdisp eq 'firstres') {
                   2057:             my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                   2058:             my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; 
                   2059:             my ($furl,$ferr)=
                   2060:                 &Apache::lonuserstate::readmap($cdom.'/'.$cnum);
1.180     wenzelju 2061:             $message .= '<br /><a href="'.$furl.'">'.$lt{'gtts'}.' <i>'.&mt('now').'</i></a>';
1.63      raeburn  2062:         } else {
1.180     wenzelju 2063:             $message .= '<br /><a href="/adm/whatsnew?refpage='.
                   2064:                         $refpage.'">'.$lt{'dasp'}.'</a>';
1.63      raeburn  2065:         }
                   2066:     }
1.180     wenzelju 2067:     $message = &Apache::lonhtmlcommon::confirm_success($message);
                   2068:     $message = &Apache::loncommon::confirmwrapper($message);
                   2069:     &print_main_menu($r,$message);
1.63      raeburn  2070: }
                   2071: 
1.215     golterma 2072: sub author_space_settings {
                   2073:     my $r = shift;
                   2074:     &Apache::lonhtmlcommon::add_breadcrumb(
                   2075:             {   href => '/adm/preferences?action=authorsettings',
                   2076:                 text => 'Authoring Space Settings'});
                   2077:     my $user       = $env{'user.name'};
                   2078:     my $domain     = $env{'user.domain'};
                   2079:     my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au','ca','aa']);
                   2080:     if (keys(%author_roles) > 0) {
1.242     raeburn  2081:         my ($showdomdefs,$js,$args,@items);
                   2082:         my $returnurl = &HTML::Entities::encode($env{'form.returnurl'},'"<>&\'');
1.244   ! raeburn  2083:         if (&expanded_authoring_settings()) {
1.242     raeburn  2084:             @items = ('nocodemirror','copyright','sourceavail');
                   2085:             $showdomdefs = 1;
                   2086:             $js = &toggle_options_js();
                   2087:             my $onload;
                   2088:             foreach my $item (@items) {
                   2089:                 $onload .= "javascript:toggleOptions(document.prefs,'$item','user_$item');"
                   2090:             }
                   2091:             $args = { 'add_entries' => { 'onload' => $onload } };
                   2092:         }
                   2093:         $r->print(Apache::loncommon::start_page('Authoring Space Settings',$js,$args));
                   2094:         $r->print(Apache::lonhtmlcommon::breadcrumbs('Authoring Space Settings'));
                   2095:         if ($showdomdefs) {
                   2096:             my %userenv = &Apache::lonnet::get('environment',\@items);
                   2097:             my %domdefs = &Apache::lonnet::get_domain_defaults($domain);
                   2098:             my %staticdefaults = (
                   2099:                             'nocodemirror'  => '0',
                   2100:                             'copyright'     => 'default',
                   2101:                             'sourceavail'   => 'closed',
                   2102:             );
                   2103:             my %lt = &authoring_settings_text();
                   2104:             my %titles = &authoring_settings_titles();
                   2105:             $r->print("<h3>$lt{'auss'}</h3><br /><hr />\n".
                   2106:                       '<form name="prefs" action="/adm/preferences" method="post">'."\n".
                   2107:                       '<input type="hidden" name="returnurl" value="'.$returnurl.'" />'."\n".
                   2108:                       '<input type="hidden" name="action" value="change_authoring_settings" />'."\n");
                   2109:             foreach my $item (@items) {
                   2110:                 my ($domdef,$checkeddom,$checkeduser,$domdefdisplay,$divsty,$userelem);
                   2111:                 $checkeddom = ' checked="checked"';
                   2112:                 $divsty = 'display:none';
                   2113:                 if (exists($domdefs{$item})) {
                   2114:                     $domdef = $domdefs{$item};
                   2115:                 } else {
                   2116:                     $domdef = $staticdefaults{$item};
                   2117:                 }
                   2118:                 if ($item eq 'copyright') {
                   2119:                     $domdefdisplay = &Apache::loncommon::copyrightdescription($domdef);
                   2120:                     $userelem = &selectbox('userchoice_'.$item,$userenv{$item},'',
                   2121:                                            \&Apache::loncommon::copyrightdescription,
                   2122:                                            (grep !/^priv|custom$/,(&Apache::loncommon::copyrightids)));
                   2123:                 } elsif ($item eq 'sourceavail') {
                   2124:                     $domdefdisplay = &Apache::loncommon::source_copyrightdescription($domdef);
                   2125:                     $userelem = &selectbox('userchoice_'.$item,$userenv{$item},'',
                   2126:                                            \&Apache::loncommon::source_copyrightdescription,
                   2127:                                            (&Apache::loncommon::source_copyrightids));
                   2128:                 } elsif ($item eq 'nocodemirror') {
                   2129:                     if ($domdef) {
                   2130:                         $domdefdisplay = $lt{'yes'};
                   2131:                     } else {
                   2132:                         $domdefdisplay = $lt{'no'};
                   2133:                     }
                   2134:                     my %checked;
                   2135:                     $checked{'no'} = ' checked="checked"';
1.243     raeburn  2136:                     if ($userenv{$item} eq 'yes') {
1.242     raeburn  2137:                         $checked{'yes'} = $checked{'no'};
                   2138:                         $checked{'no'} = '';
                   2139:                     }
                   2140:                     $userelem = '<span class="LC_nobreak">';
                   2141:                     foreach my $choice ('yes','no') {
                   2142:                         $userelem .= '<label><input type="radio" name="userchoice_'.$item.'" value="'.$choice.'"'.
                   2143:                                      $checked{$choice}.' />'.$lt{$choice}.'</label>&nbsp;&nbsp;&nbsp;';
                   2144:                     }
                   2145:                     $userelem .= '</span>';
                   2146:                 }
                   2147:                 if ($userenv{$item} ne '') {
                   2148:                     $checkeduser = $checkeddom;
                   2149:                     $checkeddom = '';
                   2150:                     $divsty = 'display:inline-block';
                   2151:                 }
                   2152:                 $r->print(<<"END");
                   2153: <h4><span class="LC_nobreak">$titles{$item}</span></h4>
                   2154: <p class="LC_nobreak">$lt{'curd'}: <span style="font-style:italic">$domdefdisplay</span></p>
                   2155: <p class="LC_nobreak">
                   2156: <label><input type="radio" name="$item" value="dom" onclick="toggleOptions(this.form,'$item','user_$item');"$checkeddom />$lt{'used'}</label>&nbsp;&nbsp;&nbsp;
                   2157: <label><input type="radio" name="$item" value="user" onclick="toggleOptions(this.form,'$item','user_$item');"$checkeduser />$lt{'usyo'}</label></p>
                   2158: <fieldset id="user_$item" style="$divsty">
                   2159: <legend style="font-weight:normal;font-style:italic;">$lt{'ousv'}</legend>
                   2160: $userelem
                   2161: </fieldset><br /><hr />
                   2162: END
                   2163:             }
                   2164:             $r->print('<br />'.
                   2165:                       '<input type="submit" value="'.$lt{'save'}.'" />'.
                   2166:                       '</form>'."\n");
                   2167:         } else {
1.215     golterma 2168:             my $constchecked='';
                   2169:             if ($env{'environment.nocodemirror'}) {
                   2170:                $constchecked=' checked="checked"';
                   2171:             }
1.216     droeschl 2172:             my $text=&mt('By default, CodeMirror an editor with advanced functionality for editing code is activated for authors.');
                   2173:             my $cmoff=&mt('Deactivate CodeMirror. This can improve performance on slow computers and accessibility.');
1.215     golterma 2174:             my $change=&mt('Save');
                   2175:             $r->print(<<ENDSCREEN);
                   2176:         <form name="prefs" action="/adm/preferences" method="post">
1.225     raeburn  2177:         <input type="hidden" name="returnurl" value="$returnurl" />
1.215     golterma 2178:         <input type="hidden" name="action" value="change_authoring_settings" />
                   2179:         $text<br />
                   2180:         <label><input type="checkbox" name="cmoff"$constchecked />$cmoff</label><br />
                   2181:         <input type="submit" value="$change" />
                   2182:         </form>
                   2183: ENDSCREEN
1.242     raeburn  2184:         }
1.215     golterma 2185:     }
                   2186: }
                   2187: 
                   2188: sub change_authoring_settings {
                   2189:     my $r = shift;
                   2190:     my $user       = $env{'user.name'};
                   2191:     my $domain     = $env{'user.domain'};
                   2192:     my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au','ca','aa']);
                   2193:     if (keys(%author_roles) > 0) {
1.242     raeburn  2194:         my $message;
1.244   ! raeburn  2195:         if (!&expanded_authoring_settings()) {
1.215     golterma 2196:             my %ausettings=('environment.nocodemirror' => '');
                   2197:             if ($env{'form.cmoff'}) { $ausettings{'environment.nocodemirror'}='yes'; }
                   2198:             &Apache::lonnet::put('environment',\%ausettings);
                   2199:             &Apache::lonnet::appenv({'environment.nocodemirror' => $ausettings{'environment.nocodemirror'}});
                   2200:             my $status='';
                   2201:             if ($ausettings{'environment.nocodemirror'} eq 'yes') {
                   2202:                 $status=&mt('on');
                   2203:             } else {
                   2204:                 $status=&mt('off');
                   2205:             }
1.242     raeburn  2206:             $message=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.&mt('Deactivate CodeMirror in Authoring Space').'</i>','<tt>'.$status.'</tt>'));
1.215     golterma 2207:             $message=&Apache::loncommon::confirmwrapper($message);
1.242     raeburn  2208:         } else {
                   2209:             my @items = ('nocodemirror','copyright','sourceavail');
                   2210:             my %oldsettings = &Apache::lonnet::get('environment',\@items);
                   2211:             my %domdefs = &Apache::lonnet::get_domain_defaults($domain);
                   2212:             my %lt = &authoring_settings_text();
                   2213:             my %titles = &authoring_settings_titles();
                   2214:             my ($result,%newsettings,%changes,@delete,@unchanged,@delerrors,@adderrors);
                   2215:             foreach my $item (@items) {
                   2216:                 if ($env{'form.'.$item} eq 'dom') {
                   2217:                     if ($oldsettings{$item} eq '') {
                   2218:                         push(@unchanged,$item);
                   2219:                     } else {
                   2220:                         push(@delete,$item);
                   2221:                     }
                   2222:                 } elsif ($env{'form.'.$item} eq 'user') {
                   2223:                     my $newval = $env{'form.userchoice_'.$item};
                   2224:                     my @possibles;
                   2225:                     if ($item eq 'nocodemirror') {
                   2226:                         if ($newval =~ /^yes|no$/) {
                   2227:                             $newsettings{$item} = $newval;
                   2228:                         }
                   2229:                     } elsif ($item eq 'copyright') {
                   2230:                         @possibles = (grep !/^priv|custom$/,(&Apache::loncommon::copyrightids));
                   2231:                         if (grep(/^\Q$newval\E$/,@possibles)) {
                   2232:                             $newsettings{$item} = $newval;
                   2233:                         }
                   2234:                     } elsif ($item eq 'sourceavail') {
                   2235:                         @possibles = (&Apache::loncommon::source_copyrightids);
                   2236:                         if (grep(/^\Q$newval\E$/,@possibles)) {
                   2237:                             $newsettings{$item} = $newval;
                   2238:                         }
                   2239:                     }
                   2240:                     if ($oldsettings{$item} eq $newsettings{$item}) {
                   2241:                         push(@unchanged,$item);
                   2242:                     } else {
                   2243:                         $changes{$item} = $newsettings{$item};
                   2244:                     }
                   2245:                 }
                   2246:             }
                   2247:             if (@delete) {
                   2248:                 if (&Apache::lonnet::del('environment',\@delete) eq 'ok') {
                   2249:                     foreach my $key (@delete) {
                   2250:                         &Apache::lonnet::delenv('environment.'.$key);
                   2251:                     }
                   2252:                 } else {
                   2253:                     @delerrors = @delete;
                   2254:                 }
                   2255:             }
                   2256:             if (keys(%changes)) {
                   2257:                 if (&Apache::lonnet::put('environment',\%changes) eq 'ok') {
                   2258:                     my %newenvhash;
                   2259:                     map {$newenvhash{'environment.'.$_} = $changes{$_}; } (keys(%changes));
                   2260:                     &Apache::lonnet::appenv(\%newenvhash);
                   2261:                 } else {
                   2262:                     foreach my $item (@items) {
                   2263:                         if (exists($changes{$item})) {
                   2264:                             push(@adderrors,$item);
                   2265:                         }
                   2266:                     }
                   2267:                 }
                   2268:             }
                   2269:             if (@adderrors) {
                   2270:                 $result = &mt('An error occurred when saving user-specific settings for').': '.
                   2271:                           join(', ', map { $titles{$_} } @adderrors);
                   2272:                 $message = &Apache::loncommon::confirmwrapper(&Apache::lonhtmlcommon::confirm_success($result,1));
                   2273:             } elsif (keys(%changes)) {
                   2274:                 $result = &mt('User-specific settings saved:').'<ul>';
                   2275:                 foreach my $item (@items) {
                   2276:                     next unless (exists($changes{$item}));
                   2277:                     my $value = $changes{$item};
                   2278:                     if ($item eq 'nocodemirror') {
                   2279:                         $value = $lt{$changes{$item}};
                   2280:                     } elsif ($item eq 'copyright') {
                   2281:                         $value = &Apache::loncommon::copyrightdescription($changes{$item});
                   2282:                     } elsif ($item eq 'sourceavail') {
                   2283:                         $value = &Apache::loncommon::source_copyrightdescription($changes{$item});
                   2284:                     }
                   2285:                     $result .= '<li>'.
                   2286:                                &mt('[_1] set to [_2]',
                   2287:                                    $titles{$item},
                   2288:                                    '<span style="font-style:italic">'.$value.'</span>').
                   2289:                                '</li>';
                   2290:                 }
                   2291:                 $result .= '</ul>';
                   2292:                 $message = &Apache::loncommon::confirmwrapper(&Apache::lonhtmlcommon::confirm_success($result));
                   2293:             }
                   2294:             if (@delerrors) {
                   2295:                 $result = &mt('An error occurred when deleting user-specific settings for').':<ul><li>'.
                   2296:                           join('</li><li>', map { $titles{$_} } @delerrors).'</li></ul>';
                   2297:                 $message .= &Apache::loncommon::confirmwrapper(&Apache::lonhtmlcommon::confirm_success($result,1));
                   2298:             } elsif (@delete) {
                   2299:                 $result = &mt('Set use of domain default for').':<ul><li>'.
                   2300:                           join('</li><li>', map { $titles{$_} } @delete).'</li></ul>';
                   2301:                 $message .= &Apache::loncommon::confirmwrapper(&Apache::lonhtmlcommon::confirm_success($result));
                   2302:             }
                   2303:             if (@unchanged) {
                   2304:                 $result = &mt('No changes made for').':<ul><li>'.
                   2305:                           join('</li><li>', map { $titles{$_} } @unchanged).'</li></ul>';
                   2306:                 $message .= &Apache::loncommon::confirmwrapper(&Apache::lonhtmlcommon::confirm_success($result));
1.225     raeburn  2307:             }
1.242     raeburn  2308:         }
                   2309:         if ($env{'form.returnurl'}) {
                   2310:             &do_redirect($r,$env{'form.returnurl'},$message);
                   2311:         } else {
                   2312:             &print_main_menu($r,$message);
                   2313:         }
1.215     golterma 2314:     }
                   2315: }
                   2316: 
1.242     raeburn  2317: sub authoring_settings_text {
                   2318:     return &Apache::lonlocal::texthash(
                   2319:                'auss' => 'Authoring Space Settings',
                   2320:                'used' => 'Use domain default',
                   2321:                'usyo' => 'Use your own user-specific setting',
                   2322:                'curd' => 'Current domain default is',
                   2323:                'ousv' => 'Own user-specific value',
                   2324:                'save' => 'Save',
                   2325:                'yes'  => 'Deactivated',
                   2326:                'no'   => 'Activated',
                   2327:      );
                   2328: }
                   2329: 
                   2330: sub authoring_settings_titles {
                   2331:     return &Apache::lonlocal::texthash(
                   2332:                'nocodemirror' => 'CodeMirror for EditXML editor',
                   2333:                'copyright'    => 'Default Copyright/Distribution in new metadata file',
                   2334:                'sourceavail'  => 'Default Source Available in new metadata file',
                   2335:     );
                   2336: }
                   2337: 
1.244   ! raeburn  2338: sub expanded_authoring_settings {
        !          2339:     my $reqdmajor = 2;
        !          2340:     my $reqdminor = 12;
        !          2341:     my $loncaparev = &Apache::lonnet::get_server_loncaparev($env{'user.domain'},$env{'user.home'});
        !          2342:     my ($major,$minor) = ($loncaparev =~ /^\'?(\d+)\.(\d+)\.[\w.\-]+\'?$/);
        !          2343:     unless (($major eq '' && $minor eq '') ||
        !          2344:             ($reqdmajor > $major) || (($reqdmajor == $major) && ($reqdminor > $minor))) {
        !          2345:         return 1;
        !          2346:     }
        !          2347:     return;
        !          2348: }
        !          2349: 
1.186     raeburn  2350: sub lockednameschanger {
                   2351:     my $r = shift;
                   2352:     my %userenv = &Apache::lonnet::get('environment',['lockedname']);
                   2353:     my $lockedname='';
1.240     raeburn  2354:     my $ended;
1.186     raeburn  2355:     if (&can_toggle_namelocking()) {
                   2356:         if ($userenv{'lockedname'}) {
                   2357:             $lockedname = ' checked="checked"';
                   2358:         }
                   2359:         my %updateable;
                   2360:         my %domconfig =
                   2361:             &Apache::lonnet::get_dom('configuration',['autoupdate'],$env{'user.domain'});
                   2362:         if (ref($domconfig{'autoupdate'}) eq 'HASH') {
                   2363:             if ($domconfig{'autoupdate'}{'run'}) {
                   2364:                 my @inststatuses = split(':',$env{'environment.inststatus'});
                   2365:                 unless (@inststatuses) {
                   2366:                     @inststatuses = ('default');
                   2367:                 }
                   2368:                 %updateable = &updateable_userinfo($domconfig{'autoupdate'},\@inststatuses);
                   2369:             }
                   2370:         }
                   2371:         if (keys(%updateable)) {
1.240     raeburn  2372:             &Apache::lonhtmlcommon::add_breadcrumb(
                   2373:                 {   href => '/adm/preferences?action=changelockednames',
                   2374:                     text => 'Automatic name changes'});
                   2375:             $r->print(Apache::loncommon::start_page('Automatic name changes'));
                   2376:             $r->print(Apache::lonhtmlcommon::breadcrumbs('Allow/disallow name updates'));
1.186     raeburn  2377:             my %longnames = &Apache::lonlocal::texthash (
                   2378:                                 firstname  => 'First Name',
                   2379:                                 middlename => 'Middle Name',
                   2380:                                 lastname   => 'Last Name',
                   2381:                             );
                   2382:             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:').
                   2383:                      '<ul>';
                   2384:            foreach my $item ('firstname','middlename','lastname') {
                   2385:                if ($updateable{$item}) {
                   2386:                    $text .= '<li>'.$longnames{$item}.'</li>';
                   2387:                }
                   2388:            }
                   2389:            $text .= '</ul>'; 
                   2390:            my $locking=&mt('Disallow automatic updates to name information for your LON-CAPA account');
                   2391:            my $change=&mt('Save');
                   2392:            $r->print(<<ENDSCREEN);
                   2393: <form name="prefs" action="/adm/preferences" method="post">
                   2394: <input type="hidden" name="action" value="verify_and_change_lockednames" />
                   2395: $text<br />
                   2396: <label><input type="checkbox" value="1" name="lockednames"$lockedname />$locking</label><br />
                   2397: <input type="submit" value="$change" />
                   2398: </form>
                   2399: ENDSCREEN
                   2400:         } else {
                   2401:             my $message = &mt('Based on your institutional affiliation no name information is automatically updated for your LON-CAPA account.');
                   2402:             &print_main_menu($r,$message);
1.240     raeburn  2403:             $ended = 1;
1.186     raeburn  2404:         }
                   2405:     } else {
                   2406:         my $message = &mt('You are not permitted to set a user preference for automatic name updates for your LON-CAPA account.');
                   2407:         &print_main_menu($r,$message);
1.240     raeburn  2408:         $ended = 1;
1.186     raeburn  2409:     }
1.240     raeburn  2410:     return $ended;
1.186     raeburn  2411: }
                   2412: 
                   2413: sub verify_and_change_lockednames {
                   2414:     my $r = shift;
                   2415:     my $message;
                   2416:     if (&can_toggle_namelocking()) {
                   2417:         my $newlockedname = $env{'form.lockednames'};
                   2418:         $newlockedname =~ s/\D//g;
                   2419:         my $currlockedname = $env{'environment.lockedname'};
                   2420:         if ($newlockedname ne $currlockedname) {
                   2421:             if ($newlockedname) {
                   2422:                 if (&Apache::lonnet::put('environment',{lockedname => $newlockedname}) eq 'ok') {
                   2423:                     &Apache::lonnet::appenv({'environment.lockedname' => $newlockedname});
                   2424:                 }
                   2425:             } elsif (&Apache::lonnet::del('environment',['lockedname']) eq 'ok') {
                   2426:                 &Apache::lonnet::delenv('environment.lockedname');
                   2427:             }
                   2428:         }
                   2429:         my $status='';
                   2430:         if ($newlockedname) {
                   2431:             $status=&mt('disallowed');
                   2432:         } else {
                   2433:             $status=&mt('allowed');
                   2434:         }
                   2435:         $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>'));
                   2436:         $message=&Apache::loncommon::confirmwrapper($message);
                   2437:     }
                   2438:     &print_main_menu($r,$message);
                   2439: }
                   2440: 
1.241     raeburn  2441: sub timezonechanger {
                   2442:     my $r = shift;
                   2443:     my $uname = $env{'user.name'};
                   2444:     my $udom = $env{'user.domain'};
                   2445:     if (&Apache::lonnet::usertools_access($uname,$udom,'timezone')) {
1.242     raeburn  2446:         my $js = &toggle_options_js();
1.241     raeburn  2447:         my %loaditems = (
1.242     raeburn  2448:                            onload => "javascript:toggleOptions(document.prefs,'settimezone','LC_timezone_selector');",
1.241     raeburn  2449:                         );
                   2450:         my $args = { 'add_entries' => \%loaditems };
                   2451:         &Apache::lonhtmlcommon::add_breadcrumb(
                   2452:                 {   href => '/adm/preferences?action=',
                   2453:                     text => 'Set Your Time Zone'});
                   2454:         $r->print(Apache::loncommon::start_page('Set Your Time Zone',$js,$args));
                   2455:         $r->print(Apache::lonhtmlcommon::breadcrumbs('Set Your Time Zone'));
                   2456:         my %userenv = &Apache::lonnet::get('environment',['timezone']);
                   2457:         my $timezone = $userenv{'timezone'};
                   2458:         my %lt = &Apache::lonlocal::texthash(
                   2459:                      lctz  => 'Use Time Zone set by LON-CAPA',
                   2460:                      owntz => 'Use Time Zone set by you',
                   2461:                      save  => 'Save',
                   2462:         );
                   2463:         my (%checked,$tzsty);
                   2464:         if ($userenv{'timezone'} ne '') {
                   2465:             $checked{'owntz'} = ' checked="checked"';
                   2466:             $tzsty = 'inline-block';
                   2467:         } else {
                   2468:             $checked{'lctz'} = ' checked="checked"';
                   2469:             $tzsty = 'none';
                   2470:         }
1.242     raeburn  2471:         my $onclick = ' onclick="javascript:toggleOptions(this.form,'."'settimezone','LC_timezone_selector'".');"';
1.241     raeburn  2472:         my $selector = &Apache::loncommon::select_timezone('timezone',$timezone,undef,1);
                   2473:         $r->print(<<"END");
                   2474: <form name="prefs" action="/adm/preferences" method="post">
                   2475: <input type="hidden" name="action" value="verify_and_change_timezone" />
                   2476: <span class="LC_nobreak">
                   2477: <label><input type="radio" name="settimezone" value="0"$checked{'lctz'}$onclick />
                   2478: $lt{'lctz'}</label>&nbsp;&nbsp;&nbsp;&nbsp;
                   2479: <label><input type="radio" name="settimezone" value="1"$checked{'owntz'}$onclick />
                   2480: $lt{'owntz'}</label><div style="display:$tzsty" id="LC_timezone_selector">&nbsp;
                   2481: $selector
                   2482: </div></span><br /><br />
                   2483: <input type="submit" value="$lt{'save'}" />
                   2484: </form>
                   2485: END
                   2486:     }
                   2487:     return;
                   2488: }
                   2489: 
                   2490: sub verify_and_change_timezone {
                   2491:     my $r = shift;
                   2492:     my $currtimezone = $env{'environment.timezone'};
                   2493:     my $newtimezone;
                   2494:     if ($env{'form.settimezone'}) {
                   2495:         $newtimezone = $env{'form.timezone'};
                   2496:         if (DateTime::TimeZone->is_valid_name($env{'form.timezone'})) {
                   2497:             $newtimezone = $env{'form.timezone'};
                   2498:         }
                   2499:     }
                   2500:     my $message='';
                   2501:     if ($newtimezone) {
                   2502:         if ($newtimezone eq $currtimezone) {
                   2503:             $message = &mt('Time Zone settings unchanged');
                   2504:         } else {
                   2505:             &Apache::lonnet::put('environment',{'timezone' => $newtimezone});
                   2506:             &Apache::lonnet::appenv({'environment.timezone' => $newtimezone});
                   2507:             $message=&Apache::lonhtmlcommon::confirm_success(
                   2508:                 &mt('Set [_1] to [_2]',
                   2509:                     '<i>'.&mt('Your Time Zone').'</i>',
                   2510:                     '<tt>"'.$newtimezone.'"</tt>.')).
                   2511:                '<br />';
                   2512:         }
                   2513:     } elsif ($currtimezone) {
                   2514:         &Apache::lonnet::del('environment',['timezone']);
                   2515:         &Apache::lonnet::delenv('environment.timezone');
                   2516:         $message=&Apache::lonhtmlcommon::confirm_success(&mt('Time Zone now set by LON-CAPA'));
                   2517:     } else {
                   2518:         $message = &mt('Time Zone settings unchanged');
                   2519:     }
                   2520:     $message=&Apache::loncommon::confirmwrapper($message);
                   2521:     &print_main_menu($r,$message);
                   2522:     return;
                   2523: }
                   2524: 
1.126     droeschl 2525: sub print_main_menu {
                   2526:     my ($r, $message) = @_;
                   2527:     # Determine current authentication method
                   2528:     my $user = $env{'user.name'};
                   2529:     my $domain = $env{'user.domain'};
                   2530:     my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain);
                   2531: 
                   2532:     # build the data structure for menu generation
                   2533: my $aboutmeurl='/adm/'.$env{'user.domain'}.'/'.$env{'user.name'}.'/aboutme';
                   2534: my $role = ($env{'user.adv'} ? 'Roles' : 'Course');
1.131     raeburn  2535: my %permissions;
                   2536: if (&Apache::lonnet::usertools_access($user,$domain,'aboutme')) {
                   2537:     $permissions{'aboutme'} = 'F';
                   2538: }
1.241     raeburn  2539: if (&Apache::lonnet::usertools_access($user,$domain,'timezone')) {
                   2540:     $permissions{'timezone'} = 'F';
                   2541: }
1.242     raeburn  2542: my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au']);
                   2543: my %author_coauthor_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au','ca','aa']);
1.126     droeschl 2544: my @menu=
                   2545:     ({	categorytitle=>'Personal Data',
                   2546: 	items =>[
1.141     weissno  2547: 	    {	linktext => 'Personal Information Page',
1.126     droeschl 2548: 		url => $aboutmeurl,
1.131     raeburn  2549: 		permission => $permissions{'aboutme'},
1.126     droeschl 2550: 		#help => 'Prefs_About_Me',
                   2551: 		icon => 'system-users.png',
                   2552: 		linktitle => 'Edit information about yourself that should be displayed on your public profile.'
                   2553: 	    },
                   2554: 	    {	linktext => 'Screen Name',
                   2555: 		url => '/adm/preferences?action=changescreenname',
                   2556: 		permission => 'F',
                   2557: 		#help => 'Prefs_Screen_Name_Nickname',
                   2558: 		icon => 'preferences-desktop-font.png',
                   2559: 		linktitle => 'Change the name that is displayed in your posts.'
                   2560: 	    },
                   2561: 		]
                   2562:     },
                   2563:     {	categorytitle=>'Content Display Settings',
                   2564: 	items =>[
                   2565: 	    {	linktext => 'Language',
                   2566: 		url => '/adm/preferences?action=changelanguages',
                   2567: 		permission => 'F',
                   2568: 		#help => 'Prefs_Language',
                   2569: 		icon => 'preferences-desktop-locale.png',
1.127     droeschl 2570: 		linktitle => 'Choose the default language for this user.'
1.126     droeschl 2571: 	    },
1.128     droeschl 2572: 	    {	linktext => $role.' Page',
1.126     droeschl 2573: 		url => '/adm/preferences?action=changerolespref',
                   2574: 		permission => 'F',
                   2575: 		#help => '',
1.189     wenzelju 2576: 		icon => 'role_hotlist.png',
1.126     droeschl 2577: 		linktitle => 'Configure the roles hotlist.'
                   2578: 	    },
1.177     raeburn  2579: 	    {	linktext => 'Math display settings',
1.126     droeschl 2580: 		url => '/adm/preferences?action=changetexenginepref',
                   2581: 		permission => 'F',
                   2582: 		#help => '',
1.188     wenzelju 2583: 		icon => 'dismath.png',
1.177     raeburn  2584: 		linktitle => 'Change how math is displayed.'
1.126     droeschl 2585: 	    },
1.241     raeburn  2586:             {
                   2587:                 linktext => 'Time Zone',
                   2588:                 url => '/adm/preferences?action=changetimezone',
                   2589:                 permission => $permissions{'timezone'},
                   2590:                 #help => '',
                   2591:                 icon => 'timezone.png',
                   2592:                 linktitle => 'Set your time zone.',
                   2593:              }
1.126     droeschl 2594: 		]
                   2595:     },
1.185     droeschl 2596:     {	categorytitle=>'Page Display Settings',
                   2597: 	items =>[
                   2598: 	    {	linktext => 'Color Scheme',
                   2599: 		url => '/adm/preferences?action=changecolors',
                   2600: 		permission => 'F',
                   2601: 		#help => 'Change_Colors',
                   2602: 		icon => 'preferences-desktop-theme.png',
                   2603: 		linktitle => 'Change LON-CAPA default colors.'
                   2604: 	    },
1.192     raeburn  2605:             {   linktext => 'Menu Display',
                   2606:                 url => '/adm/preferences?action=changeicons',
                   2607:                 permission => 'F',
                   2608:                 #help => '',
                   2609:                 icon => 'preferences-system-windows.png',
                   2610:                 linktitle => 'Change whether the menus are displayed with icons or icons and text.'
                   2611:             }
1.185     droeschl 2612: 		]
                   2613:     },
1.178     bisitz   2614:     {	categorytitle=>'Messages &amp; Notifications',
1.128     droeschl 2615: 	items =>[
1.153     www      2616: 	    {	linktext => 'Messages &amp; Notifications',
1.128     droeschl 2617: 		url => '/adm/preferences?action=changemsgforward',
                   2618: 		permission => 'F',
                   2619: 		#help => 'Prefs_Messages',
                   2620: 		icon => 'mail-reply-all.png',
                   2621: 		linktitle => 'Change messageforwarding or notifications settings.'
                   2622: 	    },
                   2623: 	    {	linktext => 'Discussion Display',
                   2624: 		url => '/adm/preferences?action=changediscussions',
                   2625: 		permission => 'F',
                   2626: 		#help => 'Change_Discussion_Display',
1.191     riegler  2627: 		icon => 'chat.png',
1.135     schafran 2628: 		linktitle => 'Set display preferences for discussion posts for both discussion boards and individual resources in all your courses.'
1.128     droeschl 2629: 	    },
                   2630: 		]
                   2631:     },
1.242     raeburn  2632:     );
                   2633: if (keys(%author_coauthor_roles) > 0) {
                   2634:     push(@menu,
                   2635:     {    categorytitle=>'Authoring Settings',
                   2636:          items => [
                   2637:              {
                   2638:                   linktext => 'Authoring Space Configuration',
                   2639:                   url => '/adm/preferences?action=authorsettings',
                   2640:                   permission => 'F',
                   2641:                   icon => 'codemirror.png',
                   2642:                   linktitle => 'Settings for your authoring space.',
                   2643:              },
                   2644:                   ]
                   2645:     },
                   2646:     );
                   2647:     if (keys(%author_roles) > 0) {
                   2648:         push(@{ $menu[4]->{items} }, {
                   2649:         linktext => 'Restrict Domain Coordinator Access',
                   2650:         url => '/adm/preferences?action=changedomcoord',
                   2651:         permission => 'F',
                   2652:         #help => '',
                   2653:         icon => 'system-lock-screen.png',
                   2654:         linktitle => 'Restrict domain coordinator access.',
                   2655:         });
                   2656:     }
                   2657: }
                   2658: push(@menu,
1.126     droeschl 2659:     {	categorytitle=>'Other',
                   2660: 	items =>[
1.153     www      2661: 	    {	linktext => 'Register Response Devices (&quot;Clickers&quot;)',
1.126     droeschl 2662: 		url => '/adm/preferences?action=changeclicker',
                   2663: 		permission => 'F',
                   2664: 		#help => '',
                   2665: 		icon => 'network-workgroup.png',
                   2666: 		linktitle => 'Register your clicker.'
                   2667: 	    },
                   2668: 		]
                   2669:     },
1.242     raeburn  2670: );
1.126     droeschl 2671: 
                   2672:     if ($currentauth =~ /^(unix|internal):/) {
1.242     raeburn  2673:         push(@{ $menu[0]->{items} }, {
1.126     droeschl 2674: 	linktext => 'Password',
                   2675: 	url => '/adm/preferences?action=changepass',
                   2676: 	permission => 'F',
                   2677: 	#help => 'Change_Password',
                   2678: 	icon => 'emblem-readonly.png',
                   2679: 	linktitle => 'Change your password.',
                   2680: 	});
                   2681:     }
1.186     raeburn  2682: 
                   2683:     if (&can_toggle_namelocking()) {
                   2684:         push(@{ $menu[0]->{items} }, {
                   2685:         linktext => 'Automatic name changes',
                   2686:         url => '/adm/preferences?action=changelockednames',
                   2687:         permission => 'F',
                   2688:         #help => '',
                   2689:         icon => 'system-lock-screen.png',
                   2690:         linktitle => 'Allow/disallow propagation of name changes from institutional directory service',
                   2691:         });
                   2692:     }
                   2693: 
1.126     droeschl 2694:     if (&Apache::lonnet::allowed('whn',$env{'request.course.id'})
                   2695: 	|| &Apache::lonnet::allowed('whn',$env{'request.course.id'}.'/'
                   2696: 				    .$env{'request.course.sec'})) {
1.242     raeburn  2697: push(@{ $menu[-1]->{items} }, {
1.128     droeschl 2698: 	linktext => 'Course Initialization',
1.126     droeschl 2699: 	url => '/adm/preferences?action=changecourseinit',
                   2700: 	permission => 'F',
                   2701: 	#help => '',
1.189     wenzelju 2702: 	icon => 'course_ini.png',
1.126     droeschl 2703: 	linktitle => 'Set the default page to be displayed when you select a course role.',
                   2704: 	});
                   2705: 
                   2706:     }
1.215     golterma 2707: 
1.174     raeburn  2708:     if (&can_toggle_debug()) {
1.242     raeburn  2709: push(@{ $menu[-1]->{items} }, {
1.174     raeburn  2710: 	linktext => 'Toggle Debug Messages (Currently '.($env{'user.debug'} ? 'on)' : 'off)'),
1.126     droeschl 2711: 	url => '/adm/preferences?action=debugtoggle',
                   2712: 	permission => 'F',
                   2713: 	#help => '',
                   2714: 	icon => 'blog.png',
                   2715: 	linktitle => 'Toggle Debug Messages.',
                   2716: 	});
1.186     raeburn  2717:     }
1.126     droeschl 2718: 
1.147     schafran 2719:     $r->print(&Apache::loncommon::start_page('My Space'));
1.126     droeschl 2720:     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Preferences'));
                   2721:     $r->print($message);
                   2722:     $r->print(Apache::lonhtmlcommon::generate_menu(@menu));
                   2723:     $r->print(Apache::loncommon::end_page());
                   2724: }
1.63      raeburn  2725: 
1.4       matthew  2726: ######################################################
                   2727: #            other handler subroutines               #
                   2728: ######################################################
                   2729: 
1.3       matthew  2730: ################################################################
                   2731: #                          Main handler                        #
                   2732: ################################################################
1.126     droeschl 2733: sub handler {    
                   2734:     my $r = shift;
                   2735:     Apache::loncommon::content_type($r,'text/html');
                   2736:     # Some pages contain DES keys and should not be cached.
                   2737:     Apache::loncommon::no_cache($r);
                   2738:     $r->send_http_header;
                   2739:     return OK if $r->header_only;
                   2740:     #
                   2741:     Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                   2742:                                    ['action','wysiwyg','returnurl','refpage']);
                   2743:     #
                   2744:     Apache::lonhtmlcommon::clear_breadcrumbs();
1.226     raeburn  2745:     my ($brlink,$brtxt,$brhelp,$ended);
1.198     raeburn  2746:     if (($env{'form.action'} eq 'changerolespref') && ($env{'form.returnurl'} eq '/adm/roles')) {
                   2747:         $brlink ='/adm/roles';
                   2748:         $brtxt = 'User Roles';
1.225     raeburn  2749:     } elsif ((($env{'form.action'} eq 'changedomcoord') ||
                   2750:               ($env{'form.action'} eq 'authorsettings')) &&
                   2751:              (($env{'form.returnurl'} =~ m{^/(priv/|res($|/))}) ||
                   2752:               ($env{'form.returnurl'} eq '/adm/createuser'))) {
                   2753:         $brlink = $env{'form.returnurl'};
                   2754:         if ($env{'form.returnurl'} eq '/adm/createuser') {
                   2755:             $brtxt = 'User Management';
                   2756:         } elsif ($env{'form.returnurl'} =~ m{^/res($\/)}) {
                   2757:             $brtxt = 'Browse published resources';
                   2758:         } else {
                   2759:             $brtxt = 'Authoring Space';
                   2760:         }
1.198     raeburn  2761:     } else {
                   2762:         $brlink ='/adm/preferences';
                   2763:         $brtxt = 'Set User Preferences';
1.235     raeburn  2764:         $brhelp = 'Prefs_About_Me,Prefs_Language,Prefs_Screen_Name_Nickname,Change_Colors,Change_Password,Prefs_Messages,Change_Discussion_Display';
1.198     raeburn  2765:     }
1.126     droeschl 2766:     Apache::lonhtmlcommon::add_breadcrumb
1.198     raeburn  2767:         ({href => $brlink,
                   2768:           text => $brtxt,
                   2769:           help => $brhelp,});
1.126     droeschl 2770:     if(!exists $env{'form.action'}) {
1.225     raeburn  2771: 	&print_main_menu($r);
1.226     raeburn  2772:         $ended = 1;
1.126     droeschl 2773:     }elsif($env{'form.action'} eq 'changepass'){
                   2774:         &passwordchanger($r);
                   2775:     }elsif($env{'form.action'} eq 'verify_and_change_pass'){
1.236     raeburn  2776:         &verify_and_change_password($r,'preferences','','','',\$ended);
1.126     droeschl 2777:     }elsif($env{'form.action'} eq 'changescreenname'){
                   2778:         &screennamechanger($r);
                   2779:     }elsif($env{'form.action'} eq 'verify_and_change_screenname'){
                   2780:         &verify_and_change_screenname($r);
1.226     raeburn  2781:         $ended = 1;
1.126     droeschl 2782:     }elsif($env{'form.action'} eq 'changemsgforward'){
                   2783:         &msgforwardchanger($r);
                   2784:     }elsif($env{'form.action'} eq 'verify_and_change_msgforward'){
                   2785:         &verify_and_change_msgforward($r);
                   2786:     }elsif($env{'form.action'} eq 'changecolors'){
                   2787:         &colorschanger($r);
                   2788:     }elsif($env{'form.action'} eq 'verify_and_change_colors'){
                   2789:         &verify_and_change_colors($r);
1.226     raeburn  2790:         $ended = 1;
1.126     droeschl 2791:     }elsif($env{'form.action'} eq 'changelanguages'){
                   2792:         &languagechanger($r);
                   2793:     }elsif($env{'form.action'} eq 'verify_and_change_languages'){
                   2794:         &verify_and_change_languages($r);
1.226     raeburn  2795:         $ended = 1;
1.126     droeschl 2796:     }elsif($env{'form.action'} eq 'changewysiwyg'){
                   2797:         &wysiwygchanger($r);
                   2798:     }elsif($env{'form.action'} eq 'set_wysiwyg'){
                   2799:         &verify_and_change_wysiwyg($r);
1.227     raeburn  2800:         $ended = 1;
1.126     droeschl 2801:     }elsif($env{'form.action'} eq 'changediscussions'){
                   2802:         &discussionchanger($r);
                   2803:     }elsif($env{'form.action'} eq 'verify_and_change_discussion'){
                   2804:         &verify_and_change_discussion($r);
1.226     raeburn  2805:         $ended = 1;
1.126     droeschl 2806:     }elsif($env{'form.action'} eq 'changerolespref'){
                   2807:         &rolesprefchanger($r);
                   2808:     }elsif($env{'form.action'} eq 'verify_and_change_rolespref'){
                   2809:         &verify_and_change_rolespref($r);
1.226     raeburn  2810:         $ended = 1;
1.126     droeschl 2811:     }elsif($env{'form.action'} eq 'changetexenginepref'){
                   2812:         &texenginechanger($r);
                   2813:     }elsif($env{'form.action'} eq 'verify_and_change_texengine'){
                   2814:         &verify_and_change_texengine($r);
1.227     raeburn  2815:         $ended = 1;
1.192     raeburn  2816:     }elsif($env{'form.action'} eq 'changeicons'){
                   2817:         &iconchanger($r);
                   2818:     }elsif($env{'form.action'} eq 'verify_and_change_icons'){
                   2819:         &verify_and_change_icons($r);
1.226     raeburn  2820:         $ended = 1;
1.126     droeschl 2821:     }elsif($env{'form.action'} eq 'changeclicker'){
                   2822:         &clickerchanger($r);
                   2823:     }elsif($env{'form.action'} eq 'verify_and_change_clicker'){
                   2824:         &verify_and_change_clicker($r);
1.227     raeburn  2825:         $ended = 1;
1.126     droeschl 2826:     }elsif($env{'form.action'} eq 'changedomcoord'){
                   2827:         &domcoordchanger($r);
                   2828:     }elsif($env{'form.action'} eq 'verify_and_change_domcoord'){
                   2829:         &verify_and_change_domcoord($r);
1.226     raeburn  2830:         $ended = 1;
1.126     droeschl 2831:     }elsif($env{'form.action'} eq 'lockwarning'){
                   2832:         &lockwarning($r);
                   2833:     }elsif($env{'form.action'} eq 'verify_and_change_locks'){
                   2834:         &verify_and_change_lockwarning($r);
                   2835:     }elsif($env{'form.action'} eq 'changecourseinit'){
                   2836:         &coursedisplaychanger($r);
                   2837:     }elsif($env{'form.action'} eq 'verify_and_change_coursepage'){
                   2838:         &verify_and_change_coursepage($r);
1.226     raeburn  2839:         $ended = 1;
1.215     golterma 2840:     }elsif($env{'form.action'} eq 'authorsettings'){
                   2841:         &author_space_settings($r);
                   2842:     }elsif($env{'form.action'} eq 'change_authoring_settings'){
                   2843:         &change_authoring_settings($r);
1.227     raeburn  2844:         $ended = 1;
1.126     droeschl 2845:     }elsif($env{'form.action'} eq 'debugtoggle'){
1.174     raeburn  2846:         if (&can_toggle_debug()) {
                   2847:             &toggle_debug();
                   2848:         }
1.154     www      2849: 	&print_main_menu($r);
1.226     raeburn  2850:         $ended = 1;
1.186     raeburn  2851:     } elsif ($env{'form.action'} eq 'changelockednames') {
1.240     raeburn  2852:         $ended = &lockednameschanger($r);
1.186     raeburn  2853:     } elsif ($env{'form.action'} eq 'verify_and_change_lockednames') {
                   2854:         &verify_and_change_lockednames($r);
1.226     raeburn  2855:         $ended = 1;
1.241     raeburn  2856:     } elsif ($env{'form.action'} eq 'changetimezone') {
                   2857:         &timezonechanger($r);
                   2858:     } elsif ($env{'form.action'} eq 'verify_and_change_timezone') {
                   2859:         &verify_and_change_timezone($r);
1.126     droeschl 2860:     }
                   2861: 
1.165     bisitz   2862:     # Properly end the HTML page of all preference pages
                   2863:     # started in each sub routine
                   2864:     # Exception: print_main_menu has its own end_page call
1.226     raeburn  2865:     unless ($ended) {
1.165     bisitz   2866:         $r->print(&Apache::loncommon::end_page());
                   2867:     }
                   2868: 
1.126     droeschl 2869:     return OK;
1.35      matthew  2870: }
                   2871: 
                   2872: sub toggle_debug {
1.59      albertel 2873:     if ($env{'user.debug'}) {
1.139     raeburn  2874:         &Apache::lonnet::delenv('user.debug');
1.35      matthew  2875:     } else {
1.116     raeburn  2876:         &Apache::lonnet::appenv({'user.debug' => 1});
1.35      matthew  2877:     }
1.13      www      2878: }
1.1       www      2879: 
1.174     raeburn  2880: sub can_toggle_debug {
                   2881:     my $can_toggle = 0;
                   2882:     my $page = 'toggledebug';
                   2883:     if (&LONCAPA::lonauthcgi::can_view($page)) {
                   2884:         $can_toggle = 1;
                   2885:     } elsif (&LONCAPA::lonauthcgi::check_ipbased_access($page)) {
                   2886:         $can_toggle = 1;
                   2887:     }
                   2888:     return $can_toggle;
                   2889: }
                   2890: 
1.186     raeburn  2891: sub can_toggle_namelocking {
                   2892:     my $lockablenames;
                   2893:     my %domconfig =
                   2894:         &Apache::lonnet::get_dom('configuration',['autoupdate'],$env{'user.domain'});
                   2895:     if (ref($domconfig{'autoupdate'}) eq 'HASH') {
                   2896:         if ($domconfig{'autoupdate'}{'run'}) {
                   2897:             my @inststatuses = split(':',$env{'environment.inststatus'});
                   2898:             unless (@inststatuses) {
                   2899:                 @inststatuses = ('default');
                   2900:             }
                   2901:             my %updateable = &updateable_userinfo($domconfig{'autoupdate'},\@inststatuses);
                   2902:             if ($updateable{'lastname'} || $updateable{'firstname'} ||
                   2903:                 $updateable{'middlename'}) { 
                   2904:                 if (ref($domconfig{'autoupdate'}{'lockablenames'}) eq 'ARRAY') {
                   2905:                     unless (@inststatuses) {
                   2906:                         @inststatuses = ('default');
                   2907:                     }
                   2908:                     foreach my $status (@inststatuses) {
                   2909:                         if (grep(/^\Q$status\E$/,@{$domconfig{'autoupdate'}{'lockablenames'}})) {
                   2910:                             $lockablenames = 1;
                   2911:                             last;
                   2912:                         }
                   2913:                     }
                   2914:                 }
                   2915:             }
                   2916:         }
                   2917:     }
                   2918:     return $lockablenames;
                   2919: }
                   2920: 
                   2921: sub updateable_userinfo {
                   2922:     my ($autoupdate,$inststatuses) = @_;
                   2923:     my %updateable;
                   2924:     return %updateable unless ((ref($autoupdate) eq 'HASH') && 
                   2925:                                (ref($inststatuses) eq 'ARRAY'));
                   2926:     if (ref($autoupdate->{'fields'}) eq 'HASH') {
                   2927:         foreach my $status (@{$inststatuses}) {
                   2928:             if (ref($autoupdate->{'fields'}{$status}) eq 'ARRAY') {
                   2929:                 foreach my $field (@{$autoupdate->{'fields'}{$status}}) {
                   2930:                     $updateable{$field} = 1;
                   2931:                 }
                   2932:             }
                   2933:         }
                   2934:     }
                   2935:     return %updateable;
                   2936: }
                   2937: 
1.225     raeburn  2938: sub do_redirect {
                   2939:     my ($r,$url,$msg) = @_;
                   2940:     $r->print(
1.242     raeburn  2941:         &Apache::loncommon::start_page('Loading ...',undef,
                   2942:                                        {'redirect'       => [2,$url]}).
1.225     raeburn  2943:         '<div style="padding:0;clear:both;margin:0;border:0"></div>'."\n".
                   2944:         "$msg\n".
                   2945:         &Apache::loncommon::end_page());
                   2946:     return;
                   2947: }
                   2948: 
1.242     raeburn  2949: sub toggle_options_js {
                   2950:     return <<"ENDSCRIPT";
                   2951: <script type="text/javascript">
                   2952: // <![CDATA[
                   2953: function toggleOptions(form,radioname,divid) {
                   2954:     var num = form.elements[radioname].length;
                   2955:     if (num) {
                   2956:         var setvis = '';
                   2957:         var onvalue = 'user';
                   2958:         if (radioname == 'settimezone') {
                   2959:             onvalue = '1';
                   2960:         }
                   2961:         for (var i=0; i<num; i++) {
                   2962:             if (form.elements[radioname][i].checked) {
                   2963:                 if (form.elements[radioname][i].value == onvalue) {
                   2964:                     if (document.getElementById(divid)) {
                   2965:                         document.getElementById(divid).style.display = 'inline-block';
                   2966:                     }
                   2967:                     setvis = 1;
                   2968:                 }
                   2969:                 break;
                   2970:             }
                   2971:         }
                   2972:         if (!setvis) {
                   2973:             if (document.getElementById(divid)) {
                   2974:                 document.getElementById(divid).style.display = 'none';
                   2975:             }
                   2976:         }
                   2977:     }
                   2978:     return;
                   2979: }
                   2980: // ]]>
                   2981: </script>
                   2982: ENDSCRIPT
                   2983: }
                   2984: 
                   2985: sub selectbox {
                   2986:     my ($name,$value,$readonly,$functionref,@idlist)=@_;
                   2987:     my $selout = '<select name="'.$name.'">';
                   2988:     foreach my $id (@idlist) {
                   2989:         $selout.='<option value="'.$id.'"';
                   2990:         if ($id eq $value) {
                   2991:             $selout.=' selected="selected"';
                   2992:         }
                   2993:         if ($readonly) {
                   2994:             $selout .= ' disabled="disabled"';
                   2995:         }
                   2996:         $selout.='>'.&{$functionref}($id).'</option>';
                   2997:     }
                   2998:     $selout.='</select>';
                   2999:     return $selout;
                   3000: }
                   3001: 
1.1       www      3002: 1;
                   3003: __END__

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