version 1.135, 2005/06/17 20:15:51
|
version 1.139, 2006/03/02 20:16:10
|
Line 347 END
|
Line 347 END
|
} |
} |
|
|
# ---------------------------------------------------------------- Print Header |
# ---------------------------------------------------------------- Print Header |
my $html='<html>';#&Apache::lonxml::xmlbegin(); |
my $html=&Apache::lonxml::xmlbegin(); |
$r->print(<<ENDHEADER); |
$r->print(<<ENDHEADER); |
$html |
$html |
<head> |
<head> |
Line 1057 sub display_line {
|
Line 1057 sub display_line {
|
&dynmetaprint($r,$filelink,'comefrom_list'); |
&dynmetaprint($r,$filelink,'comefrom_list'); |
&dynmetaprint($r,$filelink,'sequsage_list'); |
&dynmetaprint($r,$filelink,'sequsage_list'); |
&dynmetaprint($r,$filelink,'dependencies'); |
&dynmetaprint($r,$filelink,'dependencies'); |
|
&dynmetaprint($r,$filelink,'course_list'); |
$r->print('</td>'); |
$r->print('</td>'); |
} |
} |
if ($hash{'display_attrs_7'} == 1) { |
if ($hash{'display_attrs_7'} == 1) { |
Line 1073 sub display_line {
|
Line 1074 sub display_line {
|
close(FH); |
close(FH); |
} else { |
} else { |
$output=&Apache::lonnet::ssi_body($filelink); |
$output=&Apache::lonnet::ssi_body($filelink); |
open(FH,">$cache"); |
if ($output=~/LONCAPAACCESSCONTROLERRORSCREEN/) { |
print FH $output; |
$output=''; |
close(FH); |
} else { |
|
open(FH,">$cache"); |
|
print FH $output; |
|
close(FH); |
|
} |
} |
} |
$output='<font size="-2">'.$output.'</font>'; |
$output='<font size="-2">'.$output.'</font>'; |
} elsif ($embstyle eq 'img') { |
} elsif ($embstyle eq 'img') { |
Line 1237 sub cleanup {
|
Line 1242 sub cleanup {
|
if (tied(%hash)){ |
if (tied(%hash)){ |
&Apache::lonnet::logthis('Cleanup indexer: hash'); |
&Apache::lonnet::logthis('Cleanup indexer: hash'); |
} |
} |
|
return OK; |
} |
} |
|
|
|
|