[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.3 and 1.125.8.2

version 1.125.4.3, 2009/08/13 17:55:44 version 1.125.8.2, 2009/09/23 15:32:00
Line 1516  ENDERROR Line 1516  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 1554  sub discussionchanger { Line 1554  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 1644  sub verify_and_change_discussion { Line 1644  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 1857  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 1965  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.3  
changed lines
  Added in v.1.125.8.2

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