version 1.13, 2000/10/16 17:29:11
|
version 1.17, 2000/11/13 18:15:54
|
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 Gerd Kortemeyer |
|
|
package Apache::lonpage; |
package Apache::lonpage; |
|
|
Line 168 sub handler {
|
Line 168 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 190 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 262 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 270 sub handler {
|
Line 276 sub handler {
|
} @rlinks; |
} @rlinks; |
$output=~s/\<\s*applet/\<applet codebase=\"$thisdir\" /gi; |
$output=~s/\<\s*applet/\<applet codebase=\"$thisdir\" /gi; |
$ssibody{$_}=$output; |
$ssibody{$_}=$output; |
|
|
# ---------------------------------------------------------------- End SSI cell |
# ---------------------------------------------------------------- End SSI cell |
} |
} |
} @colcont; |
} @colcont; |
Line 319 sub handler {
|
Line 324 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 350 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>'); |