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.49, 2004/11/02 00:17:24
Line 868 sub handler {	Line 868 sub handler {
}));	}));

push (@Options,({ action => 'changemsgforward',	push (@Options,({ action => 'changemsgforward',
linktext => 'Change Message Forwarding',	linktext => 'Change Message Forwarding and Notification Addresses',
text => 'and Notification Addresses',
href => '/adm/preferences',	href => '/adm/preferences',
help => 'Prefs_Forwarding',	help => 'Prefs_Forwarding',
breadcrumb =>	breadcrumb =>
Line 967 sub handler {	Line 966 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 976 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);
}	}