version 1.20, 2000/11/16 11:58:30
|
version 1.22, 2001/08/03 16:55:00
|
Line 12 package Apache::lonpage;
|
Line 12 package Apache::lonpage;
|
use strict; |
use strict; |
use Apache::Constants qw(:common :http); |
use Apache::Constants qw(:common :http); |
use Apache::lonnet(); |
use Apache::lonnet(); |
|
use Apache::lonxml(); |
use HTML::TokeParser; |
use HTML::TokeParser; |
use GDBM_File; |
use GDBM_File; |
|
|
Line 300 sub handler {
|
Line 301 sub handler {
|
} |
} |
# ------------------------------------------------------------------------ Head |
# ------------------------------------------------------------------------ Head |
$r->print("\n<head>\n".$allmeta); |
$r->print("\n<head>\n".$allmeta); |
|
$allscript=~ |
|
s/\/\/ BEGIN LON\-CAPA Internal.+\/\/ END LON\-CAPA Internal\s//gs; |
if ($allscript) { |
if ($allscript) { |
$r->print("\n<script>\n".$allscript."\n</script>\n"); |
$r->print("\n<script language='JavaScript'>\n". |
|
$allscript."\n</script>\n"); |
} |
} |
|
$r->print(&Apache::lonxml::registerurl); |
$r->print("\n</head>\n"); |
$r->print("\n</head>\n"); |
# ------------------------------------------------------------------ Start body |
# ------------------------------------------------------------------ Start body |
if ($isxml) { |
if ($isxml) { |
$r->print($xmlbody); |
$r->print($xmlbody); |
} else { |
} else { |
$r->print('<body bgcolor="#FFFFFF">'); |
$r->print( |
|
'<body bgcolor="#FFFFFF" onLoad="'.&Apache::lonxml::loadevents. |
|
'" onUnload="'.&Apache::lonxml::unloadevents.'">'); |
} |
} |
# ------------------------------------------------------------------ Start form |
# ------------------------------------------------------------------ Start form |
if ($nforms) { |
if ($nforms) { |
Line 324 sub handler {
|
Line 331 sub handler {
|
my $avespan=$lcm/($#colcont+1); |
my $avespan=$lcm/($#colcont+1); |
for ($j=0;$j<=$#colcont;$j++) { |
for ($j=0;$j<=$#colcont;$j++) { |
my $rid=$colcont[$j]; |
my $rid=$colcont[$j]; |
my $metainfo='<a href="'. |
my $metainfo='';#'<a href="'. |
$metalink{$rid}.'" target="LONcatInfo">'. |
#$metalink{$rid}.'" target="LONcatInfo">'. |
'<img src="/adm/lonMisc/cat_button.gif" border=0>'. |
#'<img src="/adm/lonMisc/cat_button.gif" border=0>'. |
'</img></a><br></br>'; |
#'</img></a><br></br>'; |
$r->print('<td colspan="'.$avespan.'"'); |
$r->print('<td colspan="'.$avespan.'"'); |
if ($cellemb{$rid} eq 'ssi') { |
if ($cellemb{$rid} eq 'ssi') { |
if ($ssibgcolor{$rid}) { |
if ($ssibgcolor{$rid}) { |