version 1.97, 2003/11/01 16:37:21
|
version 1.98, 2003/11/07 23:22:21
|
Line 66 sub initlittle {
|
Line 66 sub initlittle {
|
# ============================= This gets called at the top of the body section |
# ============================= This gets called at the top of the body section |
|
|
sub menubuttons { |
sub menubuttons { |
&Apache::lonlocal::reroutetrans(); |
|
my $forcereg=shift; |
my $forcereg=shift; |
my $target =shift; |
my $target =shift; |
my $registration=shift; |
my $registration=shift; |
Line 177 ENDINLINEMENU
|
Line 176 ENDINLINEMENU
|
# ====================================== This gets called in the header section |
# ====================================== This gets called in the header section |
|
|
sub registerurl { |
sub registerurl { |
&Apache::lonlocal::reroutetrans(); |
|
my $forcereg=shift; |
my $forcereg=shift; |
my $target = shift; |
my $target = shift; |
my $result = ''; |
my $result = ''; |
Line 213 sub registerurl {
|
Line 211 sub registerurl {
|
# =========== and in the body of the document |
# =========== and in the body of the document |
|
|
sub innerregister { |
sub innerregister { |
&Apache::lonlocal::reroutetrans(); |
|
my $forcereg=shift; |
my $forcereg=shift; |
my $target = shift; |
my $target = shift; |
my $result = ''; |
my $result = ''; |
Line 894 sub handler {
|
Line 891 sub handler {
|
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
|
|
&Apache::lonlocal::clearreroutetrans(); |
|
|
|
my $form=&serverform(); |
my $form=&serverform(); |
my $bodytag=&Apache::loncommon::bodytag('Main Menu'); |
my $bodytag=&Apache::loncommon::bodytag('Main Menu'); |
my $function='student'; |
my $function='student'; |
Line 928 $utility
|
Line 923 $utility
|
$bodytag |
$bodytag |
ENDHEADER |
ENDHEADER |
$r->print('<table>'.&inlinemenu().'</table>'.$form); |
$r->print('<table>'.&inlinemenu().'</table>'.$form); |
$r->print(&Apache::lonlocal::endreroutetrans()); |
|
$r->print('</body></html>'); |
$r->print('</body></html>'); |
return OK; |
return OK; |
} |
} |