Diff for /loncom/interface/lonpreferences.pm between versions 1.230 and 1.248

version 1.230, 2019/04/24 21:12:44 version 1.248, 2025/03/07 02:13:40
Line 31 Line 31
 package Apache::lonpreferences;  package Apache::lonpreferences;
   
 use strict;  use strict;
 use LONCAPA;  
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use Apache::File;  use Apache::File;
 use Apache::loncommon();  use Apache::loncommon();
Line 40  use Apache::lonlocal; Line 39  use Apache::lonlocal;
 use Apache::lonnet;  use Apache::lonnet;
 use LONCAPA::lonauthcgi();  use LONCAPA::lonauthcgi();
 use LONCAPA();  use LONCAPA();
   use DateTime::TimeZone();
   
 ################################################################  ################################################################
 #                       Handler subroutines                    #  #                       Handler subroutines                    #
Line 103  sub languagechanger { Line 103  sub languagechanger {
     { href => '/adm/preferences?action=changelanguages',      { href => '/adm/preferences?action=changelanguages',
                 text => 'Change Language'});                  text => 'Change Language'});
     $r->print(Apache::loncommon::start_page('Content Display Settings'));      $r->print(Apache::loncommon::start_page('Content Display Settings'));
     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Language'));       $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Language').
                 '<div class="LC_landmark" role="main">'); 
     my %userenv = &Apache::lonnet::get('environment',['languages']);      my %userenv = &Apache::lonnet::get('environment',['languages']);
     my $language=$userenv{'languages'};      my $language=$userenv{'languages'};
   
     $r->print(      $r->print(
         '<form name="prefs" action="/adm/preferences" method="post">'."\n".          '<form name="prefs" action="/adm/preferences" method="post">'."\n".
         '<input type="hidden" name="action" value="verify_and_change_languages" />'.          '<input type="hidden" name="action" value="verify_and_change_languages" />'.
         '<br /><span class="LC_nobreak">'.&mt('Preferred language').':&nbsp;'.          '<br /><span class="LC_nobreak"><label>'.&mt('Preferred language').':&nbsp;'.
         &Apache::loncommon::select_language('language',$language,1).'</span>'."\n".          &Apache::loncommon::select_language('language',$language,1).'</label></span>'."\n".
         '<br /><input type="submit" value="'.&mt('Save').'" /></form>'          '<br /><input type="submit" value="'.&mt('Save').'" /></form></div>'
     );      );
 }  }
   
Line 192  sub texenginechanger { Line 193  sub texenginechanger {
 <form name="prefs" action="/adm/preferences" method="post">  <form name="prefs" action="/adm/preferences" method="post">
 <input type="hidden" name="action" value="verify_and_change_texengine" />  <input type="hidden" name="action" value="verify_and_change_texengine" />
 <p>  <p>
 $lt{'preftxt'}: $selectionbox   <label>$lt{'preftxt'}: $selectionbox 
 <br />  </label><br />
 <input type="submit" value="$lt{'change'}" />  <input type="submit" value="$lt{'change'}" />
 </p>  </p>
 </form>  </form>
Line 275  sub rolesprefchanger { Line 276  sub rolesprefchanger {
     { href => '/adm/preferences?action=changerolespref',      { href => '/adm/preferences?action=changerolespref',
                 text => $brtext});                  text => $brtext});
     $r->print(Apache::loncommon::start_page('Content Display Settings'));      $r->print(Apache::loncommon::start_page('Content Display Settings'));
     $r->print(Apache::lonhtmlcommon::breadcrumbs($brtitle));      $r->print(Apache::lonhtmlcommon::breadcrumbs($brtitle).
                 '<div class="LC_landmark" role="main">');
     my $hotlist_flag=$userenv{'recentroles'};      my $hotlist_flag=$userenv{'recentroles'};
     my $hotlist_n=$userenv{'recentrolesn'};      my $hotlist_n=$userenv{'recentrolesn'};
     my ($checkedon,$checkedoff);      my ($checkedon,$checkedoff);
Line 294  sub rolesprefchanger { Line 296  sub rolesprefchanger {
     }      }
   
 # Get list of recent roles and display with checkbox in front  # Get list of recent roles and display with checkbox in front
     my $roles_check_list = '';      my $roles_check_list;
     my $role_key='';  
     if ($env{'environment.recentroles'}) {      if ($env{'environment.recentroles'}) {
         my %recent_roles =          my %recent_roles =
                &Apache::lonhtmlcommon::get_recent('roles',$env{'environment.recentrolesn'});                 &Apache::lonhtmlcommon::get_recent('roles',$env{'environment.recentrolesn'});
         my %frozen_roles =          my %frozen_roles =
                &Apache::lonhtmlcommon::get_recent_frozen('roles',$env{'environment.recentrolesn'});                 &Apache::lonhtmlcommon::get_recent_frozen('roles',$env{'environment.recentrolesn'});
           
         my %role_text = &rolespref_get_role_text([keys(%recent_roles)]);          my %role_text = &rolespref_get_role_text([keys(%recent_roles)]);
         my @sorted_roles = sort {$role_text{$a} cmp $role_text{$b}} keys(%role_text);          my @sorted_roles = sort {$role_text{$a} cmp $role_text{$b}} keys(%role_text);
   
         $roles_check_list .=          if (@sorted_roles) {
     &Apache::loncommon::start_data_table().              $roles_check_list =
     &Apache::loncommon::start_data_table_header_row().          &Apache::loncommon::start_data_table().
     "<th>".&mt('Freeze '.$role)."</th>".          &Apache::loncommon::start_data_table_header_row().
     "<th>".&mt($role)."</th>".          "<th>".&mt('Freeze '.$role)."</th>".
     &Apache::loncommon::end_data_table_header_row().          "<th>".&mt($role)."</th>".
     "\n";          &Apache::loncommon::end_data_table_header_row()."\n";
  my $count;      my $count = 0;
         foreach $role_key (@sorted_roles) {              foreach my $role_key (@sorted_roles) {
             my $checked = "";                  my $checked = "";
             my $value = $recent_roles{$role_key};                  my $value = $recent_roles{$role_key};
             if ($frozen_roles{$role_key}) {                  if ($frozen_roles{$role_key}) {
                 $checked = ' checked="checked"';                      $checked = ' checked="checked"';
             }                  }
     $count++;          $count++;
             $roles_check_list .=                  $roles_check_list .=
  &Apache::loncommon::start_data_table_row().      &Apache::loncommon::start_data_table_row().
  '<td class="LC_table_cell_checkbox">'.      '<td class="LC_table_cell_checkbox">'.
  "<input type=\"checkbox\"$checked name=\"freezeroles\"".      "<input type=\"checkbox\"$checked name=\"freezeroles\"".
  " id=\"freezeroles$count\" value=\"$role_key\" /></td>".      " id=\"freezeroles$count\" value=\"$role_key\" /></td>".
  "<td><label for=\"freezeroles$count\">".      "<td><label for=\"freezeroles$count\">".
  "$role_text{$role_key}</label></td>".      "$role_text{$role_key}</label></td>".
  &Apache::loncommon::end_data_table_row(). "\n";      &Apache::loncommon::end_data_table_row(). "\n";
               }
               $roles_check_list .= &Apache::loncommon::end_data_table."\n";
         }          }
         $roles_check_list .= "</table>\n";  
     }      }
   
     my $actionurl = '/adm/preferences';      my $actionurl = '/adm/preferences';
     if ($env{'form.returnurl'} eq '/adm/roles') {      if ($env{'form.returnurl'} eq '/adm/roles') {
         $actionurl = '/adm/roles';          $actionurl = '/adm/roles';
     }      }
     $r->print('<h3>'.&mt('Recent Roles Hotlist').'</h3>');      $r->print('<h2 class="LC_heading_2">'.&mt('Recent Roles Hotlist').'</h2>');
     unless ($checkedon) {      unless ($checkedon) {
         $r->print(&mt('LON-CAPA users with several '.$lc_role.'s may wish to enable the Hotlist.').'<br />');          $r->print(&mt('LON-CAPA users with several '.$lc_role.'s may wish to enable the Hotlist.').'<br />');
     }      }
Line 344  sub rolesprefchanger { Line 346  sub rolesprefchanger {
 <form name="prefs" action="'.$actionurl.'" method="post">  <form name="prefs" action="'.$actionurl.'" method="post">
 <input type="hidden" name="action" value="verify_and_change_rolespref" />  <input type="hidden" name="action" value="verify_and_change_rolespref" />
 <input type="hidden" name="returnurl" value="'.$env{'form.returnurl'}.'" />  <input type="hidden" name="returnurl" value="'.$env{'form.returnurl'}.'" />
 <div class="LC_left_float"><h4>'.&mt('Hotlist options').'</h4>  <div class="LC_left_float"><h3 class="LC_heading_3">'.&mt('Hotlist options').'</h3>
 <p>'.  <p>'.
 &mt('When enabled, the Hotlist keeps track of the last N '.$lc_role.'s visited.').'<br />'.  &mt('When enabled, the Hotlist keeps track of the last N '.$lc_role.'s visited.').'<br />'.
 &mt('Those N '.$lc_role.'s are then shown in a table at the top of the '.$lc_role.'s page.').'</p>'.  &mt('Those N '.$lc_role.'s are then shown in a table at the top of the '.$lc_role.'s page.').'</p>'.
Line 363  $options.' Line 365  $options.'
 &Apache::lonhtmlcommon::row_closure(1).  &Apache::lonhtmlcommon::row_closure(1).
 &Apache::lonhtmlcommon::end_pick_box().'  &Apache::lonhtmlcommon::end_pick_box().'
 </div>');  </div>');
     if ($roles_check_list) {       if ($roles_check_list) {
         $r->print('<div class="LC_left_float">          $r->print('<div class="LC_left_float">
 <h4>'.&mt('Freeze Roles').'</h4>  <h3 class="LC_heading_3">'.&mt('Freeze Roles').'</h3>
 <p>'.&mt('The table below can be used to [_1]freeze[_2] '.$lc_role.'s in the Hotlist.','<q>','</q>').'<br />'.  <p>'.&mt('The table below can be used to [_1]freeze[_2] '.$lc_role.'s in the Hotlist.','<q>','</q>').'<br />'.
 &mt('Those '.$lc_role.'s marked frozen will not be removed from the list, even if not recently used.').'  &mt('Those '.$lc_role.'s marked frozen will not be removed from the list, even if not recently used.').'
 </p>  </p>
Line 378  $options.' Line 380  $options.'
      $r->print('       $r->print('
 <br clear="all" />  <br clear="all" />
 <input type="submit" value="'.&mt('Save').'" />  <input type="submit" value="'.&mt('Save').'" />
 </form>');  </form></div>');
 }  }
   
 sub rolespref_get_role_text {  sub rolespref_get_role_text {
Line 491  sub screennamechanger { Line 493  sub screennamechanger {
                   text => 'Change Screen Name'});                    text => 'Change Screen Name'});
     $r->print(Apache::loncommon::start_page('Personal Data'));      $r->print(Apache::loncommon::start_page('Personal Data'));
     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Screen Name'));      $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Screen Name'));
     $r->print('<p>'      $r->print('<div class="LC_landmark" role="main">');
              .&mt('Change the name that is displayed in your posts.')      my $caption = &mt('Name displayed in posts you make').':';            
              .'</p>'  
     );  
     $r->print('<form name="prefs" action="/adm/preferences" method="post">'      $r->print('<form name="prefs" action="/adm/preferences" method="post">'
              .'<input type="hidden" name="action" value="verify_and_change_screenname" />'               .'<p><input type="hidden" name="action" value="verify_and_change_screenname" />'
              .&Apache::lonhtmlcommon::start_pick_box()               .&Apache::lonhtmlcommon::start_pick_box(undef,undef,$caption,'LC_caption_prefs')
              .&Apache::lonhtmlcommon::row_title(&mt('Screenname').' '.&mt('(shown if you post anonymously)'))               .&Apache::lonhtmlcommon::row_title('<label for="screenname">'.&mt('Screenname').'</label> '.&mt('(shown if you post anonymously)'))
              .'<input type="text" size="20" value="'.$screenname.'" name="screenname" />'               .'<input type="text" size="20" value="'.$screenname.'" name="screenname" id="screenname" />'
              .&Apache::lonhtmlcommon::row_closure()               .&Apache::lonhtmlcommon::row_closure()
              .&Apache::lonhtmlcommon::row_title(&mt('Nickname').' '.&mt('(shown if you post non-anonymously)'))               .&Apache::lonhtmlcommon::row_title('<label for="nickname">'.&mt('Nickname').'</label> '.&mt('(shown if you post non-anonymously)'))
              .'<input type="text" size="20" value="'.$nickname.'" name="nickname" />'               .'<input type="text" size="20" value="'.$nickname.'" name="nickname" id="nickname" />'
              .&Apache::lonhtmlcommon::row_closure()               .&Apache::lonhtmlcommon::row_closure()
              .&Apache::lonhtmlcommon::row_title()               .&Apache::lonhtmlcommon::row_title('<span class="LC_visually_hidden">'.&mt('Submit').':</span>','','','',1)
              .'<input type="submit" value="'.&mt('Save').'" />'               .'<input type="submit" value="'.&mt('Save').'" />'
              .&Apache::lonhtmlcommon::row_closure(1)               .&Apache::lonhtmlcommon::row_closure(1)
              .&Apache::lonhtmlcommon::end_pick_box()               .&Apache::lonhtmlcommon::end_pick_box()
              .'</form>'               .'</p></form></div>'
     );      );
 }  }
   
Line 556  sub iconchanger { Line 556  sub iconchanger {
             {   href => '/adm/preferences?action=changeicons',              {   href => '/adm/preferences?action=changeicons',
                 text => 'Change Menu Display'});                  text => 'Change Menu Display'});
     $r->print(Apache::loncommon::start_page('Page Display Settings'));      $r->print(Apache::loncommon::start_page('Page Display Settings'));
     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Menu Display'));      $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Menu Display').
                 '<div class="LC_landmark" role="main">');
   
     my $user       = $env{'user.name'};      my $user       = $env{'user.name'};
     my $domain     = $env{'user.domain'};      my $domain     = $env{'user.domain'};
Line 591  sub iconchanger { Line 592  sub iconchanger {
                       '<ul>'.                        '<ul>'.
                       $iconic_preview.                        $iconic_preview.
                       '</ul></li></ul>';                         '</ul></li></ul>'; 
       my $title = &mt('Use of icons and text');
     $r->print(<<ENDSCREEN);      $r->print(<<ENDSCREEN);
 $classic  $classic
 <form name="prefs" action="/adm/preferences" method="post">  <form name="prefs" action="/adm/preferences" method="post">
 <input type="hidden" name="action" value="verify_and_change_icons" />  <input type="hidden" name="action" value="verify_and_change_icons" />
   <fieldset style="display:inline;"><legend>$title</legend>
 <label><input type="radio" name="menumode" value="iconic" $iconic /> $lt{'iconic'}</label>$iconic_preview<br />  <label><input type="radio" name="menumode" value="iconic" $iconic /> $lt{'iconic'}</label>$iconic_preview<br />
 <label><input type="radio" name="menumode" value="iconsonly" $onlyicon /> $lt{'iconsonly'}</label>$iconsonly_preview<br />  <label><input type="radio" name="menumode" value="iconsonly" $onlyicon /> $lt{'iconsonly'}</label>$iconsonly_preview<br />
   </fieldset>
   <p>
 <input type="submit" value="$change" />  <input type="submit" value="$change" />
 </form>  </p>
   </form></div>
 ENDSCREEN  ENDSCREEN
 }  }
   
Line 627  sub icon_options { Line 633  sub icon_options {
 }  }
   
 sub icon_previews {  sub icon_previews {
      my %icon_text = (       my %icon_text = &Apache::lonlocal::texthash (
                       annotate => 'Notes',                        annotate => 'Notes',
                       wishlist => 'Stored Links',                        wishlist => 'Stored Links',
                       catalog  => 'Info',                        catalog  => 'Info',
Line 636  sub icon_previews { Line 642  sub icon_previews {
                       printout => 'Print',                        printout => 'Print',
                      );                       );
     my %inlinetools = (      my %inlinetools = (
         printout => "s&8&3&prt.png&$icon_text{'printout'}&printout[_1]&gopost('/adm/printout',currentURL)&Prepare a printable document",          printout => "s&8&3&prt.png&$icon_text{'printout'}&printout[_1]&gopost('/adm/printout',currentURL)&".&mt('Prepare a printable document'),
         wishlist => "s&9&1&wishlist-link.png&$icon_text{'wishlist'}&wishlistlink[_2]&set_wishlistlink()&Save a link for this resource in your personal Stored Links repository",          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'),
         evaluate => "s&8&1&eval.png&$icon_text{'evaluate'}&this[_1]&gopost('/adm/evaluate',currentURL,1)&Provide my evaluation of this resource",          evaluate => "s&8&1&eval.png&$icon_text{'evaluate'}&this[_1]&gopost('/adm/evaluate',currentURL,1)&".&mt('Provide my evaluation of this resource'),
         feedback => "s&8&2&fdbk.png&$icon_text{'feedback'}&discuss[_1]&gopost('/adm/feedback',currentURL,1)&Provide feedback messages or contribute to the course discussion about this resource",          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'),
         annotate => "s&9&3&anot.png&$icon_text{'annotate'}&tations[_1]&annotate()&Make notes and annotations about this resource",          annotate => "s&9&3&anot.png&$icon_text{'annotate'}&tations[_1]&annotate()&".&mt('Make notes and annotations about this resource'),
         catalog  => "s&6&3&catalog.png&$icon_text{'catalog'}&info[_1]&catalog_info()&Show Metadata",          catalog  => "s&6&3&catalog.png&$icon_text{'catalog'}&info[_1]&catalog_info()&".&mt('Show Metadata'),
     );      );
     my @toolsorder = qw(annotate wishlist evaluate feedback printout catalog);      my @toolsorder = qw(annotate wishlist evaluate feedback printout catalog);
     return (\%inlinetools,\@toolsorder);      return (\%inlinetools,\@toolsorder);
Line 657  sub clickerchanger { Line 663  sub clickerchanger {
     { href => '/adm/preferences?action=changeclicker',      { href => '/adm/preferences?action=changeclicker',
                 text => 'Register Clicker'});                  text => 'Register Clicker'});
     $r->print(Apache::loncommon::start_page('Other'));      $r->print(Apache::loncommon::start_page('Other'));
     $r->print(Apache::lonhtmlcommon::breadcrumbs('Register Clicker'));      $r->print(Apache::lonhtmlcommon::breadcrumbs('Register Clicker').
                 '<div class="LC_landmark" role="main">');
     my $user       = $env{'user.name'};      my $user       = $env{'user.name'};
     my $domain     = $env{'user.domain'};      my $domain     = $env{'user.domain'};
     my %userenv = &Apache::lonnet::get      my %userenv = &Apache::lonnet::get
Line 668  sub clickerchanger { Line 675  sub clickerchanger {
     my $change=&mt('Save');      my $change=&mt('Save');
     my $helplink=&Apache::loncommon::help_open_topic('Clicker_Registration',&mt('Locating your clicker ID'));      my $helplink=&Apache::loncommon::help_open_topic('Clicker_Registration',&mt('Locating your clicker ID'));
     $r->print(<<ENDSCREEN);      $r->print(<<ENDSCREEN);
   <br />
 <form name="prefs" action="/adm/preferences" method="post">  <form name="prefs" action="/adm/preferences" method="post">
 <input type="hidden" name="action" value="verify_and_change_clicker" />  <input type="hidden" name="action" value="verify_and_change_clicker" />
 <label>$helplink<br /><br />$text<br />  <label>$helplink<br /><br />$text<br />
 <textarea name="clickers" rows="5" cols="20">$clickers</textarea>  <textarea name="clickers" rows="5" cols="20">$clickers</textarea>
 </label>  </label>
 <br />  <p>
 <input type="submit" value="$change" />  <input type="submit" value="$change" />
   </p>
 </form>  </form>
   </div>
 ENDSCREEN  ENDSCREEN
 }  }
   
Line 848  sub msgforwardchanger { Line 858  sub msgforwardchanger {
                                           notv => 'is not a valid e-mail address',                                            notv => 'is not a valid e-mail address',
                                           toen => "To enter multiple addresses, enter one address at a time, click 'Change' and then add the next one",                                             toen => "To enter multiple addresses, enter one address at a time, click 'Change' and then add the next one", 
                                           prme => 'Back',                                            prme => 'Back',
                                             acti => 'Action',
                                             type => 'Types of message for which notification is sent',
                                             nota => 'Notification address',
                                             exce => 'Excerpt retains HTML tags in message',
                                             modi => 'Modify',
                                             dele => 'Delete',
                                             addn => 'Add new address',
                                             yes  => 'Yes',
                                             no   => 'No',
                                         );                                          );
     $lt{'foad_exmpl'} = &mt('e.g. [_1]userA:domain1,userB:domain2,...[_2]','<tt>','</tt>');      $lt{'foad_exmpl'} = &mt('e.g. [_1]userA:domain1,userB:domain2,...[_2]','<tt>','</tt>');
     $lt{'mnot_exmpl'} = &mt('e.g. [_1]joe@doe.com[_2]','<tt>','</tt>');      $lt{'mnot_exmpl'} = &mt('e.g. [_1]joe@doe.com[_2]','<tt>','</tt>');
     Apache::lonhtmlcommon::add_breadcrumb(      Apache::lonhtmlcommon::add_breadcrumb(
     { href => '/adm/preferences?action=changemsgforward',      { href => '/adm/preferences?action=changemsgforward',
  text => 'Messages & Notifications'});   text => 'Messages &amp; Notifications'});
     $r->print(Apache::loncommon::start_page('Messages &amp; Notifications'));      $r->print(Apache::loncommon::start_page('Messages &amp; Notifications'));
     $r->print(Apache::lonhtmlcommon::breadcrumbs('Messages &amp; Notifications'));      $r->print(Apache::lonhtmlcommon::breadcrumbs('Messages &amp; Notifications').
                 '<div class="LC_landmark" role="main">');
     my $forwardingHelp = &Apache::loncommon::help_open_topic("Prefs_Forwarding");      my $forwardingHelp = &Apache::loncommon::help_open_topic("Prefs_Forwarding");
     my $notificationHelp = &Apache::loncommon::help_open_topic("Prefs_Notification");      my $notificationHelp = &Apache::loncommon::help_open_topic("Prefs_Notification");
     my $criticalMessageHelp = &Apache::loncommon::help_open_topic("Course_Critical_Message");      my $criticalMessageHelp = &Apache::loncommon::help_open_topic("Course_Critical_Message");
Line 864  sub msgforwardchanger { Line 884  sub msgforwardchanger {
     my $validatescript = &Apache::lonhtmlcommon::javascript_valid_email();      my $validatescript = &Apache::lonhtmlcommon::javascript_valid_email();
     my $jscript = qq|      my $jscript = qq|
 <script type="text/javascript" language="JavaScript">  <script type="text/javascript" language="JavaScript">
   // <![CDATA[
 function validate() {  function validate() {
     for (var i=0; i<document.prefs.numnotify.value; i++) {      for (var i=0; i<document.prefs.numnotify.value; i++) {
         var checkaddress = 0;          var checkaddress = 0;
Line 916  function modify_address(adnum) { Line 937  function modify_address(adnum) {
 }   } 
   
 $validatescript  $validatescript
   
   // ]]>
 </script>  </script>
 |;  |;
     $r->print(<<ENDMSG);      $r->print(<<ENDMSG);
 $jscript  $jscript
 $message  $message
 <h3>$lt{'fwdm'} $forwardingHelp</h3>  <h2 class="LC_heading_2">$lt{'fwdm'} $forwardingHelp</h2>
 <form name="prefs" action="/adm/preferences" method="post">  <form name="prefs" action="/adm/preferences" method="post">
 <input type="hidden" name="action" value="verify_and_change_msgforward" />  <input type="hidden" name="action" value="verify_and_change_msgforward" />
 $lt{'foad'} ($lt{'foad_exmpl'}):  <label for="msgforward">$lt{'foad'}</label> ($lt{'foad_exmpl'}):
 <input type="text" size="40" value="$msgforward" name="msgforward" />  <input type="text" size="40" value="$msgforward" name="msgforward" id="msgforward" />
 <br /><br />  <p />
 <h3>$lt{'noti'} $notificationHelp</h3>  <h2 class="LC_heading_2">$lt{'noti'} $notificationHelp</h2>
 $lt{'mnot'} ($lt{'mnot_exmpl'}):<br />  <span id="LC_email_notify">$lt{'mnot'}</span> ($lt{'mnot_exmpl'}):<br />
 ENDMSG  ENDMSG
     my @sortforwards = sort (keys(%allnot));      my @sortnotify = sort (keys(%allnot));
     my $output = &Apache::loncommon::start_data_table().      my $output = &Apache::loncommon::start_data_table().
                  &Apache::loncommon::start_data_table_header_row().                   &Apache::loncommon::start_data_table_header_row().
                  '<th>&nbsp;</th>'.                   '<th>#</th>'.
                  '<th>'.&mt('Action').'</th>'.                   '<th>'.$lt{'acti'}.'</th>'.
                  '<th>'.&mt('Notification address').'</th><th>'.                   '<th>'.$lt{'nota'}.'</th><th>'.
                  &mt('Types of message for which notification is sent').                   $lt{'type'}.
                  $criticalMessageHelp.'</th><th>'.                   $criticalMessageHelp.'</th><th>'.
                  &mt('Excerpt retains HTML tags in message').'</th>'.                   $lt{'exce'}.'</th>'.
                  &Apache::loncommon::end_data_table_header_row();                   &Apache::loncommon::end_data_table_header_row();
     my $num = 0;      my $num = 0;
     my $counter = 1;      my $counter = 1;
     foreach my $item (@sortforwards) {      foreach my $item (@sortnotify) {
         $output .= &Apache::loncommon::start_data_table_row().          $output .= &Apache::loncommon::start_data_table_row('LC_prefs_row').
                    '<td><b>'.$counter.'</b></td>'.                     '<td><b>'.$counter.'</b></td>'.
                    '<td><span class="LC_nobreak"><label>'.                     '<td><span class="LC_nobreak"><label>'.
                    '<input type="checkbox" name="modify_notify_'.                     '<input type="checkbox" name="modify_notify_'.
                    $num.'" onclick="javscript:modify_address('."'$num'".')" />'.                     $num.'" onclick="javscript:modify_address('."'$num'".')" />'.
                    &mt('Modify').'</label></span>&nbsp;&nbsp; '.                     $lt{'modi'}.'</label></span> '.('&nbsp;' x2).
                    '<span class="LC_nobreak"><label>'.                     '<span class="LC_nobreak"><label>'.
                    '<input type="checkbox" name="del_notify_'.$num.                     '<input type="checkbox" name="del_notify_'.$num.
                    '" onclick="javscript:delete_address('."'$num'".')" />'.                     '" onclick="javscript:delete_address('."'$num'".')" />'.
                    &mt('Delete').'</label></span></td>'.                     $lt{'dele'}.'</label></span></td>'.
                    '<td><input type="text" value="'.$item.'" name="address_'.                     '<td><span style="padding: 10px;"><input type="text" value="'.$item.'" name="address_'.
                    $num.'" onfocus="javascript:address_changes('."'$num'".                     $num.'" onfocus="javascript:address_changes('."'$num'".
                    ')" /></td><td>';                     ')" aria-labelledby="LC_email_notify" /></span></td><td>';
         my %chk;          my %chk;
         if (defined($allnot{$item}{'crit'})) {          if (defined($allnot{$item}{'crit'})) {
             if (defined($allnot{$item}{'reg'})) {              if (defined($allnot{$item}{'reg'})) {
Line 966  ENDMSG Line 989  ENDMSG
         } else {          } else {
             $chk{'reg'} = 'checked="checked" ';              $chk{'reg'} = 'checked="checked" ';
         }          }
           $output .= '<fieldset class="LC_landmark" style="display:inline"><legend class="LC_visually_hidden">'.$lt{'type'}.'</legend>';
         foreach my $type ('all','crit','reg') {          foreach my $type ('all','crit','reg') {
             $output .= '<span class="LC_nobreak"><label>'.              $output .= '<span class="LC_nobreak"><label>'.
                        '<input type="radio" name="notify_type_'.$num.                          '<input type="radio" name="notify_type_'.$num. 
                        '" value="'.$type.'" '.$chk{$type}.                         '" value="'.$type.'" '.$chk{$type}.
                        ' onchange="javascript:address_changes('."'$num'".')" />'.                         ' onchange="javascript:address_changes('."'$num'".')" />'.
                        $lt{$type}.'</label></span>'.('&nbsp;' x4);                         $lt{$type}.'</label></span> '.('&nbsp;' x2);
         }          }
           $output .= '</fieldset>';
         my $htmlon = '';          my $htmlon = '';
         my $htmloff = '';          my $htmloff = '';
         if (grep/^\Q$item\E/,@allow_html) {          if (grep/^\Q$item\E/,@allow_html) {
Line 980  ENDMSG Line 1005  ENDMSG
         } else {          } else {
             $htmloff = 'checked="checked" ';              $htmloff = 'checked="checked" ';
         }          }
         $output .= '</td><td><label><input type="radio" name="html_'.$num.          $output .= '</td><td>'.
                      '<fieldset class="LC_landmark" style="display:inline"><legend class="LC_visually_hidden">'.$lt{'exce'}.'</legend>'.
                      '<label><input type="radio" name="html_'.$num.
                    '" value="1" '.$htmlon.                     '" value="1" '.$htmlon.
                    ' onchange="javascript:address_changes('."'$num'".')" />'.                     ' onchange="javascript:address_changes('."'$num'".')" />'.
                    &mt('Yes').'</label>'.('&nbsp;' x3).                     $lt{'yes'}.'</label> '.('&nbsp;' x2).
                    '<label><input type="radio" name="html_'.$num.'" value="0" '.                     '<label><input type="radio" name="html_'.$num.'" value="0" '.
                    $htmloff. ' onchange="javascript:address_changes('."'$num'".                     $htmloff. ' onchange="javascript:address_changes('."'$num'".
 ')" />'.  ')" />'.
                    &mt('No').'</label></td>'.                     $lt{'no'}.'</label></fieldset></td>'.
                    &Apache::loncommon::end_data_table_row();                     &Apache::loncommon::end_data_table_row();
         $num ++;          $num ++;
         $counter ++;          $counter ++;
Line 997  ENDMSG Line 1024  ENDMSG
                    crit => '',                     crit => '',
                    reg => '',                     reg => '',
                  );                   );
     $output .= &Apache::loncommon::start_data_table_row().      $output .= &Apache::loncommon::start_data_table_row('LC_prefs_row').
                '<td><b>'.$counter.'</b></td>'.                 '<td><b>'.$counter.'</b></td>'.
                '<td><span class="LC_nobreak"><label>'.                 '<td><span class="LC_nobreak"><label>'.
                '<input type="checkbox" name="add_notify_'.$num.                 '<input type="checkbox" name="add_notify_'.$num.
                '" value="1" />'.&mt('Add new address').'</label></span></td>'.                 '" value="1" />'.$lt{'addn'}.'</label></span></td>'.
                '<td><input type="text" value="" name="address_'.$num.                 '<td><span style="padding: 10px;"><input type="text" value="" name="address_'.$num.
                '" onfocus="javascript:new_address('."'$num'".')" /></td><td>';                 '" onfocus="javascript:new_address('."'$num'".')" aria-labelledby="LC_email_notify" /></span></td><td>';
       $output .= '<fieldset class="LC_landmark" style="display:inline"><legend class="LC_visually_hidden">'.$lt{'type'}.'</legend>';
     foreach my $type ('all','crit','reg') {      foreach my $type ('all','crit','reg') {
         $output .= '<span class="LC_nobreak"><label>'.          $output .= '<span class="LC_nobreak"><label>'.
                    '<input type="radio" name="notify_type_'.$num.                     '<input type="radio" name="notify_type_'.$num.
                    '" value="'.$type.'" '.$defchk{$type}.'/>'.                     '" value="'.$type.'" '.$defchk{$type}.'/>'.
                    $lt{$type}.'</label></span>'.('&nbsp;' x4);                     $lt{$type}.'</label></span> '.('&nbsp;' x2);
     }      }
     $output .= '</td><td><label><input type="radio" name="html_'.$num.      $output .= '</fieldset></td><td>'.
                '" value="1" />'.&mt('Yes').'</label>'.('&nbsp;' x3).                 '<fieldset class="LC_landmark" style="display:inline"><legend class="LC_visually_hidden">'.$lt{'exce'}.'</legend>'.
                  '<label><input type="radio" name="html_'.$num.
                  '" value="1" />'.$lt{'yes'}.'</label> '.('&nbsp;' x2).
                '<label><input type="radio" name="html_'.$num.'" value="0" '.                 '<label><input type="radio" name="html_'.$num.'" value="0" '.
                ' checked="checked" />'.                 ' checked="checked" />'.
                &mt('No').'</label></td>'.                 $lt{'no'}.'</label></fieldset></td>'.
                &Apache::loncommon::end_data_table_row().                 &Apache::loncommon::end_data_table_row().
                &Apache::loncommon::end_data_table();                 &Apache::loncommon::end_data_table();
     $num ++;      $num ++;
Line 1024  ENDMSG Line 1054  ENDMSG
 <input type="hidden" name="numnotify" value="$num" />  <input type="hidden" name="numnotify" value="$num" />
 <input type="button" value="$lt{'prme'}" onclick="location.href='/adm/preferences'" />  <input type="button" value="$lt{'prme'}" onclick="location.href='/adm/preferences'" />
 <input type="button" value="$lt{'chg'}" onclick="javascript:validate()" />  <input type="button" value="$lt{'chg'}" onclick="javascript:validate()" />
 </form>  </form></div>
 |);  |);
   
 }  }
Line 1158  sub colorschanger { Line 1188  sub colorschanger {
     { href => '/adm/preferences?action=changecolors',      { href => '/adm/preferences?action=changecolors',
                 text => 'Change Colors'});                  text => 'Change Colors'});
     $r->print(Apache::loncommon::start_page('Page Display Settings'));      $r->print(Apache::loncommon::start_page('Page Display Settings'));
     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Colors'));      $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Colors').
                 '<div class="LC_landmark" role="main">');
 # figure out colors  # figure out colors
     my $function=&Apache::loncommon::get_users_function();      my $function=&Apache::loncommon::get_users_function();
     my $domain=&Apache::loncommon::determinedomain();      my $domain=&Apache::loncommon::determinedomain();
Line 1172  sub colorschanger { Line 1203  sub colorschanger {
         'vlink'    => 'Visited Link Color',          'vlink'    => 'Visited Link Color',
         'alink'    => 'Active Link Color',          'alink'    => 'Active Link Color',
     );      );
     my $start_data_table = &Apache::loncommon::start_data_table();      my $start_data_table = &Apache::loncommon::start_data_table().
                              &Apache::loncommon::data_table_caption(&mt('Colors for LON-CAPA pages')).
                              &Apache::loncommon::start_data_table_header_row().
                              '<th>'.&mt('Page Element').'</th><th>'.&mt('Color').'</th>'.
                              &Apache::loncommon::end_data_table_header_row();
     my $chtable='';      my $chtable='';
     foreach my $item (sort(keys(%colortypes))) {      foreach my $item (sort(keys(%colortypes))) {
        my $curcol=&Apache::loncommon::designparm($function.'.'.$item,$domain);         my $curcol=&Apache::loncommon::designparm($function.'.'.$item,$domain);
        $chtable.=&Apache::loncommon::start_data_table_row().         $chtable.=&Apache::loncommon::start_data_table_row().
    '<td>'.$colortypes{$item}.'<td><input name="'.$item.     '<td><label for="'.$item.'">'.$colortypes{$item}.'</label></td>'.
         '" class="colorchooser"  size="10" value="'.$curcol.     '<td><input name="'.$item.
           '" class="colorchooser" id="'.$item.'" size="10" value="'.$curcol.
 '" /></td>'.  '" /></td>'.
     &Apache::loncommon::end_data_table_row()."\n";      &Apache::loncommon::end_data_table_row()."\n";
     }      }
Line 1189  sub colorschanger { Line 1225  sub colorschanger {
     my $resetbuttondesc = &mt('Reset All Colors to Default');      my $resetbuttondesc = &mt('Reset All Colors to Default');
     my $colorchooser=&Apache::lonhtmlcommon::color_picker();      my $colorchooser=&Apache::lonhtmlcommon::color_picker();
     $r->print('<script type="text/javascript" language="JavaScript">      $r->print('<script type="text/javascript" language="JavaScript">
 ' . $colorchooser . '  // <![CDATA[' ."\n". $colorchooser . "\n". '
   // ]]>
 </script>  </script>
 ');  ');
     $r->print(<<ENDCOL);      $r->print(<<ENDCOL);
Line 1199  sub colorschanger { Line 1236  sub colorschanger {
 <input type="hidden" name="pres_type" />  <input type="hidden" name="pres_type" />
 <input type="hidden" name="pres_value" />  <input type="hidden" name="pres_value" />
 </form>  </form>
   <br />
 <form name="prefs" action="/adm/preferences" method="post">  <form name="prefs" action="/adm/preferences" method="post">
 <input type="hidden" name="action" value="verify_and_change_colors" />  <input type="hidden" name="action" value="verify_and_change_colors" />
 $start_data_table  $start_data_table
Line 1209  $end_data_table Line 1247  $end_data_table
 <input type="submit" value="$savebutton" />  <input type="submit" value="$savebutton" />
 <input type="submit" name="resetall" value="$resetbutton" title="$resetbuttondesc" />  <input type="submit" name="resetall" value="$resetbutton" title="$resetbuttondesc" />
 </p>  </p>
 </form>  </form></div>
 ENDCOL  ENDCOL
 }  }
   
Line 1265  sub passwordchanger { Line 1303  sub passwordchanger {
     # This function is a bit of a mess....      # This function is a bit of a mess....
     # Passwords are encrypted using londes.js (DES encryption)      # Passwords are encrypted using londes.js (DES encryption)
     $errormessage = ($errormessage || '');      $errormessage = ($errormessage || '');
     my ($user,$domain,$currentpass);      my ($user,$domain,$currentpass,$clientip);
       $clientip = &Apache::lonnet::get_requestor_ip($r);
     &Apache::lonhtmlcommon::add_breadcrumb(      &Apache::lonhtmlcommon::add_breadcrumb(
  { href => '/adm/preferences?action=changepass',   { href => '/adm/preferences?action=changepass',
                   text => 'Change Password'});                    text => 'Change Password'});
     unless ($caller eq 'reset_by_email') {      unless ($caller eq 'reset_by_email') {
         $r->print(Apache::loncommon::start_page('Personal Data'));          $r->print(Apache::loncommon::start_page('Personal Data'));
         $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Password'));          $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Password').
     }                    '<div class="LC_landmark" role="main">');
     my ($blocked,$blocktext) =  
         &Apache::loncommon::blocking_status('passwd');  
     if ($blocked) {  
         $r->print('<p class="LC_warning">'.$blocktext.'</p>');  
         return;  
     }      }
     if ((!defined($caller)) || ($caller eq 'preferences')) {      if ((!defined($caller)) || ($caller eq 'preferences')) {
         $user = $env{'user.name'};          $user = $env{'user.name'};
Line 1285  sub passwordchanger { Line 1319  sub passwordchanger {
         if (!defined($caller)) {          if (!defined($caller)) {
             $caller = 'preferences';              $caller = 'preferences';
         }          }
           my ($blocked,$blocktext) =
               &Apache::loncommon::blocking_status('passwd',$clientip);
           if ($blocked) {
               $r->print('<p class="LC_warning">'.$blocktext.'</p></div>');
               return;
           }
     } elsif ($caller eq 'reset_by_email') {      } elsif ($caller eq 'reset_by_email') {
         my %data = &Apache::lonnet::tmpget($mailtoken);          my %data = &Apache::lonnet::tmpget($mailtoken);
         if (keys(%data) == 0) {          if (keys(%data) == 0) {
Line 1301  sub passwordchanger { Line 1341  sub passwordchanger {
                 $user = $data{'username'};                  $user = $data{'username'};
                 $domain = $data{'domain'};                  $domain = $data{'domain'};
                 $currentpass = $data{'temppasswd'};                  $currentpass = $data{'temppasswd'};
                   my ($blocked,$blocktext) =
                       &Apache::loncommon::blocking_status('passwd',$clientip,$user,$domain);
                   if ($blocked) {
                       $r->print('<p class="LC_warning">'.$blocktext.'</p>');
                       return;
                   }
             } else {              } else {
                 $r->print(                  $r->print(
                     '<p class="LC_warning">'                      '<p class="LC_warning">'
Line 1310  sub passwordchanger { Line 1356  sub passwordchanger {
                 );                  );
                 return;                  return;
             }              }
          } else {          } else {
             $r->print(              $r->print(
                 '<p class="LC_warning">'                  '<p class="LC_warning">'
                .&mt('Sorry, the URL generated when you requested reset of'                 .&mt('Sorry, the URL generated when you requested reset of'
Line 1326  sub passwordchanger { Line 1372  sub passwordchanger {
         $r->print(          $r->print(
             '<p class="LC_error">'              '<p class="LC_error">'
            .&mt('Page requested in unexpected context')             .&mt('Page requested in unexpected context')
            .'</p>'             .'</p></div>'
         );          );
         return;          return;
     }      }
     my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain);      my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain);
     # Check for authentication types that allow changing of the password.      # Check for authentication types that allow changing of the password.
     return if ($currentauth !~ /^(unix|internal):/);      if ($currentauth !~ /^(unix|internal):/) {
           unless ($caller eq 'reset_by_email') {
               $r->print('</div>');
           }
           return;
       }
     #      #
     # Generate keys      # Generate keys
     my ($lkey_cpass ,$ukey_cpass ) = &Apache::loncommon::des_keys();      my ($lkey_cpass ,$ukey_cpass ) = &Apache::loncommon::des_keys();
Line 1360  sub passwordchanger { Line 1411  sub passwordchanger {
  my $jsh=Apache::File->new($include."/londes.js");   my $jsh=Apache::File->new($include."/londes.js");
  $r->print(<$jsh>);   $r->print(<$jsh>);
     }      }
     $r->print(&jscript_send($caller,$extrafields));      $r->print(&jscript_send($caller,$domain,$currentauth,$extrafields));
     $r->print(<<ENDFORM);      $r->print(<<ENDFORM);
 $errormessage  $errormessage
   
 <p>  <p></p>
 <!-- We separate the forms into 'server' and 'client' in order to  <!-- We separate the forms into 'server' and 'client' in order to
      ensure that unencrypted passwords will not be sent out by a       ensure that unencrypted passwords will not be sent out by a
      crappy browser -->       crappy browser -->
 ENDFORM  ENDFORM
     $r->print(&server_form($logtoken,$caller,$mailtoken,$extrafields));      $r->print(&server_form($logtoken,$caller,$mailtoken,$extrafields));
     $r->print(&client_form($caller,\%hexkey,$currentpass,$domain,$extrafields));      $r->print(&client_form($caller,\%hexkey,$currentpass,$domain,$extrafields));
       unless ($caller eq 'reset_by_email') {
           $r->print('</div>');
       }
     #      #
     return;      return;
 }  }
   
 sub jscript_send {  sub jscript_send {
     my ($caller,$extrafields) = @_;      my ($caller,$domain,$currentauth,$extrafields) = @_;
       my ($min,$max,$rulestr,$numrules);
       $min = $Apache::lonnet::passwdmin;
       my %js_lt = &Apache::lonlocal::texthash(
                 uc => 'New password needs at least one upper case letter',
                 lc => 'New password needs at least one lower case letter',
                 num => 'New password needs at least one number',
                 spec => 'New password needs at least one non-alphanumeric',
                 blank1 => 'Empty Password field',
                 blank2 => 'Empty Confirm Password field',
                 mismatch => 'Contents of Password and Confirm Password fields must match',
                 fail => 'Please fix the following:',
       );
       &js_escape(\%js_lt);
       if ($currentauth eq 'internal:') {
           if ($domain ne '') {
               my %passwdconf = &Apache::lonnet::get_passwdconf($domain);
               if (keys(%passwdconf)) {
                   if ($passwdconf{min}) {
                       $min = $passwdconf{min};
                   }
                   if ($passwdconf{max}) {
                       $max = $passwdconf{max};
                       $js_lt{'long'} = &js_escape(&mt('Maximum password length: [_1]',$max));
                   }
                   if (ref($passwdconf{chars}) eq 'ARRAY') {
                       if (@{$passwdconf{chars}}) {
                           $rulestr =  join('","',@{$passwdconf{chars}});
                           $numrules = scalar(@{$passwdconf{chars}});
                       }
                   }
               }
           }
       }
       $js_lt{'short'} = &js_escape(&mt('Minimum password length: [_1]',$min));
   
       my $passwdcheck = <<"ENDJS";
           var errors = new Array();
           var min = parseInt("$min") || 0;
           var currauth = "$currentauth";
           if (this.document.client.elements.newpass_1.value == '') {
               errors.push("$js_lt{'blank1'}");
           }
           if (this.document.client.elements.newpass_2.value == '') {
               errors.push("$js_lt{'blank2'}");
           }
           if (errors.length == 0) {
               if (this.document.client.elements.newpass_1.value !=  this.document.client.elements.newpass_2.value) {
                   errors.push("$js_lt{'mismatch'}");
               }
               var posspass = this.document.client.elements.newpass_1.value;
               if (min > 0) {
                   if (posspass.length < min) {
                       errors.push("$js_lt{'short'}");
                   }
               }
               if (currauth == 'internal:') {
                   var max = parseInt("$max") || 0;
                   if (max > 0) {
                       if (posspass.length > max) {
                           errors.push("$js_lt{'long'}");
                       }
                   }
                   var numrules = parseInt("$numrules") || 0;
                   if (numrules > 0) {
                       var rules = new Array("$rulestr");
                       for (var i=0; i<rules.length; i++) {
                           if (rules[i] == 'uc') {
                               if (!posspass.match(/[A-Z]/)) {
                                   errors.push("$js_lt{'uc'}");
                               }
                           } else if (rules[i] == 'lc') {
                               if (!posspass.match(/[a-z]/)) {
                                   errors.push("$js_lt{'lc'}");
                               }
                           } else if (rules[i] == 'num') {
                               if (!posspass.match(/\\d/)) {
                                   errors.push("$js_lt{'num'}");
                               }
                           } else if (rules[i] == 'spec') {
                               var pattern = /^[!@#$%^&*()_+\\-=\\[\\]{};':"\\\|,.<a>\\/?]/;
                               if (!posspass.match(pattern)) {
                                   errors.push("$js_lt{'spec'}");
                               }
                           }
                       }
                   }
               }
           }
           if (errors.length > 0) {
               alert("$js_lt{'fail'}"+"\\n\\n"+errors.join("\\n"));
               return;
           }
   ENDJS
     my $output = qq|      my $output = qq|
 <script type="text/javascript" language="JavaScript">  <script type="text/javascript" language="JavaScript">
   // <![CDATA[
     function send() {      function send() {
   $passwdcheck
         uextkey=this.document.client.elements.ukey_cpass.value;          uextkey=this.document.client.elements.ukey_cpass.value;
         lextkey=this.document.client.elements.lkey_cpass.value;          lextkey=this.document.client.elements.lkey_cpass.value;
         initkeys();          initkeys();
Line 1408  sub jscript_send { Line 1555  sub jscript_send {
 |;  |;
         }          }
         if ((ref($extrafields) eq 'HASH') && ($extrafields->{'email'})) {          if ((ref($extrafields) eq 'HASH') && ($extrafields->{'email'})) {
             $output .= qq|               $output .= qq|
         this.document.pserver.elements.email.value =          this.document.pserver.elements.email.value =
                    this.document.client.elements.email.value;                     this.document.client.elements.email.value;
 |;  |;
Line 1418  sub jscript_send { Line 1565  sub jscript_send {
         this.document.pserver.submit();          this.document.pserver.submit();
     }      }
   
   // ]]>
 </script>  </script>
 |;  |;
 }  }
Line 1444  sub client_form { Line 1592  sub client_form {
                       .&Apache::lonhtmlcommon::row_closure();                        .&Apache::lonhtmlcommon::row_closure();
         }          }
         if ((ref($extrafields) eq 'HASH') && ($extrafields->{'username'})) {          if ((ref($extrafields) eq 'HASH') && ($extrafields->{'username'})) {
             $output .= &Apache::lonhtmlcommon::row_title(                $output .= &Apache::lonhtmlcommon::row_title(
                        '<label for="uname">'.$lt{'username'}.'</label>')                         '<label for="uname">'.$lt{'username'}.'</label>')
                       .'<input type="text" name="uname" size="20" autocapitalize="off" autocorrect="off" />'                        .'<input type="text" name="uname" size="20" autocapitalize="off" autocorrect="off" />'
                       .&Apache::lonhtmlcommon::row_closure()                        .&Apache::lonhtmlcommon::row_closure()
Line 1456  sub client_form { Line 1604  sub client_form {
     } else {      } else {
         $output .= &Apache::lonhtmlcommon::row_title(          $output .= &Apache::lonhtmlcommon::row_title(
                        '<label for="currentpass">'.$lt{'currentpass'}.'</label>')                         '<label for="currentpass">'.$lt{'currentpass'}.'</label>')
                   .'<input type="password" name="currentpass" size="20"/>'                    .'<input type="password" name="currentpass" id="currentpass" size="20" />'
                   .&Apache::lonhtmlcommon::row_closure();                    .&Apache::lonhtmlcommon::row_closure();
     }      }
     $output .= &Apache::lonhtmlcommon::row_title(      $output .= &Apache::lonhtmlcommon::row_title(
                    '<label for="newpass_1">'.$lt{'newpass'}.'</label>')                     '<label for="newpass_1">'.$lt{'newpass'}.'</label>')
               .'<input type="password" name="newpass_1" size="20" />'                .'<input type="password" name="newpass_1" id="newpass_1" size="20" />'
               .&Apache::lonhtmlcommon::row_closure()                .&Apache::lonhtmlcommon::row_closure()
               .&Apache::lonhtmlcommon::row_title(                .&Apache::lonhtmlcommon::row_title(
                    '<label for="newpass_2">'.$lt{'confirmpass'}.'</label>')                     '<label for="newpass_2">'.$lt{'confirmpass'}.'</label>')
               .'<input type="password" name="newpass_2" size="20" />'                .'<input type="password" name="newpass_2" id="newpass_2" size="20" />'
               .&Apache::lonhtmlcommon::row_closure(1)                .&Apache::lonhtmlcommon::row_closure(1)
               .&Apache::lonhtmlcommon::end_pick_box();                .&Apache::lonhtmlcommon::end_pick_box();
     if ($caller eq 'reset_by_email') {      if ($caller eq 'reset_by_email') {
Line 1480  sub client_form { Line 1628  sub client_form {
 <input type="hidden" name="ukey_npass2" value="$hexkey->{'ukey_npass2'}" />  <input type="hidden" name="ukey_npass2" value="$hexkey->{'ukey_npass2'}" />
 <input type="hidden" name="lkey_npass2" value="$hexkey->{'lkey_npass2'}" />  <input type="hidden" name="lkey_npass2" value="$hexkey->{'lkey_npass2'}" />
 </form>  </form>
 </p>  
 |;  |;
     return $output;      return $output;
 }  }
Line 1522  sub server_form { Line 1669  sub server_form {
 }  }
   
 sub verify_and_change_password {  sub verify_and_change_password {
     my ($r,$caller,$mailtoken,$ended) = @_;      my ($r,$caller,$mailtoken,$timelimit,$extrafields,$ended) = @_;
     my ($user,$domain,$homeserver);      my ($user,$domain,$homeserver,$clientip);
     my ($blocked,$blocktext) =  
         &Apache::loncommon::blocking_status('passwd');  
     if ($blocked) {  
         $r->print('<p class="LC_warning">'.$blocktext.'</p>');  
         return;  
     }  
     if ($caller eq 'reset_by_email') {      if ($caller eq 'reset_by_email') {
         $user       = $env{'form.uname'};          $user       = $env{'form.uname'};
         $domain     = $env{'form.udom'};          $domain     = $env{'form.udom'};
Line 1538  sub verify_and_change_password { Line 1679  sub verify_and_change_password {
             if ($homeserver eq 'no_host') {              if ($homeserver eq 'no_host') {
         &passwordchanger($r,"<p>\n<span class='LC_error'>".          &passwordchanger($r,"<p>\n<span class='LC_error'>".
                          &mt("Invalid username and/or domain")."</span>\n</p>",                           &mt("Invalid username and/or domain")."</span>\n</p>",
                          $caller,$mailtoken);                           $caller,$mailtoken,$timelimit,$extrafields);
                 return 1;                  return 'no_host';
             }              }
         } else {          } else {
             &passwordchanger($r,"<p>\n<span class='LC_error'>".              &passwordchanger($r,"<p>\n<span class='LC_error'>".
                              &mt("Username and domain were blank")."</span>\n</p>",                               &mt("Username and domain were blank")."</span>\n</p>",
                              $caller,$mailtoken);                               $caller,$mailtoken,$timelimit,$extrafields);
             return 1;              return 'missingdata';
         }          }
     } else {      } else {
         $user       = $env{'user.name'};          $user       = $env{'user.name'};
         $domain     = $env{'user.domain'};          $domain     = $env{'user.domain'};
         $homeserver = $env{'user.home'};          $homeserver = $env{'user.home'};
     }      }
       $clientip = &Apache::lonnet::get_requestor_ip($r);
       my ($blocked,$blocktext) =
           &Apache::loncommon::blocking_status('passwd',$clientip,$user,$domain);
       if ($blocked) {
           $r->print('<p class="LC_warning">'.$blocktext.'</p>');
           if ($caller eq 'reset_by_email') {
               return 'blocked';
           } else {
               return;
           }
       }
     my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain);      my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain);
     # Check for authentication types that allow changing of the password.      # Check for authentication types that allow changing of the password.
     if ($currentauth !~ /^(unix|internal):/) {      if ($currentauth !~ /^(unix|internal):/) {
Line 1559  sub verify_and_change_password { Line 1711  sub verify_and_change_password {
             &passwordchanger($r,"<p>\n<span class='LC_error'>".              &passwordchanger($r,"<p>\n<span class='LC_error'>".
                              &mt("Authentication type for this user can not be changed by this mechanism").                               &mt("Authentication type for this user can not be changed by this mechanism").
                              "</span>\n</p>",                               "</span>\n</p>",
                               $caller,$mailtoken);                                $caller,$mailtoken,$timelimit,$extrafields);
             return 1;              return 'otherauth';
         } else {          } else {
             return;              return;
         }          }
Line 1576  sub verify_and_change_password { Line 1728  sub verify_and_change_password {
     defined($newpass2)    ){      defined($newpass2)    ){
  &passwordchanger($r,"<p>\n<span class='LC_error'>".   &passwordchanger($r,"<p>\n<span class='LC_error'>".
  &mt("One or more password fields were blank").   &mt("One or more password fields were blank").
                          "</span>\n</p>",$caller,$mailtoken);                           "</span>\n</p>",$caller,$mailtoken,$timelimit,$extrafields);
  return;          if ($caller eq 'reset_by_email') {
               return 'missingdata';
           } else {
               return;
           }
     }      }
     # Get the keys      # Get the keys
     my $lonhost = $r->dir_config('lonHostID');      my $lonhost = $r->dir_config('lonHostID');
Line 1595  sub verify_and_change_password { Line 1751  sub verify_and_change_password {
 </p>  </p>
 ENDERROR  ENDERROR
         # Probably should log an error here          # Probably should log an error here
         return 1;          if ($caller eq 'reset_by_email') {
               return 'internalerror';
           } else {
               return;
           }
     }      }
     my ($ckey,$n1key,$n2key)=split(/&/,$tmpinfo);      my ($ckey,$n1key,$n2key)=split(/&/,$tmpinfo);
     #      #
Line 1609  ENDERROR Line 1769  ENDERROR
             &passwordchanger($r,              &passwordchanger($r,
                          '<span class="LC_error">'.                           '<span class="LC_error">'.
                          &mt('Could not verify current authentication.').'  '.                           &mt('Could not verify current authentication.').'  '.
                          &mt('Please try again.').'</span>',$caller,$mailtoken);                           &mt('Please try again.').'</span>',$caller,$mailtoken,$timelimit,$extrafields);
             return 1;              return 'emptydata';
         }          }
         if ($currentpass ne $data{'temppasswd'}) {          if ($currentpass ne $data{'temppasswd'}) {
             &passwordchanger($r,              &passwordchanger($r,
                          '<span class="LC_error">'.                           '<span class="LC_error">'.
                          &mt('Could not verify current authentication.').'  '.                           &mt('Could not verify current authentication.').'  '.
                          &mt('Please try again.').'</span>',$caller,$mailtoken);                           &mt('Please try again.').'</span>',$caller,$mailtoken,$timelimit,$extrafields);
             return 1;              return 'missingtemp';
         }          }
     }       }
     if ($newpass1 ne $newpass2) {      if ($newpass1 ne $newpass2) {
  &passwordchanger($r,   &passwordchanger($r,
  '<span class="LC_warning">'.   '<span class="LC_warning">'.
  &mt('The new passwords you entered do not match.').'  '.   &mt('The new passwords you entered do not match.').'  '.
  &mt('Please try again.').'</span>',$caller,$mailtoken);   &mt('Please try again.').'</span>',$caller,$mailtoken,$timelimit,$extrafields);
  return 1;          if ($caller eq 'reset_by_email') {
               return 'mismatch';
           } else {
               return;
           }
     }      }
     if (length($newpass1) < 7) {      if ($currentauth eq 'unix:') {
  &passwordchanger($r,          if (length($newpass1) < 7) {
  '<span class="LC_warning">'.              &passwordchanger($r,
  &mt('Passwords must be a minimum of 7 characters long.').'  '.                               '<span class="LC_warning">'.
  &mt('Please try again.').'</span>',$caller,$mailtoken);                               &mt('Passwords must be a minimum of 7 characters long.').'  '.
  return 1;                               &mt('Please try again.').'</span>',$caller,$mailtoken,$timelimit,$extrafields);
               if ($caller eq 'reset_by_email') {
                   return 'length';
               } else {
                   return;
               }
           }
       } else {
           my $warning = &Apache::loncommon::check_passwd_rules($domain,$newpass1);
           if ($warning) {
               &passwordchanger($r,'<span class="LC_warning">'.
                               $warning.
                               &mt('Please try again.').'</span>',
                               $caller,$mailtoken,$timelimit,$extrafields);
               if ($caller eq 'reset_by_email') {
                   return 'rules';
               } else {
                   return;
               }
           }
     }      }
     #      #
     # Check for bad characters      # Check for bad characters
Line 1651  ENDERROR Line 1834  ENDERROR
 ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_\`abcdefghijklmnopqrstuvwxyz{|}~  ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_\`abcdefghijklmnopqrstuvwxyz{|}~
 </pre></span>  </pre></span>
 ENDERROR  ENDERROR
         &passwordchanger($r,$errormessage,$caller,$mailtoken);          &passwordchanger($r,$errormessage,$caller,$mailtoken,$timelimit,$extrafields);
         return 1;          if ($caller eq 'reset_by_email') {
               return 'badchars';
           } else {
               return;
           }
     }      }
     #       # 
     # Change the password (finally)      # Change the password (finally)
Line 1675  ENDERROR Line 1862  ENDERROR
  # error error: run in circles, scream and shout   # error error: run in circles, scream and shout
         if ($caller eq 'reset_by_email') {          if ($caller eq 'reset_by_email') {
             if (!$result) {              if (!$result) {
                 return 1;                  return 'error';
             } else {              } else {
                 return $result;                  return $result;
             }              }
         } else {          } else {
               my $feedback;
               if ($result eq 'prioruse') {
                   $feedback = &mt('Please enter a password that you have not used recently.');
               } else {
                   $feedback = &mt('Please make sure your old password was entered correctly.');
               }
             $message = &Apache::lonhtmlcommon::confirm_success(              $message = &Apache::lonhtmlcommon::confirm_success(
                 &mt("The password for user [_1] was not changed.",'<i>'.$user.'</i>').' '.&mt('Please make sure your old password was entered correctly.'),1);                  &mt("The password for user [_1] was not changed.",'<i>'.$user.'</i>').' '.$feedback,1);
             $message=&Apache::loncommon::confirmwrapper($message);              $message=&Apache::loncommon::confirmwrapper($message);
             &print_main_menu($r, $message);              &print_main_menu($r, $message);
             if (ref($ended)) {              if (ref($ended)) {
Line 1701  sub discussionchanger { Line 1894  sub discussionchanger {
     { href => '/adm/preferences?action=changediscussions',      { href => '/adm/preferences?action=changediscussions',
                 text => 'Change Discussion Preferences'});                  text => 'Change Discussion Preferences'});
     $r->print(Apache::loncommon::start_page('Change Discussion Preferences'));      $r->print(Apache::loncommon::start_page('Change Discussion Preferences'));
     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Discussion Preferences'));      $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Discussion Preferences').
                 '<div class="LC_landmark" role="main">');
     my $user       = $env{'user.name'};      my $user       = $env{'user.name'};
     my $domain     = $env{'user.domain'};      my $domain     = $env{'user.domain'};
     my %userenv = &Apache::lonnet::get      my %userenv = &Apache::lonnet::get
Line 1769  END Line 1963  END
   
     $r->print('<p class="LC_info">'.$lt{'thde'}.'</p>');      $r->print('<p class="LC_info">'.$lt{'thde'}.'</p>');
   
     $r->print(&Apache::loncommon::start_data_table());      $r->print(&Apache::loncommon::start_data_table().
                 &Apache::loncommon::start_data_table_header_row());
     $r->print(<<"END");      $r->print(<<"END");
        <tr>  
         <th>$lt{'pref'}</th>          <th>$lt{'pref'}</th>
         <th>$lt{'curr'}</th>          <th>$lt{'curr'}</th>
         <th>$lt{'actn'}?</th>          <th>$lt{'actn'}?</th>
        </tr>  
 END  END
     $r->print(&Apache::loncommon::start_data_table_row());      $r->print(&Apache::loncommon::end_data_table_header_row().
                 &Apache::loncommon::start_data_table_row());
     $r->print(<<"END");      $r->print(<<"END");
        <td>$lt{'disa'}</td>         <td>$lt{'disa'}</td>
        <td>$lt{$discdisp}</td>         <td>$lt{$discdisp}</td>
Line 1789  END Line 1983  END
        <td>$lt{'npmr'}</td>         <td>$lt{'npmr'}</td>
        <td>$lt{$discmark}</td>         <td>$lt{$discmark}</td>
        <td><label><input type="checkbox" name="discmark" /><input type="hidden" name="newmark" value="$newmark" />&nbsp;$lt{'chgt'} "$markchange"</label></td>         <td><label><input type="checkbox" name="discmark" /><input type="hidden" name="newmark" value="$newmark" />&nbsp;$lt{'chgt'} "$markchange"</label></td>
       </tr>  
 END  END
     $r->print(&Apache::loncommon::end_data_table_row().      $r->print(&Apache::loncommon::end_data_table_row().
       &Apache::loncommon::end_data_table());        &Apache::loncommon::end_data_table());
   
     $r->print('<br />'      $r->print('<br />'
              .'<input type="submit" name="sub" value="'.&mt('Save').'" />'               .'<input type="submit" name="sub" value="'.&mt('Save').'" />'
              .'</form>'               .'</form></div>'
     );      );
 }  }
                                                                                                                                                                                                                                   
Line 1931  sub author_space_settings { Line 2124  sub author_space_settings {
     my $domain     = $env{'user.domain'};      my $domain     = $env{'user.domain'};
     my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au','ca','aa']);      my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au','ca','aa']);
     if (keys(%author_roles) > 0) {      if (keys(%author_roles) > 0) {
             $r->print(Apache::loncommon::start_page('Authoring Space Settings'));          my ($showdomdefs,$js,$args,@items);
             $r->print(Apache::lonhtmlcommon::breadcrumbs('Authoring Space Settings'));          my $returnurl = &HTML::Entities::encode($env{'form.returnurl'},'"<>&\'');
             my %userenv = &Apache::lonnet::get('environment',['nocodemirror']);          if (&expanded_authoring_settings()) {
               @items = ('nocodemirror');
               if (&daxe_permitted(\%author_roles)) {
                   push(@items,'daxecollapse');
               }
               push(@items,('copyright','sourceavail'));
               $showdomdefs = 1;
               $js = &toggle_options_js();
               my $onload;
               foreach my $item (@items) {
                   $onload .= "javascript:toggleOptions(document.prefs,'$item','user_$item');"
               }
               $args = { 'add_entries' => { 'onload' => $onload } };
           }
           $r->print(Apache::loncommon::start_page('Authoring Space Settings',$js,$args));
           $r->print(Apache::lonhtmlcommon::breadcrumbs('Authoring Space Settings'));
           if ($showdomdefs) {
               my %userenv = &Apache::lonnet::get('environment',\@items);
               my %domdefs = &Apache::lonnet::get_domain_defaults($domain);
               my %staticdefaults = (
                               'nocodemirror'  => '0',
                               'daxecollapse'  => '0',
                               'copyright'     => 'default',
                               'sourceavail'   => 'closed',
               );
               my %lt = &authoring_settings_text();
               my %titles = &authoring_settings_titles();
               $r->print("<h3>$lt{'auss'}</h3>".
                         '<form name="prefs" action="/adm/preferences" method="post">'."\n".
                         '<input type="submit" value="'.$lt{'save'}.'" /><br /><hr />'."\n".
                         '<input type="hidden" name="returnurl" value="'.$returnurl.'" />'."\n".
                         '<input type="hidden" name="action" value="change_authoring_settings" />'."\n");
               foreach my $item (@items) {
                   my ($domdef,$checkeddom,$checkeduser,$domdefdisplay,$divsty,$userelem);
                   $checkeddom = ' checked="checked"';
                   $divsty = 'display:none';
                   if (exists($domdefs{$item})) {
                       $domdef = $domdefs{$item};
                   } else {
                       $domdef = $staticdefaults{$item};
                   }
                   if ($item eq 'copyright') {
                       $domdefdisplay = &Apache::loncommon::copyrightdescription($domdef);
                       $userelem = &selectbox('userchoice_'.$item,$userenv{$item},'',
                                              \&Apache::loncommon::copyrightdescription,
                                              (grep !/^priv|custom$/,(&Apache::loncommon::copyrightids)));
                   } elsif ($item eq 'sourceavail') {
                       $domdefdisplay = &Apache::loncommon::source_copyrightdescription($domdef);
                       $userelem = &selectbox('userchoice_'.$item,$userenv{$item},'',
                                              \&Apache::loncommon::source_copyrightdescription,
                                              (&Apache::loncommon::source_copyrightids));
                   } elsif (($item eq 'nocodemirror') || ($item eq 'daxecollapse')) {
                       if ($domdef) {
                           if ($item eq 'daxecollapse') {
                               $domdefdisplay = $lt{'coll'};
                           } else {
                               $domdefdisplay = $lt{'yes'};
                           }
                       } else {
                           if ($item eq 'daxecollapse') {
                               $domdefdisplay = $lt{'expa'};
                           } else {
                               $domdefdisplay = $lt{'no'};
                           }
                       }
                       my (%checked,%text);
                       $checked{'no'} = ' checked="checked"';
                       if ($userenv{$item} eq 'yes') {
                           $checked{'yes'} = $checked{'no'};
                           $checked{'no'} = '';
                       }
                       if ($item eq 'daxecollapse') {
                           %text = (
                                    yes => $lt{'coll'},
                                    no  => $lt{'expa'},
                                  );
                       } else {
                           %text = (
                                    yes => $lt{'yes'},
                                    no  => $lt{'no'},
                                  );
                       }
                       $userelem = '<span class="LC_nobreak">';
                       foreach my $choice ('yes','no') {
                           $userelem .= '<label><input type="radio" name="userchoice_'.$item.'" value="'.$choice.'"'.
                                        $checked{$choice}.' />'.$text{$choice}.'</label>&nbsp;&nbsp;&nbsp;';
                       }
                       $userelem .= '</span>';
                   }
                   if ($userenv{$item} ne '') {
                       $checkeduser = $checkeddom;
                       $checkeddom = '';
                       $divsty = 'display:inline-block';
                   }
                   $r->print(<<"END");
   <h3 class="LC_heading_3"><span class="LC_nobreak">$titles{$item}</span></h3>
   <p class="LC_nobreak">$lt{'curd'}: <span style="font-style:italic">$domdefdisplay</span></p>
   <p class="LC_nobreak">
   <label><input type="radio" name="$item" value="dom" onclick="toggleOptions(this.form,'$item','user_$item');"$checkeddom />$lt{'used'}</label>&nbsp;&nbsp;&nbsp;
   <label><input type="radio" name="$item" value="user" onclick="toggleOptions(this.form,'$item','user_$item');"$checkeduser />$lt{'usyo'}</label></p>
   <fieldset id="user_$item" style="$divsty">
   <legend style="font-weight:normal;font-style:italic;">$lt{'ousv'}</legend>
   $userelem
   </fieldset><br /><hr />
   END
               }
               $r->print('<input type="submit" value="'.$lt{'save'}.'" />'.
                         '</form>'."\n");
           } else {
             my $constchecked='';              my $constchecked='';
             if ($env{'environment.nocodemirror'}) {              if ($env{'environment.nocodemirror'}) {
                $constchecked=' checked="checked"';                 $constchecked=' checked="checked"';
Line 1941  sub author_space_settings { Line 2242  sub author_space_settings {
             my $text=&mt('By default, CodeMirror an editor with advanced functionality for editing code is activated for authors.');              my $text=&mt('By default, CodeMirror an editor with advanced functionality for editing code is activated for authors.');
             my $cmoff=&mt('Deactivate CodeMirror. This can improve performance on slow computers and accessibility.');              my $cmoff=&mt('Deactivate CodeMirror. This can improve performance on slow computers and accessibility.');
             my $change=&mt('Save');              my $change=&mt('Save');
             my $returnurl = &HTML::Entities::encode($env{'form.returnurl'},'"<>&\'');  
             $r->print(<<ENDSCREEN);              $r->print(<<ENDSCREEN);
         <form name="prefs" action="/adm/preferences" method="post">          <form name="prefs" action="/adm/preferences" method="post">
         <input type="hidden" name="returnurl" value="$returnurl" />          <input type="hidden" name="returnurl" value="$returnurl" />
Line 1951  sub author_space_settings { Line 2251  sub author_space_settings {
         <input type="submit" value="$change" />          <input type="submit" value="$change" />
         </form>          </form>
 ENDSCREEN  ENDSCREEN
           }
     }      }
 }  }
   
Line 1960  sub change_authoring_settings { Line 2261  sub change_authoring_settings {
     my $domain     = $env{'user.domain'};      my $domain     = $env{'user.domain'};
     my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au','ca','aa']);      my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au','ca','aa']);
     if (keys(%author_roles) > 0) {      if (keys(%author_roles) > 0) {
           my $message;
           if (!&expanded_authoring_settings()) {
             my %ausettings=('environment.nocodemirror' => '');              my %ausettings=('environment.nocodemirror' => '');
             if ($env{'form.cmoff'}) { $ausettings{'environment.nocodemirror'}='yes'; }              if ($env{'form.cmoff'}) { $ausettings{'environment.nocodemirror'}='yes'; }
             &Apache::lonnet::put('environment',\%ausettings);              &Apache::lonnet::put('environment',\%ausettings);
Line 1970  sub change_authoring_settings { Line 2273  sub change_authoring_settings {
             } else {              } else {
                 $status=&mt('off');                  $status=&mt('off');
             }              }
             my $message=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.&mt('Deactivate CodeMirror in Authoring Space').'</i>','<tt>'.$status.'</tt>'));              $message=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.&mt('Deactivate CodeMirror in Authoring Space').'</i>','<tt>'.$status.'</tt>'));
             $message=&Apache::loncommon::confirmwrapper($message);              $message=&Apache::loncommon::confirmwrapper($message);
             if ($env{'form.returnurl'}) {          } else {
                 &do_redirect($r,$env{'form.returnurl'},$message);              my @items = ('nocodemirror');
               if (&daxe_permitted(\%author_roles)) {
                   push(@items,'daxecollapse');
               }
               push(@items,('copyright','sourceavail'));
               my %oldsettings = &Apache::lonnet::get('environment',\@items);
               my %domdefs = &Apache::lonnet::get_domain_defaults($domain);
               my %lt = &authoring_settings_text();
               my %titles = &authoring_settings_titles();
               my ($result,%newsettings,%changes,@delete,@unchanged,@delerrors,@adderrors);
               foreach my $item (@items) {
                   if ($env{'form.'.$item} eq 'dom') {
                       if ($oldsettings{$item} eq '') {
                           push(@unchanged,$item);
                       } else {
                           push(@delete,$item);
                       }
                   } elsif ($env{'form.'.$item} eq 'user') {
                       my $newval = $env{'form.userchoice_'.$item};
                       my @possibles;
                       if (($item eq 'nocodemirror') || ($item eq 'daxecollapse')) {
                           if ($newval =~ /^yes|no$/) {
                               $newsettings{$item} = $newval;
                           }
                       } elsif ($item eq 'copyright') {
                           @possibles = (grep !/^priv|custom$/,(&Apache::loncommon::copyrightids));
                           if (grep(/^\Q$newval\E$/,@possibles)) {
                               $newsettings{$item} = $newval;
                           }
                       } elsif ($item eq 'sourceavail') {
                           @possibles = (&Apache::loncommon::source_copyrightids);
                           if (grep(/^\Q$newval\E$/,@possibles)) {
                               $newsettings{$item} = $newval;
                           }
                       }
                       if ($oldsettings{$item} eq $newsettings{$item}) {
                           push(@unchanged,$item);
                       } else {
                           $changes{$item} = $newsettings{$item};
                       }
                   }
               }
               if (@delete) {
                   if (&Apache::lonnet::del('environment',\@delete) eq 'ok') {
                       foreach my $key (@delete) {
                           &Apache::lonnet::delenv('environment.'.$key);
                       }
                   } else {
                       @delerrors = @delete;
                   }
               }
               if (keys(%changes)) {
                   if (&Apache::lonnet::put('environment',\%changes) eq 'ok') {
                       my %newenvhash;
                       map {$newenvhash{'environment.'.$_} = $changes{$_}; } (keys(%changes));
                       &Apache::lonnet::appenv(\%newenvhash);
                   } else {
                       foreach my $item (@items) {
                           if (exists($changes{$item})) {
                               push(@adderrors,$item);
                           }
                       }
                   }
               }
               if (@adderrors) {
                   $result = &mt('An error occurred when saving user-specific settings for').': '.
                             join(', ', map { $titles{$_} } @adderrors);
                   $message = &Apache::loncommon::confirmwrapper(&Apache::lonhtmlcommon::confirm_success($result,1));
               } elsif (keys(%changes)) {
                   $result = &mt('User-specific settings saved:').'<ul>';
                   foreach my $item (@items) {
                       next unless (exists($changes{$item}));
                       my $value = $changes{$item};
                       if ($item eq 'nocodemirror') {
                           $value = $lt{$changes{$item}};
                       } elsif ($item eq 'daxecollapse') {
                           if ($value eq 'yes') {
                               $value = $lt{'coll'};
                           } else {
                               $value = $lt{'expa'};
                           }
                       } elsif ($item eq 'copyright') {
                           $value = &Apache::loncommon::copyrightdescription($changes{$item});
                       } elsif ($item eq 'sourceavail') {
                           $value = &Apache::loncommon::source_copyrightdescription($changes{$item});
                       }
                       $result .= '<li>'.
                                  &mt('[_1] set to [_2]',
                                      $titles{$item},
                                      '<span style="font-style:italic">'.$value.'</span>').
                                  '</li>';
                   }
                   $result .= '</ul>';
                   $message = &Apache::loncommon::confirmwrapper(&Apache::lonhtmlcommon::confirm_success($result));
               }
               if (@delerrors) {
                   $result = &mt('An error occurred when deleting user-specific settings for').':<ul><li>'.
                             join('</li><li>', map { $titles{$_} } @delerrors).'</li></ul>';
                   $message .= &Apache::loncommon::confirmwrapper(&Apache::lonhtmlcommon::confirm_success($result,1));
               } elsif (@delete) {
                   $result = &mt('Set use of domain default for').':<ul><li>'.
                             join('</li><li>', map { $titles{$_} } @delete).'</li></ul>';
                   $message .= &Apache::loncommon::confirmwrapper(&Apache::lonhtmlcommon::confirm_success($result));
               }
               if (@unchanged) {
                   $result = &mt('No changes made for').':<ul><li>'.
                             join('</li><li>', map { $titles{$_} } @unchanged).'</li></ul>';
                   $message .= &Apache::loncommon::confirmwrapper(&Apache::lonhtmlcommon::confirm_success($result));
               }
           }
           if ($env{'form.returnurl'}) {
               &do_redirect($r,$env{'form.returnurl'},$message);
           } else {
               &print_main_menu($r,$message);
           }
       }
   }
   
   sub authoring_settings_text {
       return &Apache::lonlocal::texthash(
                  'auss' => 'Authoring Space Settings',
                  'used' => 'Use domain default',
                  'usyo' => 'Use your own user-specific setting',
                  'curd' => 'Current domain default is',
                  'ousv' => 'Own user-specific value',
                  'save' => 'Save',
                  'yes'  => 'Deactivated',
                  'no'   => 'Activated',
                  'expa' => 'Start Expanded',
                  'coll' => 'Start Collapsed',
        );
   }
   
   sub authoring_settings_titles {
       return &Apache::lonlocal::texthash(
                  'nocodemirror' => 'CodeMirror for EditXML editor',
                  'daxecollapse' => 'Daxe editor: collapsible standard LON-CAPA menus',
                  'copyright'    => 'Default Copyright/Distribution in new metadata file',
                  'sourceavail'  => 'Default Source Available in new metadata file',
       );
   }
   
   sub expanded_authoring_settings {
       my $reqdmajor = 2;
       my $reqdminor = 12;
       my $loncaparev = &Apache::lonnet::get_server_loncaparev($env{'user.domain'},$env{'user.home'});
       my ($major,$minor) = ($loncaparev =~ /^\'?(\d+)\.(\d+)\.[\w.\-]+\'?$/);
       unless (($major eq '' && $minor eq '') ||
               ($reqdmajor > $major) || (($reqdmajor == $major) && ($reqdminor > $minor))) {
           return 1;
       }
       return;
   }
   
   sub daxe_permitted {
       my ($aurolesref) = @_;
       my $hasdaxe;
       if (ref($aurolesref) eq 'HASH') {
           my %editors;
           foreach my $key (keys(%{$aurolesref})) {
               if ($key =~ /^:$LONCAPA::match_domain:au$/) {
                   if (exists($env{'environment.editors'})) {
                       if (grep(/^daxe$/,split(/,/,$env{'environment.editors'}))) {
                           $hasdaxe = 1;
                           last;
                       }
                   }
             } else {              } else {
                 &print_main_menu($r,$message);                  my ($auname,$audom) = ($key =~ /^($LONCAPA::match_username):($LONCAPA::match_domain):(ca|aa)$/);
                   if (exists($env{"environment.internal.editors./$audom/$auname"})) {
                       if (grep(/^daxe$/,split(/,/,$env{"environment.internal.editors./$audom/$auname"}))) {
                           $hasdaxe = 1;
                           last;
                       }
                   }
             }              }
           }
     }      }
       return $hasdaxe;
 }  }
   
 sub lockednameschanger {  sub lockednameschanger {
     my $r = shift;      my $r = shift;
     &Apache::lonhtmlcommon::add_breadcrumb(  
             {   href => '/adm/preferences?action=changelockednames',  
                 text => 'Automatic name changes'});  
     $r->print(Apache::loncommon::start_page('Automatic name changes'));  
     $r->print(Apache::lonhtmlcommon::breadcrumbs('Allow/disallow name updates'));  
     my %userenv = &Apache::lonnet::get('environment',['lockedname']);      my %userenv = &Apache::lonnet::get('environment',['lockedname']);
     my $lockedname='';      my $lockedname='';
       my $ended;
     if (&can_toggle_namelocking()) {      if (&can_toggle_namelocking()) {
         if ($userenv{'lockedname'}) {          if ($userenv{'lockedname'}) {
             $lockedname = ' checked="checked"';              $lockedname = ' checked="checked"';
Line 2006  sub lockednameschanger { Line 2479  sub lockednameschanger {
             }              }
         }          }
         if (keys(%updateable)) {          if (keys(%updateable)) {
               &Apache::lonhtmlcommon::add_breadcrumb(
                   {   href => '/adm/preferences?action=changelockednames',
                       text => 'Automatic name changes'});
               $r->print(Apache::loncommon::start_page('Automatic name changes'));
               $r->print(Apache::lonhtmlcommon::breadcrumbs('Allow/disallow name updates'));
             my %longnames = &Apache::lonlocal::texthash (              my %longnames = &Apache::lonlocal::texthash (
                                 firstname  => 'First Name',                                  firstname  => 'First Name',
                                 middlename => 'Middle Name',                                  middlename => 'Middle Name',
Line 2032  ENDSCREEN Line 2510  ENDSCREEN
         } else {          } else {
             my $message = &mt('Based on your institutional affiliation no name information is automatically updated for your LON-CAPA account.');              my $message = &mt('Based on your institutional affiliation no name information is automatically updated for your LON-CAPA account.');
             &print_main_menu($r,$message);              &print_main_menu($r,$message);
               $ended = 1;
         }          }
     } else {      } else {
         my $message = &mt('You are not permitted to set a user preference for automatic name updates for your LON-CAPA account.');          my $message = &mt('You are not permitted to set a user preference for automatic name updates for your LON-CAPA account.');
         &print_main_menu($r,$message);          &print_main_menu($r,$message);
           $ended = 1;
     }      }
       return $ended;
 }  }
   
 sub verify_and_change_lockednames {  sub verify_and_change_lockednames {
Line 2067  sub verify_and_change_lockednames { Line 2548  sub verify_and_change_lockednames {
     &print_main_menu($r,$message);      &print_main_menu($r,$message);
 }  }
   
   sub timezonechanger {
       my $r = shift;
       my $uname = $env{'user.name'};
       my $udom = $env{'user.domain'};
       if (&Apache::lonnet::usertools_access($uname,$udom,'timezone')) {
           my $js = &toggle_options_js();
           my %loaditems = (
                              onload => "javascript:toggleOptions(document.prefs,'settimezone','LC_timezone_selector');",
                           );
           my $args = { 'add_entries' => \%loaditems };
           &Apache::lonhtmlcommon::add_breadcrumb(
                   {   href => '/adm/preferences?action=',
                       text => 'Set Your Time Zone'});
           $r->print(Apache::loncommon::start_page('Set Your Time Zone',$js,$args));
           $r->print(Apache::lonhtmlcommon::breadcrumbs('Set Your Time Zone').
                     '<div class="LC_landmark" role="main">');
           my %userenv = &Apache::lonnet::get('environment',['timezone']);
           my $timezone = $userenv{'timezone'};
           my %lt = &Apache::lonlocal::texthash(
                        tztu  => 'Time Zone in use',
                        lctz  => 'Use Time Zone set by LON-CAPA',
                        owntz => 'Use Time Zone set by you',
                        save  => 'Save',
           );
           my (%checked,$tzsty);
           if ($userenv{'timezone'} ne '') {
               $checked{'owntz'} = ' checked="checked"';
               $tzsty = 'inline-block';
           } else {
               $checked{'lctz'} = ' checked="checked"';
               $tzsty = 'none';
           }
           my $onclick = ' onclick="javascript:toggleOptions(this.form,'."'settimezone','LC_timezone_selector'".');"';
           my $selector = &Apache::loncommon::select_timezone('timezone',$timezone,undef,1);
           $r->print(<<"END");
   <form name="prefs" action="/adm/preferences" method="post">
   <input type="hidden" name="action" value="verify_and_change_timezone" />
   <fieldset style="display:inline; padding: 5px;"><legend>$lt{'tztu'}</legend>
   <span class="LC_nobreak">
   <label><input type="radio" name="settimezone" value="0"$checked{'lctz'}$onclick />
   $lt{'lctz'}</label></span><br />
   <span class="LC_nobreak">
   <label><input type="radio" name="settimezone" value="1"$checked{'owntz'}$onclick />
   $lt{'owntz'}</label></span><div style="display:$tzsty" id="LC_timezone_selector">&nbsp;
   $selector
   </div></fieldset><p>
   <input type="submit" value="$lt{'save'}" />
   </p></form></div>
   END
       }
       return;
   }
   
   sub verify_and_change_timezone {
       my $r = shift;
       my $currtimezone = $env{'environment.timezone'};
       my $newtimezone;
       if ($env{'form.settimezone'}) {
           $newtimezone = $env{'form.timezone'};
           if (DateTime::TimeZone->is_valid_name($env{'form.timezone'})) {
               $newtimezone = $env{'form.timezone'};
           }
       }
       my $message='';
       if ($newtimezone) {
           if ($newtimezone eq $currtimezone) {
               $message = &mt('Time Zone settings unchanged');
           } else {
               &Apache::lonnet::put('environment',{'timezone' => $newtimezone});
               &Apache::lonnet::appenv({'environment.timezone' => $newtimezone});
               $message=&Apache::lonhtmlcommon::confirm_success(
                   &mt('Set [_1] to [_2]',
                       '<i>'.&mt('Your Time Zone').'</i>',
                       '<tt>"'.$newtimezone.'"</tt>.')).
                  '<br />';
           }
       } elsif ($currtimezone) {
           &Apache::lonnet::del('environment',['timezone']);
           &Apache::lonnet::delenv('environment.timezone');
           $message=&Apache::lonhtmlcommon::confirm_success(&mt('Time Zone now set by LON-CAPA'));
       } else {
           $message = &mt('Time Zone settings unchanged');
       }
       $message=&Apache::loncommon::confirmwrapper($message);
       &print_main_menu($r,$message);
       return;
   }
   
 sub print_main_menu {  sub print_main_menu {
     my ($r, $message) = @_;      my ($r, $message) = @_;
     # Determine current authentication method      # Determine current authentication method
Line 2081  my %permissions; Line 2650  my %permissions;
 if (&Apache::lonnet::usertools_access($user,$domain,'aboutme')) {  if (&Apache::lonnet::usertools_access($user,$domain,'aboutme')) {
     $permissions{'aboutme'} = 'F';      $permissions{'aboutme'} = 'F';
 }  }
   if (&Apache::lonnet::usertools_access($user,$domain,'timezone')) {
       $permissions{'timezone'} = 'F';
   }
   my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au']);
   my %author_coauthor_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au','ca','aa']);
 my @menu=  my @menu=
     ({ categorytitle=>'Personal Data',      ({ categorytitle=>'Personal Data',
  items =>[   items =>[
Line 2089  my @menu= Line 2663  my @menu=
  permission => $permissions{'aboutme'},   permission => $permissions{'aboutme'},
  #help => 'Prefs_About_Me',   #help => 'Prefs_About_Me',
  icon => 'system-users.png',   icon => 'system-users.png',
                   alttext => 'About Me Icon',
  linktitle => 'Edit information about yourself that should be displayed on your public profile.'   linktitle => 'Edit information about yourself that should be displayed on your public profile.'
     },      },
     { linktext => 'Screen Name',      { linktext => 'Screen Name',
Line 2096  my @menu= Line 2671  my @menu=
  permission => 'F',   permission => 'F',
  #help => 'Prefs_Screen_Name_Nickname',   #help => 'Prefs_Screen_Name_Nickname',
  icon => 'preferences-desktop-font.png',   icon => 'preferences-desktop-font.png',
                   alttext => 'Nickname Icon',
  linktitle => 'Change the name that is displayed in your posts.'   linktitle => 'Change the name that is displayed in your posts.'
     },      },
  ]   ]
Line 2107  my @menu= Line 2683  my @menu=
  permission => 'F',   permission => 'F',
  #help => 'Prefs_Language',   #help => 'Prefs_Language',
  icon => 'preferences-desktop-locale.png',   icon => 'preferences-desktop-locale.png',
                   alttext => 'Language Icon',
  linktitle => 'Choose the default language for this user.'   linktitle => 'Choose the default language for this user.'
     },      },
     { linktext => $role.' Page',      { linktext => $role.' Page',
Line 2114  my @menu= Line 2691  my @menu=
  permission => 'F',   permission => 'F',
  #help => '',   #help => '',
  icon => 'role_hotlist.png',   icon => 'role_hotlist.png',
                   alttext => 'Switch Role Icon',
  linktitle => 'Configure the roles hotlist.'   linktitle => 'Configure the roles hotlist.'
     },      },
     { linktext => 'Math display settings',      { linktext => 'Math display settings',
Line 2121  my @menu= Line 2699  my @menu=
  permission => 'F',   permission => 'F',
  #help => '',   #help => '',
  icon => 'dismath.png',   icon => 'dismath.png',
                   alttext => 'Math Icon',
  linktitle => 'Change how math is displayed.'   linktitle => 'Change how math is displayed.'
     },      },
               {
                   linktext => 'Time Zone',
                   url => '/adm/preferences?action=changetimezone',
                   permission => $permissions{'timezone'},
                   #help => '',
                   icon => 'timezone.png',
                   alttext => 'Clock Icon',
                   linktitle => 'Set your time zone.',
                }
  ]   ]
     },      },
     { categorytitle=>'Page Display Settings',      { categorytitle=>'Page Display Settings',
Line 2132  my @menu= Line 2720  my @menu=
  permission => 'F',   permission => 'F',
  #help => 'Change_Colors',   #help => 'Change_Colors',
  icon => 'preferences-desktop-theme.png',   icon => 'preferences-desktop-theme.png',
                   alttext => 'Colors Icon',
  linktitle => 'Change LON-CAPA default colors.'   linktitle => 'Change LON-CAPA default colors.'
     },      },
             {   linktext => 'Menu Display',              {   linktext => 'Menu Display',
Line 2139  my @menu= Line 2728  my @menu=
                 permission => 'F',                  permission => 'F',
                 #help => '',                  #help => '',
                 icon => 'preferences-system-windows.png',                  icon => 'preferences-system-windows.png',
                   alttext => 'Menus Icon',
                 linktitle => 'Change whether the menus are displayed with icons or icons and text.'                  linktitle => 'Change whether the menus are displayed with icons or icons and text.'
             }              }
  ]   ]
Line 2150  my @menu= Line 2740  my @menu=
  permission => 'F',   permission => 'F',
  #help => 'Prefs_Messages',   #help => 'Prefs_Messages',
  icon => 'mail-reply-all.png',   icon => 'mail-reply-all.png',
                   alttext => 'Notifications Icon',
  linktitle => 'Change messageforwarding or notifications settings.'   linktitle => 'Change messageforwarding or notifications settings.'
     },      },
     { linktext => 'Discussion Display',      { linktext => 'Discussion Display',
Line 2157  my @menu= Line 2748  my @menu=
  permission => 'F',   permission => 'F',
  #help => 'Change_Discussion_Display',   #help => 'Change_Discussion_Display',
  icon => 'chat.png',   icon => 'chat.png',
                   alttext => 'Discussions Icon',
  linktitle => 'Set display preferences for discussion posts for both discussion boards and individual resources in all your courses.'   linktitle => 'Set display preferences for discussion posts for both discussion boards and individual resources in all your courses.'
     },      },
  ]   ]
     },      },
       );
   if (keys(%author_coauthor_roles) > 0) {
       push(@menu,
       {    categorytitle=>'Authoring Settings',
            items => [
                {
                     linktext => 'Authoring Space Configuration',
                     url => '/adm/preferences?action=authorsettings',
                     permission => 'F',
                     icon => 'codemirror.png',
                     alttext => 'Coding Icon',
                     linktitle => 'Settings for your authoring space.',
                },
                     ]
       },
       );
       if (keys(%author_roles) > 0) {
           push(@{ $menu[4]->{items} }, {
           linktext => 'Restrict Domain Coordinator Access',
           url => '/adm/preferences?action=changedomcoord',
           permission => 'F',
           #help => '',
           icon => 'system-lock-screen.png',
           alttext => 'Lock Icon',
           linktitle => 'Restrict domain coordinator access.',
           });
       }
   }
   push(@menu,
     { categorytitle=>'Other',      { categorytitle=>'Other',
  items =>[   items =>[
     { linktext => 'Register Response Devices (&quot;Clickers&quot;)',      { linktext => 'Register Response Devices (&quot;Clickers&quot;)',
Line 2168  my @menu= Line 2789  my @menu=
  permission => 'F',   permission => 'F',
  #help => '',   #help => '',
  icon => 'network-workgroup.png',   icon => 'network-workgroup.png',
                   alttext => 'Clicker Icon',
  linktitle => 'Register your clicker.'   linktitle => 'Register your clicker.'
     },      },
  ]   ]
     },      },
     );  );
   
     if ($currentauth =~ /^(unix|internal):/) {      if ($currentauth =~ /^(unix|internal):/) {
 push(@{ $menu[0]->{items} }, {          push(@{ $menu[0]->{items} }, {
  linktext => 'Password',   linktext => 'Password',
  url => '/adm/preferences?action=changepass',   url => '/adm/preferences?action=changepass',
  permission => 'F',   permission => 'F',
  #help => 'Change_Password',   #help => 'Change_Password',
  icon => 'emblem-readonly.png',   icon => 'emblem-readonly.png',
           alttext => 'Secure Icon',
  linktitle => 'Change your password.',   linktitle => 'Change your password.',
  });   });
     }      }
Line 2192  push(@{ $menu[0]->{items} }, { Line 2815  push(@{ $menu[0]->{items} }, {
         permission => 'F',          permission => 'F',
         #help => '',          #help => '',
         icon => 'system-lock-screen.png',          icon => 'system-lock-screen.png',
           alttext => 'Screen Lock Icon',
         linktitle => 'Allow/disallow propagation of name changes from institutional directory service',          linktitle => 'Allow/disallow propagation of name changes from institutional directory service',
         });          });
     }      }
   
     my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au']);  
     if (keys(%author_roles) > 0) {  
 push(@{ $menu[4]->{items} }, {  
  linktext => 'Restrict Domain Coordinator Access',  
  url => '/adm/preferences?action=changedomcoord',  
  permission => 'F',  
  #help => '',  
  icon => 'system-lock-screen.png',  
  linktitle => 'Restrict domain coordinator access.',  
  });  
     }  
   
     if (&Apache::lonnet::allowed('whn',$env{'request.course.id'})      if (&Apache::lonnet::allowed('whn',$env{'request.course.id'})
  || &Apache::lonnet::allowed('whn',$env{'request.course.id'}.'/'   || &Apache::lonnet::allowed('whn',$env{'request.course.id'}.'/'
     .$env{'request.course.sec'})) {      .$env{'request.course.sec'})) {
 push(@{ $menu[4]->{items} }, {  push(@{ $menu[-1]->{items} }, {
  linktext => 'Course Initialization',   linktext => 'Course Initialization',
  url => '/adm/preferences?action=changecourseinit',   url => '/adm/preferences?action=changecourseinit',
  permission => 'F',   permission => 'F',
  #help => '',   #help => '',
  icon => 'course_ini.png',   icon => 'course_ini.png',
           alttext => 'Course Launch Icon',
  linktitle => 'Set the default page to be displayed when you select a course role.',   linktitle => 'Set the default page to be displayed when you select a course role.',
  });   });
   
     }      }
   
     my %author_coauthor_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au','ca','aa']);  
     if (keys(%author_coauthor_roles) > 0) {  
         push(@{ $menu[4]->{items} }, {  
             linktext => 'Authoring Space Configuration',  
             url => '/adm/preferences?action=authorsettings',  
             permission => 'F',  
             icon => 'codemirror.png',  
             linktitle => 'Settings for your authoring space.',  
         });  
     }  
   
     if (&can_toggle_debug()) {      if (&can_toggle_debug()) {
 push(@{ $menu[4]->{items} }, {  push(@{ $menu[-1]->{items} }, {
  linktext => 'Toggle Debug Messages (Currently '.($env{'user.debug'} ? 'on)' : 'off)'),   linktext => 'Toggle Debug Messages (Currently '.($env{'user.debug'} ? 'on)' : 'off)'),
  url => '/adm/preferences?action=debugtoggle',   url => '/adm/preferences?action=debugtoggle',
  permission => 'F',   permission => 'F',
  #help => '',   #help => '',
  icon => 'blog.png',   icon => 'blog.png',
           alttext => 'Debugging Icon',
  linktitle => 'Toggle Debug Messages.',   linktitle => 'Toggle Debug Messages.',
  });   });
     }      }
   
     $r->print(&Apache::loncommon::start_page('My Space'));      $r->print(&Apache::loncommon::start_page('My Space'));
     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Preferences'));      $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Preferences'));
     $r->print($message);      $r->print('<div class="LC_landmark" role="main">'."\n".$message);
     $r->print(Apache::lonhtmlcommon::generate_menu(@menu));      $r->print(Apache::lonhtmlcommon::generate_menu(@menu)."\n".'</div>');
     $r->print(Apache::loncommon::end_page());      $r->print(Apache::loncommon::end_page());
 }  }
   
Line 2289  sub handler { Line 2892  sub handler {
     } else {      } else {
         $brlink ='/adm/preferences';          $brlink ='/adm/preferences';
         $brtxt = 'Set User Preferences';          $brtxt = 'Set User Preferences';
         $brhelp = 'Prefs_About_Me,Prefs_Language,Prefs_Screen_Name_Nickname,Change_Colors,Change_Password,Prefs_Messages,Change_Discussion_Display';             $brhelp = 'Prefs_About_Me,Prefs_Language,Prefs_Screen_Name_Nickname,Change_Colors,Change_Password,Prefs_Messages,Change_Discussion_Display';
     }      }
     Apache::lonhtmlcommon::add_breadcrumb      Apache::lonhtmlcommon::add_breadcrumb
         ({href => $brlink,          ({href => $brlink,
Line 2301  sub handler { Line 2904  sub handler {
     }elsif($env{'form.action'} eq 'changepass'){      }elsif($env{'form.action'} eq 'changepass'){
         &passwordchanger($r);          &passwordchanger($r);
     }elsif($env{'form.action'} eq 'verify_and_change_pass'){      }elsif($env{'form.action'} eq 'verify_and_change_pass'){
         &verify_and_change_password($r,'preferences','',\$ended);          &verify_and_change_password($r,'preferences','','','',\$ended);
     }elsif($env{'form.action'} eq 'changescreenname'){      }elsif($env{'form.action'} eq 'changescreenname'){
         &screennamechanger($r);          &screennamechanger($r);
     }elsif($env{'form.action'} eq 'verify_and_change_screenname'){      }elsif($env{'form.action'} eq 'verify_and_change_screenname'){
Line 2377  sub handler { Line 2980  sub handler {
  &print_main_menu($r);   &print_main_menu($r);
         $ended = 1;          $ended = 1;
     } elsif ($env{'form.action'} eq 'changelockednames') {      } elsif ($env{'form.action'} eq 'changelockednames') {
         &lockednameschanger($r);          $ended = &lockednameschanger($r);
     } elsif ($env{'form.action'} eq 'verify_and_change_lockednames') {      } elsif ($env{'form.action'} eq 'verify_and_change_lockednames') {
         &verify_and_change_lockednames($r);          &verify_and_change_lockednames($r);
         $ended = 1;          $ended = 1;
       } elsif ($env{'form.action'} eq 'changetimezone') {
           &timezonechanger($r);
       } elsif ($env{'form.action'} eq 'verify_and_change_timezone') {
           &verify_and_change_timezone($r);
     }      }
   
     # Properly end the HTML page of all preference pages      # Properly end the HTML page of all preference pages
Line 2462  sub updateable_userinfo { Line 3069  sub updateable_userinfo {
 sub do_redirect {  sub do_redirect {
     my ($r,$url,$msg) = @_;      my ($r,$url,$msg) = @_;
     $r->print(      $r->print(
         &Apache::loncommon::start_page('Switching Server ...',undef,          &Apache::loncommon::start_page('Loading ...',undef,
                                        {'redirect'       => [0.5,$url]}).                                         {'redirect'       => [2,$url]}).
         '<div style="padding:0;clear:both;margin:0;border:0"></div>'."\n".          '<div style="padding:0;clear:both;margin:0;border:0"></div>'."\n".
         "$msg\n".          "$msg\n".
         &Apache::loncommon::end_page());          &Apache::loncommon::end_page());
     return;      return;
 }  }
   
   sub toggle_options_js {
       return <<"ENDSCRIPT";
   <script type="text/javascript">
   // <![CDATA[
   function toggleOptions(form,radioname,divid) {
       var num = form.elements[radioname].length;
       if (num) {
           var setvis = '';
           var onvalue = 'user';
           if (radioname == 'settimezone') {
               onvalue = '1';
           }
           for (var i=0; i<num; i++) {
               if (form.elements[radioname][i].checked) {
                   if (form.elements[radioname][i].value == onvalue) {
                       if (document.getElementById(divid)) {
                           document.getElementById(divid).style.display = 'inline-block';
                       }
                       setvis = 1;
                   }
                   break;
               }
           }
           if (!setvis) {
               if (document.getElementById(divid)) {
                   document.getElementById(divid).style.display = 'none';
               }
           }
       }
       return;
   }
   // ]]>
   </script>
   ENDSCRIPT
   }
   
   sub selectbox {
       my ($name,$value,$readonly,$functionref,@idlist)=@_;
       my $selout = '<select name="'.$name.'">';
       foreach my $id (@idlist) {
           $selout.='<option value="'.$id.'"';
           if ($id eq $value) {
               $selout.=' selected="selected"';
           }
           if ($readonly) {
               $selout .= ' disabled="disabled"';
           }
           $selout.='>'.&{$functionref}($id).'</option>';
       }
       $selout.='</select>';
       return $selout;
   }
   
 1;  1;
 __END__  __END__

Removed from v.1.230  
changed lines
  Added in v.1.248


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