[BACK]Return to lonpreferences.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonpreferences.pm between versions 1.164 and 1.179.2.1

version 1.164, 2009/05/27 17:14:56 version 1.179.2.1, 2009/12/07 04:23:32
Line 42  use Apache::loncommon(); Line 42  use Apache::loncommon();
 use Apache::lonhtmlcommon();  use Apache::lonhtmlcommon();
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::lonnet;  use Apache::lonnet;
   use LONCAPA::lonauthcgi();
 use LONCAPA();  use LONCAPA();
   
 #  #
Line 165  sub languagechanger { Line 166  sub languagechanger {
                = &Apache::loncommon::plainlanguagedescription($_);                 = &Apache::loncommon::plainlanguagedescription($_);
  }   }
     }      }
     my $selectionbox=&Apache::loncommon::select_form($language,'language',      my $selectionbox=
      %langchoices);             &Apache::loncommon::select_form(
                  $language,
                  'language',
                  &Apache::lonlocal::texthash(%langchoices));
     $r->print(<<ENDLSCREEN);      $r->print(<<ENDLSCREEN);
 <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_languages" />  <input type="hidden" name="action" value="verify_and_change_languages" />
Line 205  sub texenginechanger { Line 209  sub texenginechanger {
     my $r = shift;      my $r = shift;
     Apache::lonhtmlcommon::add_breadcrumb(      Apache::lonhtmlcommon::add_breadcrumb(
     { href => '/adm/preferences?action=changetexenginepref',      { href => '/adm/preferences?action=changetexenginepref',
                 text => 'Change How Math Equations Are Displayed'});                  text => 'Math display settings'});
     $r->print(Apache::loncommon::start_page('Content Display Settings'));      $r->print(Apache::loncommon::start_page('Content Display Settings'));
     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change How Math Equations Are Displayed'));      $r->print(Apache::lonhtmlcommon::breadcrumbs('Math display settings'));
     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('environment',['texengine']);      my %userenv = &Apache::lonnet::get('environment',['texengine']);
Line 217  sub texenginechanger { Line 221  sub texenginechanger {
      'tth' => 'tth (TeX to HTML)',       'tth' => 'tth (TeX to HTML)',
      #'ttm' => 'TeX to MathML',       #'ttm' => 'TeX to MathML',
      'jsMath' => 'jsMath',       'jsMath' => 'jsMath',
      'mimetex' => 'mimetex (Convert to Images)'       'mimetex' => 'mimetex (Convert to Images)',
                        'raw' => 'Raw (Screen Reader)'
                      );                       );
     my $selectionbox=&Apache::loncommon::select_form($texengine,'texengine',      my $selectionbox=
      %mathchoices);             &Apache::loncommon::select_form(
                  $texengine,
                  'texengine',
                  &Apache::lonlocal::texthash(%mathchoices));
     my $jsMath_start=&Apache::lontexconvert::jsMath_header();      my $jsMath_start=&Apache::lontexconvert::jsMath_header();
     my %lt=&Apache::lonlocal::texthash(      my %lt=&Apache::lonlocal::texthash(
       'headline' => 'Change Math Preferences',        'headline' => 'Change how math is displayed',
       'preftxt'  => 'Preferred method to display Math',        'preftxt'  => 'Preferred method to display math',
       'change'   => 'Save',        'change'   => 'Save',
       'exmpl'    => 'Examples',        'exmpl'    => 'Examples',
       'jsmath'   => 'jsMath:',        'jsmath'   => 'jsMath:',
Line 279  if (jsMath.nofonts == 1) { Line 287  if (jsMath.nofonts == 1) {
   
 <h3>$lt{'tth'}</h3>  <h3>$lt{'tth'}</h3>
 <p>  <p>
 <iframe src="/res/adm/pages/math_example.tex?inhibitmenu=yes&texengine=tth" width="400" height="200"></iframe>  <iframe src="/res/adm/pages/math_example.tex?inhibitmenu=yes&texengine=tth" width="400" height="220"></iframe>
 </p>  </p>
 ENDLSCREEN  ENDLSCREEN
     if ($env{'environment.texengine'} ne 'jsMath') {      if ($env{'environment.texengine'} ne 'jsMath') {
Line 777  sub msgforwardchanger { Line 785  sub msgforwardchanger {
                                           all   => 'All',                                            all   => 'All',
                                           crit  => 'Critical only',                                            crit  => 'Critical only',
                                           reg   => 'Non-critical only',                                            reg   => 'Non-critical only',
                                           foad  => 'Forwarding Address(es)',                                            foad  => 'Forward to account(s)',
                                           noti  => 'Notification E-mail Address(es)',                                             fwdm  => 'Forward messages to other account(s) in LON-CAPA',
                                             noti  => 'E-mail notification of LON-CAPA messages',
                                           foad_exmpl => 'e.g. <tt>userA:domain1,userB:domain2,...</tt>',                                            foad_exmpl => 'e.g. <tt>userA:domain1,userB:domain2,...</tt>',
                                           mnot  => 'E-mail Address(es) which should be notified about new LON-CAPA messages',                                            mnot  => 'E-mail address(es) which should be notified about new LON-CAPA messages',
  # old: 'Message Notification Email Address(es)',  
                                           mnot_exmpl => 'e.g. <tt>joe@doe.com</tt>',                                            mnot_exmpl => 'e.g. <tt>joe@doe.com</tt>',
                                           chg   => 'Save',                                            chg   => 'Save',
                                           email => 'The e-mail address entered in row ',                                            email => 'The e-mail address entered in row ',
Line 791  sub msgforwardchanger { Line 799  sub msgforwardchanger {
                                         );                                          );
     Apache::lonhtmlcommon::add_breadcrumb(      Apache::lonhtmlcommon::add_breadcrumb(
     { href => '/adm/preferences?action=changemsgforward',      { href => '/adm/preferences?action=changemsgforward',
  text => 'Change Message Forwarding/Notification'});   text => 'Messages & Notifications'});
     $r->print(Apache::loncommon::start_page('Message Management'));      $r->print(Apache::loncommon::start_page('Messages &amp; Notifications'));
     $r->print(Apache::lonhtmlcommon::breadcrumbs('Change Message Forwarding/Notification'));      $r->print(Apache::lonhtmlcommon::breadcrumbs('Messages &amp; Notifications'));
     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 859  $validatescript Line 867  $validatescript
     $r->print(<<ENDMSG);      $r->print(<<ENDMSG);
 $jscript  $jscript
 $message  $message
 <h3>$lt{'foad'} $forwardingHelp</h3>  <h3>$lt{'fwdm'} $forwardingHelp</h3>
 <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'}):  $lt{'foad'} ($lt{'foad_exmpl'}):
 <input type="text" size="40" value="$msgforward" name="msgforward" /><br />  <input type="text" size="40" value="$msgforward" name="msgforward" />
   <br /><br />
 <h3>$lt{'noti'} $notificationHelp</h3>  <h3>$lt{'noti'} $notificationHelp</h3>
 $lt{'mnot'} ($lt{'mnot_exmpl'}):<br />  $lt{'mnot'} ($lt{'mnot_exmpl'}):<br />
 ENDMSG  ENDMSG
Line 908  ENDMSG Line 917  ENDMSG
                        '<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;';                         $lt{$type}.'</label></span>'.('&nbsp;' x4);
         }          }
         my $htmlon = '';          my $htmlon = '';
         my $htmloff = '';          my $htmloff = '';
Line 920  ENDMSG Line 929  ENDMSG
         $output .= '</td><td><label><input type="radio" name="html_'.$num.          $output .= '</td><td><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;'.                     &mt('Yes').'</label>'.('&nbsp;' x3).
                    '<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'".
 ')" />'.  ')" />'.
Line 945  ENDMSG Line 954  ENDMSG
         $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;';                     $lt{$type}.'</label></span>'.('&nbsp;' x4);
     }      }
     $output .= '</td><td><label><input type="radio" name="html_'.$num.      $output .= '</td><td><label><input type="radio" name="html_'.$num.
                '" value="1" />'.&mt('Yes').'</label>&nbsp;'.                 '" value="1" />'.&mt('Yes').'</label>'.('&nbsp;' x3).
                '<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>'.                 &mt('No').'</label></td>'.
Line 1337  sub jscript_send { Line 1346  sub jscript_send {
                    this.document.client.elements.uname.value;                     this.document.client.elements.uname.value;
         this.document.pserver.elements.udom.value =          this.document.pserver.elements.udom.value =
                    this.document.client.elements.udom.options[this.document.client.elements.udom.selectedIndex].value;                     this.document.client.elements.udom.options[this.document.client.elements.udom.selectedIndex].value;
           this.document.pserver.elements.email.value =
                      this.document.client.elements.email.value;
 |;  |;
     }      }
     $ output .= qq|      $ output .= qq|
Line 1355  sub client_form { Line 1366  sub client_form {
                 'currentpass' => 'Current Password',                  'currentpass' => 'Current Password',
                 'newpass' => 'New Password',                  'newpass' => 'New Password',
                 'confirmpass' => 'Confirm Password',                  'confirmpass' => 'Confirm Password',
                 'changepass' => 'Save');                  'changepass' => 'Save',
       );
   
     my $output = '<form name="client">'      my $output = '<form name="client">'
                 .&Apache::lonhtmlcommon::start_pick_box();                  .&Apache::lonhtmlcommon::start_pick_box();
Line 1420  sub server_form { Line 1432  sub server_form {
 <input type="hidden" name="token"   value="$mailtoken" />  <input type="hidden" name="token"   value="$mailtoken" />
 <input type="hidden" name="uname"   value="" />  <input type="hidden" name="uname"   value="" />
 <input type="hidden" name="udom"   value="" />  <input type="hidden" name="udom"   value="" />
   <input type="hidden" name="email"   value="" />
   
 |;  |;
     }      }
Line 1564  ENDERROR Line 1577  ENDERROR
     # Inform the user the password has (not?) been changed      # Inform the user the password has (not?) been changed
     my $message;      my $message;
     if ($result =~ /^ok$/) {      if ($result =~ /^ok$/) {
         $message = &Apache::lonhtmlcommon::confirm_success(&mt('The password for user [_1] was successfully changed.','<i>'.$user.'<i>'));          $message = &Apache::lonhtmlcommon::confirm_success(&mt('The password for user [_1] was successfully changed.','<i>'.$user.'</i>'));
         if ($caller eq 'reset_by_email') {          if ($caller eq 'reset_by_email') {
             $r->print($message.'<br />');              $r->print($message.'<br />');
         } else {          } else {
Line 1572  ENDERROR Line 1585  ENDERROR
         }          }
     } else {      } else {
  # error error: run in circles, scream and shout   # error error: run in circles, scream and shout
         $message = &Apache::lonhtmlcommon::confirm_success(          if ($caller eq 'reset_by_email') {
           &mt("The password for user [_1] was not changed.",'<i>'.$user.'</i>').' '.&mt('Please make sure your old password was entered correctly.'),1);              if (!$result) {
         unless ($caller eq 'reset_by_email') {                  return 1;
               } else {
                   return $result;
               }
           } else {
               $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);
             $message=&Apache::loncommon::confirmwrapper($message);              $message=&Apache::loncommon::confirmwrapper($message);
             &print_main_menu($r, $message);              &print_main_menu($r, $message);
         }          }
         return 1;  
     }      }
     return;      return;
 }  }
Line 1591  sub discussionchanger { Line 1609  sub discussionchanger {
     Apache::lonhtmlcommon::add_breadcrumb(      Apache::lonhtmlcommon::add_breadcrumb(
     { href => '/adm/preferences?action=changediscussions',      { href => '/adm/preferences?action=changediscussions',
                 text => 'Change Discussion Preferences'});                  text => 'Change Discussion Preferences'});
     $r->print(Apache::loncommon::start_page('Message Management'));      $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'));
     my $user       = $env{'user.name'};      my $user       = $env{'user.name'};
     my $domain     = $env{'user.domain'};      my $domain     = $env{'user.domain'};
Line 1606  sub discussionchanger { Line 1624  sub discussionchanger {
         }          }
     }      }
     if (defined($userenv{'discmarkread'})) {      if (defined($userenv{'discmarkread'})) {
         unless ($userenv{'discdisplay'} eq '') {           unless ($userenv{'discmarkread'} eq '') { 
             $discmark = $userenv{'discmarkread'};              $discmark = $userenv{'discmarkread'};
         }          }
     }      }
Line 1650  sub discussionchanger { Line 1668  sub discussionchanger {
         $currmark = $lt{'ondisp'};          $currmark = $lt{'ondisp'};
         $newmark = 'onmark';          $newmark = 'onmark';
     }      }
       
     $r->print(<<"END");      $r->print(<<"END");
 <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_discussion" />  <input type="hidden" name="action" value="verify_and_change_discussion" />
Line 1699  sub verify_and_change_discussion { Line 1717  sub verify_and_change_discussion {
     if (defined($env{'form.discdisp'}) ) {      if (defined($env{'form.discdisp'}) ) {
         my $newdisp  = $env{'form.newdisp'};          my $newdisp  = $env{'form.newdisp'};
         if ($newdisp eq 'unread') {          if ($newdisp eq 'unread') {
             $message .=&mt('In discussions: only new posts will be displayed.').'<br />';              $message .=&Apache::lonhtmlcommon::confirm_success(&mt('In discussions: only new posts will be displayed.')).'<br />';
             &Apache::lonnet::put('environment',{'discdisplay' => $newdisp});              &Apache::lonnet::put('environment',{'discdisplay' => $newdisp});
             &Apache::lonnet::appenv({'environment.discdisplay' => $newdisp});              &Apache::lonnet::appenv({'environment.discdisplay' => $newdisp});
         } else {          } else {
             $message .= &mt('In discussions: all posts will be displayed.').'<br />';              $message .= &Apache::lonhtmlcommon::confirm_success(&mt('In discussions: all posts will be displayed.')).'<br />';
             &Apache::lonnet::del('environment',['discdisplay']);              &Apache::lonnet::del('environment',['discdisplay']);
             &Apache::lonnet::delenv('environment.discdisplay');              &Apache::lonnet::delenv('environment.discdisplay');
         }          }
Line 1865  my @menu= Line 1883  my @menu=
     },      },
     { categorytitle=>'Content Display Settings',      { categorytitle=>'Content Display Settings',
  items =>[   items =>[
     { linktext => 'Language',  
  url => '/adm/preferences?action=changelanguages',  
  permission => 'F',  
  #help => 'Prefs_Language',  
  icon => 'preferences-desktop-locale.png',  
  linktitle => 'Choose the default language for this user.'  
     },  
     { linktext => 'WYSIWYG Editor',      { linktext => 'WYSIWYG Editor',
  url => '/adm/preferences?action=changewysiwyg',   url => '/adm/preferences?action=changewysiwyg',
  permission => 'F',   permission => 'F',
Line 1879  my @menu= Line 1890  my @menu=
  icon => 'edit-select-all.png',   icon => 'edit-select-all.png',
  linktitle => 'Enable or disable the WYSIWYG-Editor.'   linktitle => 'Enable or disable the WYSIWYG-Editor.'
     },      },
     { linktext => $role.' Page',      { linktext => 'Math display settings',
  url => '/adm/preferences?action=changerolespref',  
  permission => 'F',  
  #help => '',  
  icon => 'sctr.png',  
  linktitle => 'Configure the roles hotlist.'  
     },  
     { linktext => 'Display of Scientific Equations',  
  url => '/adm/preferences?action=changetexenginepref',   url => '/adm/preferences?action=changetexenginepref',
  permission => 'F',   permission => 'F',
  #help => '',   #help => '',
  icon => 'stat.png',   icon => 'stat.png',
  linktitle => 'Change how Scientific Equations are displayed.'   linktitle => 'Change how math is displayed.'
     },      },
  ]   ]
     },      },
     { categorytitle=>'Message Management',      { categorytitle=>'Messages &amp; Notifications',
  items =>[   items =>[
     { linktext => 'Messages &amp; Notifications',      { linktext => 'Messages &amp; Notifications',
  url => '/adm/preferences?action=changemsgforward',   url => '/adm/preferences?action=changemsgforward',
Line 1914  my @menu= Line 1918  my @menu=
  ]   ]
     },      },
     { categorytitle=>'Other',      { categorytitle=>'Other',
  items =>[   items =>[]
     { linktext => 'Register Response Devices (&quot;Clickers&quot;)',  
  url => '/adm/preferences?action=changeclicker',  
  permission => 'F',  
  #help => '',  
  icon => 'network-workgroup.png',  
  linktitle => 'Register your clicker.'  
     },  
  ]  
     },      },
     );      );
   
Line 1936  push(@{ $menu[0]->{items} }, { Line 1932  push(@{ $menu[0]->{items} }, {
  linktitle => 'Change your password.',   linktitle => 'Change your password.',
  });   });
     }      }
     if ($env{'environment.remote'} eq 'off') {  
 push(@{ $menu[1]->{items} }, {  
  linktext => 'Launch Remote Control',  
  url => '/adm/remote?url=/adm/preferences?action=launch',  
  permission => 'F',  
  #help => '',  
  icon => 'network-wireless.png',  
  linktitle => 'Launch the remote control for LON-CAPA.',  
  });  
     }else{  
 push(@{ $menu[1]->{items} }, {  
  linktext => 'Collapse Remote Control',  
  url => '/adm/remote?url=/adm/preferences?action=collapse',  
  permission => 'F',  
  #help => '',  
  icon => 'network-wireless.png',  
  linktitle => 'Collapse the remote control for LON-CAPA.',  
  });  
     }  
     my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au']);      my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au']);
     if (keys(%author_roles) > 0) {      if (keys(%author_roles) > 0) {
 push(@{ $menu[4]->{items} }, {  push(@{ $menu[4]->{items} }, {
Line 1980  push(@{ $menu[4]->{items} }, { Line 1957  push(@{ $menu[4]->{items} }, {
  });   });
   
     }      }
     if ($env{'user.name'} =~ /^(albertel|fox|foxr|kortemey|korte|raeburn)$/) {      if (&can_toggle_debug()) {
 push(@{ $menu[4]->{items} }, {  push(@{ $menu[4]->{items} }, {
  linktext => 'Toggle Debug Messages (Current:'.$env{'user.debug'}.')',   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 => '',
Line 2081  sub handler { Line 2058  sub handler {
     }elsif($env{'form.action'} eq 'verify_and_change_coursepage'){      }elsif($env{'form.action'} eq 'verify_and_change_coursepage'){
         &verify_and_change_coursepage($r);          &verify_and_change_coursepage($r);
     }elsif($env{'form.action'} eq 'debugtoggle'){      }elsif($env{'form.action'} eq 'debugtoggle'){
         &toggle_debug();          if (&can_toggle_debug()) {
               &toggle_debug();
           }
  &print_main_menu($r);   &print_main_menu($r);
     }      }
   
     return OK;      # Properly end the HTML page of all preference pages
       # started in each sub routine
       # Exception: print_main_menu has its own end_page call
 }      unless (!exists $env{'form.action'} ||
 #remove when done              $env{'form.action'} eq 'debugtoggle') {
 #old handler routine          $r->print(&Apache::loncommon::end_page());
 sub handler2 {  
     my $r = shift;  
     my $user = $env{'user.name'};  
     my $domain = $env{'user.domain'};  
     &Apache::loncommon::content_type($r,'text/html');  
     # Some pages contain DES keys and should not be cached.  
     &Apache::loncommon::no_cache($r);  
     $r->send_http_header;  
     return OK if $r->header_only;  
     #  
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},  
                                    ['action','wysiwyg','returnurl','refpage']);  
     #  
     &Apache::lonhtmlcommon::clear_breadcrumbs();  
     &Apache::lonhtmlcommon::add_breadcrumb  
         ({href => '/adm/preferences',  
           text => 'Set User Preferences'});  
   
     my @Options;  
     # Determine current authentication method  
     my $currentauth=&Apache::lonnet::queryauthenticate($user,$domain);  
     if ($currentauth =~ /^(unix|internal):/) {  
         push (@Options,({ action   => 'changepass',  
                           linktext => 'Change Password',  
                           href     => '/adm/preferences',  
                           help     => 'Change_Password',  
                           subroutine => \&passwordchanger,  
                           breadcrumb =>   
                               { href => '/adm/preferences?action=changepass',  
                                 text => 'Change Password'},  
                           },  
                         { action => 'verify_and_change_pass',  
                           subroutine => \&verify_and_change_password,  
                           breadcrumb =>   
                               { href =>'/adm/preferences?action=changepass',  
                                 text => 'Change Password'},  
                           printmenu => 'not_on_error',  
                           }));  
     }  
     push (@Options,({ action   => 'changescreenname',  
                       linktext => 'Change Screen Name',  
                       href     => '/adm/preferences',  
                       help     => 'Prefs_Screen_Name_Nickname',  
                       subroutine => \&screennamechanger,  
                       breadcrumb =>   
                           { href => '/adm/preferences?action=changescreenname',  
                             text => 'Change Screen Name'},  
                       },  
                     { action   => 'verify_and_change_screenname',  
                       subroutine => \&verify_and_change_screenname,  
                       breadcrumb =>   
                           { href => '/adm/preferences?action=changescreenname',  
                             text => 'Change Screen Name'},  
                       printmenu => 'yes',  
                       }));  
   
     push (@Options,({ action   => 'changemsgforward',  
                       linktext => 'Change Message Forwarding and Notification E-mail Addresses',  
                       href     => '/adm/preferences',  
                       help     => 'Prefs_Messages',  
                       breadcrumb =>   
                           { href => '/adm/preferences?action=changemsgforward',  
                             text => 'Change Message Forwarding/Notification'},  
                       subroutine => \&msgforwardchanger,  
                       },  
                     { action => 'verify_and_change_msgforward',  
                       help   => 'Prefs_Messages',  
                       breadcrumb =>   
                           { href => '/adm/preferences?action=changemsgforward',  
                             text => 'Change Message Forwarding/Notification'},  
                       printmenu => 'yes',  
                       subroutine => \&verify_and_change_msgforward }));  
     my $aboutmeaction=  
         '/adm/'.$env{'user.domain'}.'/'.$env{'user.name'}.'/aboutme';  
     push (@Options,{ action => 'none',   
                      linktext =>  
                          q{Edit the Personal Information Page},  
      help => 'Prefs_About_Me',  
                      href => $aboutmeaction});  
     push (@Options,({ action => 'changecolors',  
                       linktext => 'Change Color Scheme',  
                       href => '/adm/preferences',  
                       help => 'Change_Colors',  
                       breadcrumb =>   
                           { href => '/adm/preferences?action=changecolors',  
                             text => 'Change Colors'},  
                       subroutine => \&colorschanger,  
                   },  
                     { action => 'verify_and_change_colors',  
                       breadcrumb =>   
                           { href => '/adm/preferences?action=changecolors',  
                             text => 'Change Colors'},  
                       printmenu => 'yes',  
                       subroutine => \&verify_and_change_colors,  
                       }));  
     push (@Options,({ action => 'changelanguages',  
                       linktext => 'Change Language Preferences',  
                       href => '/adm/preferences',  
       help => 'Prefs_Language',  
                       breadcrumb=>  
                           { href => '/adm/preferences?action=changelanguages',  
                             text => 'Change Language'},  
                       subroutine =>  \&languagechanger,  
                   },  
                     { action => 'verify_and_change_languages',  
                       breadcrumb=>  
                           {href => '/adm/preferences?action=changelanguages',  
                            text => 'Change Language'},  
                       printmenu => 'yes',  
                       subroutine=>\&verify_and_change_languages, }  
                     ));  
     push (@Options,({ action => 'changewysiwyg',  
                       linktext => 'Change WYSIWYG Editor Preferences',  
                       href => '/adm/preferences',  
                       breadcrumb =>   
                             { href => '/adm/preferences?action=changewysiwyg',  
                               text => 'Change WYSIWYG Preferences'},  
                       subroutine => \&wysiwygchanger,  
                   },  
                     { action => 'set_wysiwyg',  
                       breadcrumb =>  
                           { href => '/adm/preferences?action=changewysiwyg',  
                             text => 'Change WYSIWYG Preferences'},  
                       printmenu => 'yes',  
                       subroutine => \&verify_and_change_wysiwyg, }  
                     ));  
     push (@Options,({ action => 'changediscussions',  
                       linktext => 'Change Discussion Display Preferences',  
                       href => '/adm/preferences',  
                       help => 'Change_Discussion_Display',  
                       breadcrumb =>   
                             { href => '/adm/preferences?action=changediscussions',  
                               text => 'Change Discussion Preferences'},  
                       subroutine => \&discussionchanger,  
                   },  
                     { action => 'verify_and_change_discussion',  
                       breadcrumb =>  
                           { href => '/adm/preferences?action=changediscussions',  
                             text => 'Change Discussion Preferences'},  
                       printmenu => 'yes',  
                       subroutine => \&verify_and_change_discussion, }  
                     ));  
   
     my $role = ($env{'user.adv'} ? 'Roles' : 'Course');  
     push (@Options,({ action   => 'changerolespref',  
                       linktext => 'Change '.$role.' Page Preferences',  
                       href     => '/adm/preferences',  
                       subroutine => \&rolesprefchanger,  
                       breadcrumb =>  
                           { href => '/adm/preferences?action=changerolespref',  
                             text => 'Change '.$role.' Page Pref'},  
                       },  
                     { action   => 'verify_and_change_rolespref',  
                       subroutine => \&verify_and_change_rolespref,  
                       breadcrumb =>  
                           { href => '/adm/preferences?action=changerolespref',  
                             text => 'Change '.$role.' Page Preferences'},  
                       printmenu => 'yes',  
                       }));  
   
     push (@Options,({ action   => 'changetexenginepref',  
                       linktext => 'Change How Math Equations Are Displayed',  
                       href     => '/adm/preferences',  
                       subroutine => \&texenginechanger,  
                       breadcrumb =>  
                           { href => '/adm/preferences?action=changetexenginepref',  
                             text => 'Change Math Pref'},  
                       },  
                     { action   => 'verify_and_change_texengine',  
                       subroutine => \&verify_and_change_texengine,  
                       breadcrumb =>  
                           { href => '/adm/preferences?action=changetexenginepref',  
                             text => 'Change Math Preferences'},  
                       printmenu => 'yes',  
                       }));  
   
     if ($env{'environment.remote'} eq 'off') {  
  push (@Options,({ action => 'launch',  
   linktext => 'Launch Remote Control',  
   href => '/adm/remote?url=/adm/preferences',  
       }));  
     } else {  
  push (@Options,({ action => 'collapse',  
   linktext => 'Collapse Remote Control',  
   href => '/adm/remote?url=/adm/preferences',  
       }));  
     }  
   
     push (@Options,({ action   => 'changeicons',  
                       linktext => 'Change How Menus are Displayed',  
                       href     => '/adm/preferences',  
                       subroutine => \&iconchanger,  
                       breadcrumb =>  
                           { href => '/adm/preferences?action=changeicons',  
                             text => 'Change Main Menu'},  
                       },  
                     { action   => 'verify_and_change_icons',  
                       subroutine => \&verify_and_change_icons,  
                       breadcrumb =>  
                           { href => '/adm/preferences?action=changeicons',  
                             text => 'Change Main Menu'},  
                       printmenu => 'yes',  
                       }));  
   
     push (@Options,({ action   => 'changeclicker',  
                       linktext => 'Register Response Devices ("Clickers")',  
                       href     => '/adm/preferences',  
                       subroutine => \&clickerchanger,  
                       breadcrumb =>  
                           { href => '/adm/preferences?action=changeclicker',  
                             text => 'Register Clicker'},  
                       },  
                     { action   => 'verify_and_change_clicker',  
                       subroutine => \&verify_and_change_clicker,  
                       breadcrumb =>  
                           { href => '/adm/preferences?action=changeclicker',  
                             text => 'Register Clicker'},  
                       printmenu => 'yes',  
                       }));  
     my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au']);  
     if (keys(%author_roles) > 0) {  
       push (@Options,({ action   => 'changedomcoord',  
                         linktext => 'Restrict Domain Coordinator Access',  
                         href     => '/adm/preferences',  
                         subroutine => \&domcoordchanger,  
                         breadcrumb =>  
                             { href => '/adm/preferences?action=changedomcoord',  
                               text => 'Restrict Domain Coordinator Access'},  
                       },  
                       { action   => 'verify_and_change_domcoord',  
                         subroutine => \&verify_and_change_domcoord,  
                         breadcrumb =>  
                             { href => '/adm/preferences?action=changedomcoord',  
                               text => 'Restrict Domain Coordinator Access'},  
                         printmenu => 'yes',  
                       }));  
     }  
   
     push (@Options,({ action   => 'lockwarning',  
                       subroutine => \&lockwarning,  
                       breadcrumb =>  
                           { href => '/adm/preferences?action=lockwarning',  
                             text => 'Lock Warnings'},  
                       },  
                     { action   => 'verify_and_change_locks',  
                       subroutine => \&verify_and_change_lockwarning,  
                       breadcrumb =>  
                           { href => '/adm/preferences?action=lockwarning',  
                             text => 'Lockwarnings'},  
                       printmenu => 'yes',  
                       }));  
   
   
     if (&Apache::lonnet::allowed('whn',$env{'request.course.id'})  
  || &Apache::lonnet::allowed('whn',$env{'request.course.id'}.'/'  
     .$env{'request.course.sec'})) {  
         push (@Options,({ action => 'changecourseinit',  
                           linktext => 'Change Course Initialization Preference',  
                           href => '/adm/preferences',  
                           subroutine => \&coursedisplaychanger,  
                           breadcrumb =>  
                               { href => '/adm/preferences?action=changecourseinit',  
                                 text => 'Change Course Init. Pref.'},  
                           },  
                         { action => 'verify_and_change_coursepage',  
                           breadcrumb =>  
                           { href => '/adm/preferences?action=changecourseinit',                               text => 'Change Course Initialization Preference'},  
                         printmenu => 'yes',  
                         subroutine => \&verify_and_change_coursepage,  
                        }));  
     }  
   
     if (($env{'user.name'} =~ /^(albertel|fox|foxr|kortemey|korte|raeburn)$/)  
      && ($env{'user.domain'} =~/^(msu|gerd)$/)){  
         push (@Options,({ action => 'debugtoggle',  
                           printmenu => 'yes',  
                           subroutine => \&toggle_debug,  
                           }));  
     }  
   
     $r->print(&Apache::loncommon::start_page('Change Preferences'));  
   
     my $call = undef;  
     my $help = undef;  
     my $printmenu = 'yes';  
     foreach my $option (@Options) {  
         if ($option->{'action'} eq $env{'form.action'}) {  
             $call = $option->{'subroutine'};  
             $printmenu = $option->{'printmenu'};  
             if (exists($option->{'breadcrumb'})) {  
                 &Apache::lonhtmlcommon::add_breadcrumb  
                     ($option->{'breadcrumb'});  
             }  
     $help=$option->{'help'};  
         }  
     }  
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Change Preferences',$help));  
     my $error;  
     if (defined($call)) {  
         $error = $call->($r);  
     }  
     if ( ( ($printmenu eq 'yes')  
    || ($printmenu eq 'not_on_error' && !$error) )  
  && (!$env{'form.returnurl'})) {  
         my $optionlist = '<table cellpadding="5">';  
         if ($env{'user.name'} =~   
                          /^(albertel|kortemey|fox|foxr|korte|hallmat3|turtle|raeburn)$/  
             ) {  
             push (@Options,({ action => 'debugtoggle',  
                               linktext => 'Toggle Debug Messages',  
                               text => 'Current Debug status is -'.  
                                   $env{'user.debug'}.'-.',  
                               href => '/adm/preferences',  
                               printmenu => 'yes',  
                               subroutine => \&toggle_debug,  
                               }));  
         }  
         foreach my $option(@Options) {  
             my $optiontext = '';  
             if (exists($option->{'href'})) {  
  $option->{'href_args'}{'action'}=$option->{'action'};  
  $optiontext .=   
                     '<a href="'.&add_get_param($option->{'href'},  
        $option->{'href_args'}).'">'.  
                     &mt($option->{'linktext'}).'</a>';  
             }  
             if (exists($option->{'text'})) {  
                 $optiontext .= ' '.&mt($option->{'text'});  
             }  
             if ($optiontext ne '') {  
                 $optiontext = '<font size="+1">'.$optiontext.'</font>';   
                 my $helplink = '&nbsp;';  
                 if (exists($option->{'help'})) {  
                     $helplink = &Apache::loncommon::help_open_topic  
                                                     ($option->{'help'});  
                 }  
                 $optionlist .= '<tr>'.  
                     '<td>'.$helplink.'</td>'.  
                     '<td>'.$optiontext.'</td>'.  
                     '</tr>';  
             }  
         }  
         $optionlist .= '</table>';  
         $r->print($optionlist);  
     } elsif ($env{'form.returnurl'}) {  
  $r->print('<br /><a href="'.$env{'form.returnurl'}.'"><font size="+1">'.  
   &mt('Return').'</font></a>');  
     }      }
     $r->print(&Apache::loncommon::end_page());  
     return OK;      return OK;
 }  }
   
Line 2451  sub toggle_debug { Line 2083  sub toggle_debug {
     }      }
 }  }
   
   sub can_toggle_debug {
       my $can_toggle = 0;
       my $page = 'toggledebug';
       if (&LONCAPA::lonauthcgi::can_view($page)) {
           $can_toggle = 1;
       } elsif (&LONCAPA::lonauthcgi::check_ipbased_access($page)) {
           $can_toggle = 1;
       }
       return $can_toggle;
   }
   
 1;  1;
 __END__  __END__
Removed from v.1.164  
changed lines
  Added in v.1.179.2.1

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