loncom/interface/lonaboutme.pm - diff

Return to lonaboutme.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.41, 2006/04/08 06:59:34	version 1.42, 2006/04/10 19:59:53
Line 64 sub handler {	Line 64 sub handler {
# ------------------------------------------------------------ Get Query String	# ------------------------------------------------------------ Get Query String
&Apache::loncommon::get_unprocessed_cgi	&Apache::loncommon::get_unprocessed_cgi
($ENV{'QUERY_STRING'},['forcestudent','register']);	($ENV{'QUERY_STRING'},['forcestudent','register']);
# ----------------------------------------------------- Force menu registration
my $addentries='';
if ($env{'form.register'}) {
$addentries=' onLoad="'.&Apache::lonmenu::loadevents().
'" onUnload="'.&Apache::lonmenu::unloadevents().'"';
$r->print(&Apache::lonmenu::registerurl(1));
}
# --------------------------------------------------------------- Force Student	# --------------------------------------------------------------- Force Student
my $forcestudent='';	my $forcestudent='';
if ($env{'form.forcestudent'}) { $forcestudent='student'; };	if ($env{'form.forcestudent'}) { $forcestudent='student'; };
Line 81 sub handler {	Line 74 sub handler {
my $start_page =	my $start_page =
&Apache::loncommon::start_page("Personal Information",undef,	&Apache::loncommon::start_page("Personal Information",undef,
{'function' => $forcestudent,	{'function' => $forcestudent,
'add_entries' => $addentries,
'domain' => $cdom,	'domain' => $cdom,
'force_register' =>	'force_register' =>
$env{'form.register'},});	$env{'form.register'},});