version 1.49, 2002/08/12 18:21:42
|
version 1.51, 2002/08/20 13:01:53
|
Line 90 my @Omit = ();
|
Line 90 my @Omit = ();
|
sub handler { |
sub handler { |
my $r = shift; |
my $r = shift; |
$r->content_type('text/html'); |
$r->content_type('text/html'); |
|
&Apache::loncommon::no_cache($r); |
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
$fnum=0; |
$fnum=0; |
Line 688 sub display_line {
|
Line 689 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 $tabtag</tr></form>\n"); |
$r->print("Domain - $listname (". |
|
$Apache::lonnet::domaindescription{$listname}.") $tabtag</tr></form>\n"); |
return OK; |
return OK; |
|
|
# display user directory |
# display user directory |