version 1.56, 2003/01/15 23:58:58
|
version 1.61, 2003/02/20 19:41:26
|
Line 34
|
Line 34
|
# 05/9-05/19/2001 H. K. Ng |
# 05/9-05/19/2001 H. K. Ng |
# 05/21/2001 H. K. Ng |
# 05/21/2001 H. K. Ng |
# 05/23/2001 H. K. Ng |
# 05/23/2001 H. K. Ng |
# 5/31,6/1,6/2,6/15 Scott Harrison |
|
# 6/26,7/8 H. K. Ng |
# 6/26,7/8 H. K. Ng |
# 8/6,8/7,8/10 Scott Harrison |
|
# 8/14 H. K. Ng |
# 8/14 H. K. Ng |
# 8/28,10/15,11/28,11/29 Scott Harrison |
|
# 11/30 Matthew Hall |
# 11/30 Matthew Hall |
# 12/11,12/13 Scott Harrison |
|
# YEAR=2002 |
# YEAR=2002 |
# 1/17 Scott Harrison |
|
# 6/29/2002 H. K. Ng |
# 6/29/2002 H. K. Ng |
# |
# |
### |
### |
Line 687 sub display_line {
|
Line 682 sub display_line {
|
$r->print ('<a href="javascript:gothere(\''.$filecom[0]. |
$r->print ('<a href="javascript:gothere(\''.$filecom[0]. |
'/\')"><img src="'.$iconpath.'server.gif"'); |
'/\')"><img src="'.$iconpath.'server.gif"'); |
$r->print (' border="0" /></a>'."\n"); |
$r->print (' border="0" /></a>'."\n"); |
$r->print("Domain - $listname (". |
$r->print ("Domain - $listname "); |
$Apache::lonnet::domaindescription{$listname}.") $tabtag</tr></form>\n"); |
if ($Apache::lonnet::domaindescription{$listname}) { |
|
$r->print("(".$Apache::lonnet::domaindescription{$listname}. |
|
")"); |
|
} |
|
$r->print (" $tabtag</tr></form>\n"); |
return OK; |
return OK; |
|
|
# display user directory |
# display user directory |
Line 710 sub display_line {
|
Line 709 sub display_line {
|
$r->print ('<a href="javascript:gothere(\''.$curdir.'\')"><img src='. |
$r->print ('<a href="javascript:gothere(\''.$curdir.'\')"><img src='. |
$iconpath.'quill.gif border="0" name="'.$msg. |
$iconpath.'quill.gif border="0" name="'.$msg. |
'" height="22" /></a>'); |
'" height="22" /></a>'); |
$r->print ($listname.$tabtag.'</tr></form>'."\n"); |
my $domain=(split(m|/|,$startdir))[2]; |
|
my $plainname=&Apache::loncommon::plainname($listname,$domain); |
|
$r->print ($listname); |
|
if (defined($plainname) && $plainname) { $r->print(" ($plainname) "); } |
|
$r->print ($tabtag.'</tr></form>'."\n"); |
return OK; |
return OK; |
} |
} |
|
|
Line 838 sub display_line {
|
Line 841 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); |
$output=&Apache::lonnet::ssi($filelink); |
if ($embstyle eq 'ssi') { |
$output=~s/^.*\<body[^\>]*\>//si; |
$output=&Apache::lonnet::ssi_body($filelink); |
$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"); |
} |
} |