version 1.47, 2004/07/21 19:51:30
|
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); |
} |
} |