--- loncom/interface/lonpreferences.pm 2004/07/21 19:51:30 1.47 +++ loncom/interface/lonpreferences.pm 2004/07/26 21:57:27 1.48 @@ -1,7 +1,7 @@ # The LearningOnline Network # Preferences # -# $Id: lonpreferences.pm,v 1.47 2004/07/21 19:51:30 albertel Exp $ +# $Id: lonpreferences.pm,v 1.48 2004/07/26 21:57:27 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -967,6 +967,7 @@ sub handler { ENDHEADER my $call = undef; + my $help = undef; my $printmenu = 'yes'; foreach my $option (@Options) { if ($option->{'action'} eq $ENV{'form.action'}) { @@ -976,11 +977,12 @@ ENDHEADER &Apache::lonhtmlcommon::add_breadcrumb ($option->{'breadcrumb'}); } + $help=$option->{'help'}; } } $r->print(&Apache::loncommon::bodytag('Change Preferences')); $r->print(&Apache::lonhtmlcommon::breadcrumbs - (undef,'Change Preferences')); + (undef,'Change Preferences',$help)); if (defined($call)) { $call->($r); }