loncom/interface/lonpreferences.pm - diff

Return to lonpreferences.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.75, 2006/03/15 21:19:10	version 1.76, 2006/03/15 22:11:04
Line 1249 sub handler {	Line 1249 sub handler {
subroutine => \&toggle_debug,	subroutine => \&toggle_debug,
}));	}));
}	}
my $html=&Apache::lonxml::xmlbegin();
$r->print(<<ENDHEADER);	$r->print(&Apache::loncommon::start_page('Change Preferences'));
$html
<head>
<title>LON-CAPA Preferences</title>
</head>
ENDHEADER
my $call = undef;	my $call = undef;
my $help = undef;	my $help = undef;
my $printmenu = 'yes';	my $printmenu = 'yes';
Line 1270 ENDHEADER	Line 1266 ENDHEADER
$help=$option->{'help'};	$help=$option->{'help'};
}	}
}	}
$r->print(&Apache::loncommon::bodytag('Change Preferences'));
$r->print(&Apache::lonhtmlcommon::breadcrumbs	$r->print(&Apache::lonhtmlcommon::breadcrumbs
(undef,'Change Preferences',$help));	(undef,'Change Preferences',$help));
my $error;	my $error;
Line 1323 ENDHEADER	Line 1318 ENDHEADER
$r->print('<br /><a href="'.$env{'form.returnurl'}.'"><font size="+1">'.	$r->print('<br /><a href="'.$env{'form.returnurl'}.'"><font size="+1">'.
&mt('Return').'</font></a>');	&mt('Return').'</font></a>');
}	}
$r->print(&Apache::loncommon::endbodytag().'</html>');	$r->print(&Apache::loncommon::end_page());
return OK;	return OK;
}	}