loncom/interface/lonpreferences.pm - diff

Return to lonpreferences.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.37, 2004/03/16 19:13:09	version 1.39, 2004/03/26 17:11:37
Line 730 sub handler {	Line 730 sub handler {
subroutine => \&verify_and_change_colors,	subroutine => \&verify_and_change_colors,
}));	}));
push (@Options,({ action => 'changelanguages',	push (@Options,({ action => 'changelanguages',
linktext => 'Change Language Prefences',	linktext => 'Change Language Preferences',
href => '/adm/preferences',	href => '/adm/preferences',
breadcrumb=>	breadcrumb=>
{ href => '/adm/preferences?action=changelanguages',	{ href => '/adm/preferences?action=changelanguages',
Line 760 ENDHEADER	Line 760 ENDHEADER
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'}) {
&Apache::lonnet::logthis('got action '.$option->{'action'});
$call = $option->{'subroutine'};	$call = $option->{'subroutine'};
$printmenu = $option->{'printmenu'};	$printmenu = $option->{'printmenu'};
if (exists($option->{'breadcrumb'})) {	if (exists($option->{'breadcrumb'})) {