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

Diff for /loncom/interface/lonpreferences.pm between versions 1.180 and 1.185

version 1.180, 2009/12/15 13:15:32 version 1.185, 2010/03/10 21:25:50
Line 117  sub wysiwygchanger { Line 117  sub wysiwygchanger {
     my $switchon=&mt('Enable WYSIWYG editor');      my $switchon=&mt('Enable WYSIWYG editor');
     my $warning='';      my $warning='';
     if ($env{'user.adv'}) {      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>";         $warning.='<p class="LC_warning">'.&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">
Line 191  sub verify_and_change_languages { Line 191  sub verify_and_change_languages {
     if ($newlanguage) {      if ($newlanguage) {
         &Apache::lonnet::put('environment',{'languages' => $newlanguage});          &Apache::lonnet::put('environment',{'languages' => $newlanguage});
         &Apache::lonnet::appenv({'environment.languages' => $newlanguage});          &Apache::lonnet::appenv({'environment.languages' => $newlanguage});
         $message=&Apache::lonhtmlcommon::confirm_success(&mt('Set [_1] to [_2]','<i>'.&mt('Preferred language').'</i>','<tt>"'.$newlanguage.'"</tt>.'));          $message=&Apache::lonhtmlcommon::confirm_success(
               &mt('Set [_1] to [_2]',
                   '<i>'.&mt('Preferred language').'</i>',
                   '<tt>"'.$newlanguage.'"</tt>.'))
              .'<br />'
              .&mt('The change will become active on the next page.');
     } else {      } else {
         &Apache::lonnet::del('environment',['languages']);          &Apache::lonnet::del('environment',['languages']);
         &Apache::lonnet::delenv('environment.languages');          &Apache::lonnet::delenv('environment.languages');
Line 399  sub rolesprefchanger { Line 404  sub rolesprefchanger {
 </p>  </p>
 <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_rolespref" />  <input type="hidden" name="action" value="verify_and_change_rolespref" />
 <br /><label>'.&mt('Enable Recent '.$role.'s Hotlist:').'  <br />'.
 <input type="checkbox"'.$checked.' name="recentroles" value="true" /></label>  '<h2>'.&mt('Recent '.$role.'s Hotlist').'</h2>'.
 <br />'.&mt('Number of '.$role.'s in Hotlist:').'  &Apache::lonhtmlcommon::start_pick_box().
 <select name="recentrolesn" size="1">  &Apache::lonhtmlcommon::row_title('<label for="Hotlist">'.&mt('Enable Recent '.$role.'s Hotlist').'</label>').
 '.$options.'  '<input id="Hotlist" type="checkbox"'.$checked.' name="recentroles" value="true" />'.
 </select>  &Apache::lonhtmlcommon::row_closure().
 <p>'.&mt('This list below can be used to <q>freeze</q> '.$lc_role.'s on your screen. Those marked as frozen will not be removed from the list, even if they have not been used recently.').'  &Apache::lonhtmlcommon::row_title('<label for="NumberOfRoles">'.&mt('Number of '.$role.'s in Hotlist').'</label>').
   '<select name="recentrolesn" size="1" id ="NumberOfRoles">'.
   $options.
   '</select>'.
   &Apache::lonhtmlcommon::row_closure(1).
   &Apache::lonhtmlcommon::end_pick_box().
   '<br/><h2>'.&mt('Freeze Roles').'</h2>'.
   '<p>'.&mt('This list below can be used to <q>freeze</q> '.$lc_role.'s on your screen. Those marked as frozen will not be removed from the list, even if they have not been used recently.').'
 </p>  </p>
 '.$roles_check_list.'  '.$roles_check_list.'
 <br />  <br />
Line 991  sub verify_and_change_msgforward { Line 1003  sub verify_and_change_msgforward {
     my $domain     = $env{'user.domain'};      my $domain     = $env{'user.domain'};
     my $newscreen  = '';      my $newscreen  = '';
     my $message='';      my $message='';
     foreach (split(/\,/,$env{'form.msgforward'})) {      foreach my $recip (split(/\,/,$env{'form.msgforward'})) {
  my ($msuser,$msdomain)=split(/[\@\:]/,$_);          my ($msuser,$msdomain);
           if ($recip =~ /:/) {
               ($msuser,$msdomain)=split(':',$recip);
           } else {
               ($msuser,$msdomain)=split(/\@/,$recip);
           }
         $msuser = &LONCAPA::clean_username($msuser);          $msuser = &LONCAPA::clean_username($msuser);
         $msdomain = &LONCAPA::clean_domain($msdomain);          $msdomain = &LONCAPA::clean_domain($msdomain);
         if (($msuser) && ($msdomain)) {          if (($msuser) && ($msdomain)) {
     if (&Apache::lonnet::homeserver($msuser,$msdomain) ne 'no_host') {      if (&Apache::lonnet::homeserver($msuser,$msdomain) ne 'no_host') {
                $newscreen.=$msuser.':'.$msdomain.',';                  $newscreen.=$msuser.':'.$msdomain.',';
    } else {      } else {
                $message.= &mt('No such user: ').'<tt>'.$msuser.':'.$msdomain.'</tt><br />';                  $message.= &mt('No such user: ').'<tt>'.$msuser.':'.$msdomain.'</tt><br />';
            }              }
         }          }
     }      }
     $newscreen=~s/\,$//;      $newscreen=~s/\,$//;
Line 1858  my @menu= Line 1875  my @menu=
     },      },
  ]   ]
     },      },
     { categorytitle=>'Page Display Settings',  
  items =>[  
     { linktext => 'Color Scheme',  
  url => '/adm/preferences?action=changecolors',  
  permission => 'F',  
  #help => 'Change_Colors',  
  icon => 'preferences-desktop-theme.png',  
  linktitle => 'Change LON-CAPA default colors.'  
     },  
     { linktext => 'Menu Display',  
  url => '/adm/preferences?action=changeicons',  
  permission => 'F',  
  #help => '',  
  icon => 'preferences-system-windows.png',  
  linktitle => 'Change whether the menus are displayed with buttons, icons or icons and text.'  
     }  
   
  ]  
     },  
     { categorytitle=>'Content Display Settings',      { categorytitle=>'Content Display Settings',
  items =>[   items =>[
     { linktext => 'Language',      { linktext => 'Language',
Line 1886  my @menu= Line 1884  my @menu=
  icon => 'preferences-desktop-locale.png',   icon => 'preferences-desktop-locale.png',
  linktitle => 'Choose the default language for this user.'   linktitle => 'Choose the default language for this user.'
     },      },
     { linktext => 'WYSIWYG Editor',  
  url => '/adm/preferences?action=changewysiwyg',  
  permission => 'F',  
  #help => '',  
  icon => 'edit-select-all.png',  
  linktitle => 'Enable or disable the WYSIWYG-Editor.'  
     },  
     { linktext => $role.' Page',      { linktext => $role.' Page',
  url => '/adm/preferences?action=changerolespref',   url => '/adm/preferences?action=changerolespref',
  permission => 'F',   permission => 'F',
Line 1909  my @menu= Line 1900  my @menu=
     },      },
  ]   ]
     },      },
       { categorytitle=>'Page Display Settings',
    items =>[
       { linktext => 'Color Scheme',
    url => '/adm/preferences?action=changecolors',
    permission => 'F',
    #help => 'Change_Colors',
    icon => 'preferences-desktop-theme.png',
    linktitle => 'Change LON-CAPA default colors.'
       },
       { linktext => 'Menu Display',
    url => '/adm/preferences?action=changeicons',
    permission => 'F',
    #help => '',
    icon => 'preferences-system-windows.png',
    linktitle => 'Change whether the menus are displayed with buttons, icons or icons and text.'
       }
   
    ]
       },
     { categorytitle=>'Messages &amp; Notifications',      { categorytitle=>'Messages &amp; Notifications',
  items =>[   items =>[
     { linktext => 'Messages &amp; Notifications',      { linktext => 'Messages &amp; Notifications',
Line 1950  push(@{ $menu[0]->{items} }, { Line 1960  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&amp;action=launch',  
  permission => 'F',  
  #help => '',  
  icon => 'remotecontrol.png',  
  linktitle => 'Launch the remote control for LON-CAPA.',  
  });  
     }else{  
 push(@{ $menu[1]->{items} }, {  
  linktext => 'Collapse Remote Control',  
  url => '/adm/remote?url=/adm/preferences&amp;action=collapse',  
  permission => 'F',  
  #help => '',  
  icon => 'remotecontrol.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} }, {
Removed from v.1.180  
changed lines
  Added in v.1.185

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