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

Diff for /loncom/interface/lonpreferences.pm between versions 1.99 and 1.100

version 1.99, 2007/04/17 18:28:44 version 1.100, 2007/04/28 23:13:56
Line 526  sub iconchanger { Line 526  sub iconchanger {
         ('environment',['icons']);          ('environment',['icons']);
     my $iconic='checked="checked"';      my $iconic='checked="checked"';
     my $classic='';      my $classic='';
       my $onlyicon='';
     if ($userenv{'icons'} eq 'classic') {      if ($userenv{'icons'} eq 'classic') {
        $classic='checked="checked"';         $classic='checked="checked"';
        $iconic='';         $iconic='';
     }      }
     my $useicons=&mt('Use icons');      if ($userenv{'icons'} eq 'iconsonly') {
     my $usebuttons=&mt('Use classic buttons');         $onlyicon='checked="checked"';
          $iconic='';
       }
       my $useicons=&mt('Use icons and text');
       my $usebuttons=&mt('Use buttons and text');
       my $useicononly=&mt('Use icons only');
     my $change=&mt('Change');      my $change=&mt('Change');
     $r->print(<<ENDSCREEN);      $r->print(<<ENDSCREEN);
 <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_icons" />  <input type="hidden" name="action" value="verify_and_change_icons" />
 <label><input type="radio" name="menumode" value="iconic" $iconic /> $useicons</label><br />  <label><input type="radio" name="menumode" value="iconic" $iconic /> $useicons</label><br />
 <label><input type="radio" name="menumode" value="classic" $classic /> $usebuttons</label><br />  <label><input type="radio" name="menumode" value="classic" $classic /> $usebuttons</label><br />
   <label><input type="radio" name="menumode" value="iconsonly" $onlyicon /> $useicononly</label><br />
 <input type="submit" value="$change" />  <input type="submit" value="$change" />
 </form>  </form>
 ENDSCREEN  ENDSCREEN
Line 1517  sub handler { Line 1524  sub handler {
     }      }
   
     push (@Options,({ action   => 'changeicons',      push (@Options,({ action   => 'changeicons',
                       linktext => 'Change How Main Menu is Displayed',                        linktext => 'Change How Menus are Displayed',
                       href     => '/adm/preferences',                        href     => '/adm/preferences',
                       subroutine => \&iconchanger,                        subroutine => \&iconchanger,
                       breadcrumb =>                        breadcrumb =>
Removed from v.1.99  
changed lines
  Added in v.1.100

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