version 1.9, 2003/02/20 19:41:26
|
version 1.11, 2003/03/01 03:06:37
|
Line 56 sub handler {
|
Line 56 sub handler {
|
if ($url=~/^\/uploaded\//) { |
if ($url=~/^\/uploaded\//) { |
$url=&Apache::lonnet::tokenwrapper($url); |
$url=&Apache::lonnet::tokenwrapper($url); |
} |
} |
$url.='?'.$ENV{'QUERY_STRING'}; #reappend the query arguments |
$url.=(($url=~/\?/)?'&':'?').$ENV{'QUERY_STRING'}; #reappend the query arguments |
my $events='onLoad="'.&Apache::lonmenu::loadevents. |
my $events='onLoad="'.&Apache::lonmenu::loadevents. |
'" onUnload="'.&Apache::lonmenu::unloadevents.'"'; |
'" onUnload="'.&Apache::lonmenu::unloadevents.'"'; |
my $script=&Apache::lonmenu::registerurl(1,undef); |
my $script=&Apache::lonmenu::registerurl(1,undef); |
Line 81 ENDDOCUMENT
|
Line 81 ENDDOCUMENT
|
# |
# |
$r->print('<html><head>'. |
$r->print('<html><head>'. |
&Apache::lonmenu::registerurl(1). |
&Apache::lonmenu::registerurl(1). |
'</head>'. |
'</head><body bgcolor="#FFFFFF">'. |
&Apache::loncommon::bodytag(). |
|
&Apache::lonmenu::menubuttons(1). |
&Apache::lonmenu::menubuttons(1). |
&Apache::lonnet::ssi_body($url).'</body></html>'); |
&Apache::lonnet::ssi_body($url).'</body></html>'); |
} |
} |