version 1.13, 2000/10/16 17:29:11
|
version 1.24, 2001/08/13 17:36:32
|
Line 5
|
Line 5
|
# |
# |
# 05/29/00,05/30 Gerd Kortemeyer) |
# 05/29/00,05/30 Gerd Kortemeyer) |
# 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23, |
# 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23, |
# 10/02,10/10,10/14,10/16 Gerd Kortemeyer |
# 10/02,10/10,10/14,10/16,10/18,10/19,10/31,11/6,11/14,11/16, |
|
# 08/13/01 Gerd Kortemeyer |
|
|
package Apache::lonpage; |
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 168 sub handler {
|
Line 170 sub handler {
|
my %ssilink=(); |
my %ssilink=(); |
my %ssivlink=(); |
my %ssivlink=(); |
my %ssialink=(); |
my %ssialink=(); |
|
|
|
my %metalink=(); |
|
|
my %cellemb=(); |
my %cellemb=(); |
|
|
my $allscript=''; |
my $allscript=''; |
Line 187 sub handler {
|
Line 192 sub handler {
|
map { |
map { |
my $src=$hash{'src_'.$_}; |
my $src=$hash{'src_'.$_}; |
$src=~/\.(\w+)$/; |
$src=~/\.(\w+)$/; |
|
$metalink{$_}=$src.'.meta'; |
$cellemb{$_}=Apache::lonnet::fileembstyle($1); |
$cellemb{$_}=Apache::lonnet::fileembstyle($1); |
if ($cellemb{$_} eq 'ssi') { |
if ($cellemb{$_} eq 'ssi') { |
# --------------------------------------------------------- This is an SSI cell |
# --------------------------------------------------------- This is an SSI cell |
Line 258 sub handler {
|
Line 264 sub handler {
|
$nforms++; |
$nforms++; |
$output=~s/\<form[^\>]*\>//gsi; |
$output=~s/\<form[^\>]*\>//gsi; |
$output=~s/\<\/form[^\>]*\>//gsi; |
$output=~s/\<\/form[^\>]*\>//gsi; |
|
$output=~ |
|
s/\<((?:input|select|button|textarea)[^\>]+)name\s*\=\s*[\'\"]*([\w\.\:]+)[\'\"]*([^\>]*)\>/\<$1 name="$prefix$2" $3\>/gsi; |
} |
} |
$thisdir=~s/\/[^\/]*$//; |
$thisdir=~s/\/[^\/]*$//; |
map { |
map { |
Line 268 sub handler {
|
Line 276 sub handler {
|
$output=~s/(\"|\'|\=\s*)$_(\"|\'|\s|\>)/$1$newlocation$2/; |
$output=~s/(\"|\'|\=\s*)$_(\"|\'|\s|\>)/$1$newlocation$2/; |
} |
} |
} @rlinks; |
} @rlinks; |
$output=~s/\<\s*applet/\<applet codebase=\"$thisdir\" /gi; |
# -------------------------------------------------- Deal with Applet codebases |
|
$output=~s/(\<applet[^\>]+)(codebase\=[^\S\>]+)*([^\>]*)\>/$1.($2?$2:' codebase="'.$thisdir.'"').$3.'>'/gei; |
$ssibody{$_}=$output; |
$ssibody{$_}=$output; |
|
|
# ---------------------------------------------------------------- End SSI cell |
# ---------------------------------------------------------------- End SSI cell |
} |
} |
} @colcont; |
} @colcont; |
Line 295 sub handler {
|
Line 303 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 319 sub handler {
|
Line 333 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="'. |
|
$metalink{$rid}.'" target="LONcatInfo">'. |
|
'<img src="/adm/lonMisc/cat_button.gif" border=0>'. |
|
'</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}) { |
$r->print(' bgcolor="'. |
$r->print(' bgcolor="'. |
$ssibgcolor{$rid}.'"'); |
$ssibgcolor{$rid}.'"'); |
} |
} |
$r->print('><font'); |
$r->print('>'.$metainfo.'<font'); |
if ($ssitext{$rid}) { |
if ($ssitext{$rid}) { |
$r->print(' text="'.$ssitext{$rid}.'"'); |
$r->print(' text="'.$ssitext{$rid}.'"'); |
} |
} |
Line 341 sub handler {
|
Line 359 sub handler {
|
|
|
$r->print('>'.$ssibody{$rid}.'</font>'); |
$r->print('>'.$ssibody{$rid}.'</font>'); |
} elsif ($cellemb{$rid} eq 'img') { |
} elsif ($cellemb{$rid} eq 'img') { |
$r->print('><img src="'. |
$r->print('>'.$metainfo.'<img src="'. |
$hash{'src_'.$rid}.'"></img>'); |
$hash{'src_'.$rid}.'"></img>'); |
} elsif ($cellemb{$rid} eq 'emb') { |
} elsif ($cellemb{$rid} eq 'emb') { |
$r->print('><embed src="'. |
$r->print('>'.$metainfo.'<embed src="'. |
$hash{'src_'.$rid}.'"></embed>'); |
$hash{'src_'.$rid}.'"></embed>'); |
} |
} |
$r->print('</td>'); |
$r->print('</td>'); |