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; |
} |
} |
|
|