version 1.56, 2003/01/15 23:58:58
|
version 1.58, 2003/01/20 17:20:52
|
Line 838 sub display_line {
|
Line 838 sub display_line {
|
} |
} |
if ($hash{'display_attrs_8'} == 1) { |
if ($hash{'display_attrs_8'} == 1) { |
my $output=''; |
my $output=''; |
if (&Apache::loncommon::fileembstyle($curfext) eq 'ssi') { |
my $embstyle=&Apache::loncommon::fileembstyle($curfext); |
|
if ($embstyle eq 'ssi') { |
$output=&Apache::lonnet::ssi($filelink); |
$output=&Apache::lonnet::ssi($filelink); |
$output=~s/^.*\<body[^\>]*\>//si; |
$output=~s/^.*\<body[^\>]*\>//si; |
$output=~s/\<\/body\s*\>.*$//si; |
$output=~s/\<\/body\s*\>.*$//si; |
$output='<font size="-2">'.$output.'</font>'; |
$output='<font size="-2">'.$output.'</font>'; |
} |
} elsif ($embstyle eq 'img') { |
|
$output='<img src="'.$filelink.'" />'; |
|
} elsif ($filelink=~/^\/res\/(\w+)\/(\w+)\//) { |
|
$output='<img src="http://'. |
|
$Apache::lonnet::hostname{&Apache::lonnet::homeserver($2,$1)}. |
|
'/cgi-bin/thumbnail.gif?url='.$filelink.'" />'; |
|
} |
$r->print('<td valign=bottom> '.($output eq '' ? ' ':$output). |
$r->print('<td valign=bottom> '.($output eq '' ? ' ':$output). |
" </td>\n"); |
" </td>\n"); |
} |
} |