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>'; |