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

Diff for /loncom/interface/lonpreferences.pm between versions 1.123 and 1.125.2.2

version 1.123, 2008/05/28 23:50:53 version 1.125.2.2, 2008/12/23 19:28:07
Line 108  sub wysiwygchanger { Line 108  sub wysiwygchanger {
     }      }
     my $switchoff=&mt('Disable WYSIWYG editor');      my $switchoff=&mt('Disable WYSIWYG editor');
     my $switchon=&mt('Enable WYSIWYG editor');      my $switchon=&mt('Enable WYSIWYG editor');
       my $warning='';
       if ($env{'user.adv'}) {
          $warning.="<p>".&mt("The WYSIWYG editor only supports simple HTML and is in many cases unsuited for advanced authoring. In a number of cases, it may destroy advanced authoring involving LaTeX and script function calls.")."</p>";
       }
     $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="set_wysiwyg" />  <input type="hidden" name="action" value="set_wysiwyg" />
   $warning
 <br />  <br />
 <label><input type="radio" name="wysiwyg" value="off" $onselect /> $switchoff</label><br />  <label><input type="radio" name="wysiwyg" value="off" $onselect /> $switchoff</label><br />
 <label><input type="radio" name="wysiwyg" value="on" $offselect /> $switchon</label>  <label><input type="radio" name="wysiwyg" value="on" $offselect /> $switchon</label>
Line 174  sub verify_and_change_languages { Line 179  sub verify_and_change_languages {
         &Apache::lonnet::delenv('environment\.languages');          &Apache::lonnet::delenv('environment\.languages');
         $message=&mt('Reset preferred language.');          $message=&mt('Reset preferred language.');
     }      }
       &Apache::loncommon::flush_langs_cache($user,$domain);
     $r->print(<<ENDVCSCREEN);      $r->print(<<ENDVCSCREEN);
 $message  $message
 ENDVCSCREEN  ENDVCSCREEN
Line 1777  sub handler { Line 1783  sub handler {
                             text => 'Change Message Forwarding/Notification'},                              text => 'Change Message Forwarding/Notification'},
                       printmenu => 'no',                        printmenu => 'no',
                       subroutine => \&verify_and_change_msgforward }));                        subroutine => \&verify_and_change_msgforward }));
     my $aboutmeaction=      if (&Apache::lonnet::usertools_access($user,$domain,'aboutme')) {
         '/adm/'.$env{'user.domain'}.'/'.$env{'user.name'}.'/aboutme';          my $aboutmeaction = '/adm/'.$domain.'/'.$user.'/aboutme';
     push (@Options,{ action => 'none',           push (@Options,{ action => 'none', 
                      linktext =>                           linktext =>
                          q{Edit the 'About Me' Personal Information Screen},                               q{Edit the 'About Me' Personal Information Screen},
      help => 'Prefs_About_Me',             help => 'Prefs_About_Me',
                      href => $aboutmeaction});                           href => $aboutmeaction});
       }
     push (@Options,({ action => 'changecolors',      push (@Options,({ action => 'changecolors',
                       linktext => 'Change Color Scheme',                        linktext => 'Change Color Scheme',
                       href => '/adm/preferences',                        href => '/adm/preferences',
Line 1924  sub handler { Line 1931  sub handler {
                             text => 'Register Clicker'},                              text => 'Register Clicker'},
                       printmenu => 'yes',                        printmenu => 'yes',
                       }));                        }));
    if ($env{'user.adv'}) {      my %author_roles = &Apache::lonnet::get_my_roles($user,$domain,'userroles','',['au']);
       if (keys(%author_roles) > 0) {
       push (@Options,({ action   => 'changedomcoord',        push (@Options,({ action   => 'changedomcoord',
                         linktext => 'Restrict Domain Coordinator Access',                          linktext => 'Restrict Domain Coordinator Access',
                         href     => '/adm/preferences',                          href     => '/adm/preferences',
Removed from v.1.123  
changed lines
  Added in v.1.125.2.2

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