loncom/interface/lonpreferences.pm - diff

Return to lonpreferences.pm CVS log

Up to [LON-CAPA] / loncom / interface

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);
}	}