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

Diff for /loncom/interface/lonpreferences.pm between versions 1.46 and 1.48

version 1.46, 2004/07/09 21:05:14 version 1.48, 2004/07/26 21:57:27
Line 967  sub handler { Line 967  sub handler {
 </head>  </head>
 ENDHEADER  ENDHEADER
     my $call = undef;      my $call = undef;
       my $help = undef;
     my $printmenu = 'yes';      my $printmenu = 'yes';
     foreach my $option (@Options) {      foreach my $option (@Options) {
         if ($option->{'action'} eq $ENV{'form.action'}) {          if ($option->{'action'} eq $ENV{'form.action'}) {
Line 976  ENDHEADER Line 977  ENDHEADER
                 &Apache::lonhtmlcommon::add_breadcrumb                  &Apache::lonhtmlcommon::add_breadcrumb
                     ($option->{'breadcrumb'});                      ($option->{'breadcrumb'});
             }              }
       $help=$option->{'help'};
         }          }
     }      }
     $r->print(&Apache::loncommon::bodytag('Change Preferences'));      $r->print(&Apache::loncommon::bodytag('Change Preferences'));
     $r->print(&Apache::lonhtmlcommon::breadcrumbs      $r->print(&Apache::lonhtmlcommon::breadcrumbs
               (undef,'Change Preferences'));                (undef,'Change Preferences',$help));
     if (defined($call)) {      if (defined($call)) {
         $call->($r);          $call->($r);
     }      }
Line 1004  ENDHEADER Line 1006  ENDHEADER
                 $optiontext .=                   $optiontext .= 
                     '<a href="'.$option->{'href'}.                      '<a href="'.$option->{'href'}.
                     '?action='.$option->{'action'}.'">'.                      '?action='.$option->{'action'}.'">'.
                     $option->{'linktext'}.'</a>';                      &mt($option->{'linktext'}).'</a>';
             }              }
             if (exists($option->{'text'})) {              if (exists($option->{'text'})) {
                 $optiontext .= ' '.$option->{'text'};                  $optiontext .= ' '.&mt($option->{'text'});
             }              }
             if ($optiontext ne '') {              if ($optiontext ne '') {
                 $optiontext = '<font size="+1">'.$optiontext.'</font>';                   $optiontext = '<font size="+1">'.$optiontext.'</font>'; 
Removed from v.1.46  
changed lines
  Added in v.1.48

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