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

Diff for /loncom/interface/lonpreferences.pm between versions 1.125.4.6 and 1.125.8.2

version 1.125.4.6, 2009/10/08 21:15:19 version 1.125.8.2, 2009/09/23 15:32:00
Line 1290  sub jscript_send { Line 1290  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 1374  sub server_form { Line 1372  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 1527  ENDERROR Line 1524  ENDERROR
         }          }
     } else {      } else {
  # error error: run in circles, scream and shout   # error error: run in circles, scream and shout
           $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);
         if ($caller eq 'reset_by_email') {          if ($caller eq 'reset_by_email') {
             if (!$result) {              $r->print($message.'<br />');
                 return 1;  
             } else {  
                 return $result;  
             }  
         } else {          } 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);  
             $r->print(&Apache::loncommon::confirmwrapper($message));              $r->print(&Apache::loncommon::confirmwrapper($message));
         }          }
           return 1;
     }      }
     return;      return;
 }  }
Line 1863  sub handler { Line 1857  sub handler {
                       printmenu => 'yes',                        printmenu => 'yes',
                       subroutine => \&verify_and_change_colors,                        subroutine => \&verify_and_change_colors,
                       }));                        }));
     push (@Options,({ action => 'changelanguages',      if ($env{'user.adv'}) {
                       linktext => 'Change Language Preferences',          push (@Options,({ action => 'changelanguages',
                       href => '/adm/preferences',                            linktext => 'Change Language Preferences',
       help => 'Prefs_Language',                            href => '/adm/preferences',
                       breadcrumb=>                help => 'Prefs_Language',
                           { href => '/adm/preferences?action=changelanguages',                            breadcrumb=>
                             text => 'Change Language'},                                { href => '/adm/preferences?action=changelanguages',
                       subroutine =>  \&languagechanger,                                  text => 'Change Language'},
                   },                            subroutine =>  \&languagechanger,
                     { action => 'verify_and_change_languages',                        },
                       breadcrumb=>                          { action => 'verify_and_change_languages',
                           {href => '/adm/preferences?action=changelanguages',                            breadcrumb=>
                            text => 'Change Language'},                                {href => '/adm/preferences?action=changelanguages',
                       printmenu => 'yes',                                 text => 'Change Language'},
                       subroutine=>\&verify_and_change_languages, }                            printmenu => 'yes',
                             subroutine=>\&verify_and_change_languages, }
                     ));                      ));
       }
     push (@Options,({ action => 'changewysiwyg',      push (@Options,({ action => 'changewysiwyg',
                       linktext => 'Change WYSIWYG Editor Preferences',                        linktext => 'Change WYSIWYG Editor Preferences',
                       href => '/adm/preferences',                        href => '/adm/preferences',
Line 1971  sub handler { Line 1967  sub handler {
                             text => 'Change Main Menu'},                              text => 'Change Main Menu'},
                       printmenu => 'yes',                        printmenu => 'yes',
                       }));                        }));
       if ($env{'user.adv'}) {
     push (@Options,({ action   => 'changeclicker',          push (@Options,({ action   => 'changeclicker',
                       linktext => 'Register Response Devices (&quot;Clickers&quot;)',                            linktext => 'Register Response Devices (&quot;Clickers&quot;)',
                       href     => '/adm/preferences',                            href     => '/adm/preferences',
                       subroutine => \&clickerchanger,                            subroutine => \&clickerchanger,
                       breadcrumb =>                            breadcrumb =>
                           { href => '/adm/preferences?action=changeclicker',                                { href => '/adm/preferences?action=changeclicker',
                             text => 'Register Clicker'},                                  text => 'Register Clicker'},
                       },                            },
                     { action   => 'verify_and_change_clicker',                            { action   => 'verify_and_change_clicker',
                       subroutine => \&verify_and_change_clicker,                            subroutine => \&verify_and_change_clicker,
                       breadcrumb =>                            breadcrumb =>
                           { href => '/adm/preferences?action=changeclicker',                                { href => '/adm/preferences?action=changeclicker',
                             text => 'Register Clicker'},                                  text => 'Register Clicker'},
                       printmenu => 'yes',                            printmenu => 'yes',
                       }));                            }));
       }
     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 (@Options,({ action   => 'changedomcoord',        push (@Options,({ action   => 'changedomcoord',
Removed from v.1.125.4.6  
changed lines
  Added in v.1.125.8.2

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