version 1.155, 2006/12/11 02:12:08
|
version 1.158, 2007/03/08 01:58:45
|
Line 680 sub get_list {
|
Line 680 sub get_list {
|
$uri=~s/\/+/\//g; |
$uri=~s/\/+/\//g; |
foreach (&Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$uri))) { |
foreach (&Apache::lonsequence::attemptread(&Apache::lonnet::filelocation('',$uri))) { |
my @ratpart=split(/\:/,$_); |
my @ratpart=split(/\:/,$_); |
push @list,$ratpart[1]; |
push(@list,&LONCAPA::map::qtescape($ratpart[1])); |
} |
} |
$hash{'dirlist_files_'.$luri} = join("\n",@list); |
$hash{'dirlist_files_'.$luri} = join("\n",@list); |
} else { |
} else { |
Line 689 sub get_list {
|
Line 689 sub get_list {
|
$hash{'dirlist_files_'.$luri} = join("\n",@list); |
$hash{'dirlist_files_'.$luri} = join("\n",@list); |
$hash{'dirlist_timestamp_files_'.$luri} = time; |
$hash{'dirlist_timestamp_files_'.$luri} = time; |
} |
} |
return @list=&match_ext($r,@list); |
return @list=&match_ext($r,@list); |
} |
} |
|
|
sub dynmetaread { |
sub dynmetaread { |
Line 856 sub display_line {
|
Line 856 sub display_line {
|
'\')"><img alt="" src="'.$iconpath.'server.gif"'); |
'\')"><img alt="" src="'.$iconpath.'server.gif"'); |
$r->print (' border="0" /></a>'."\n"); |
$r->print (' border="0" /></a>'."\n"); |
$r->print (&mt("Domain")." - $listname "); |
$r->print (&mt("Domain")." - $listname "); |
if ($Apache::lonnet::domaindescription{$listname}) { |
if (&Apache::lonnet::domain($listname,'description')) { |
$r->print("(".$Apache::lonnet::domaindescription{$listname}. |
$r->print("(".&Apache::lonnet::domain($listname,'description'). |
")"); |
")"); |
} |
} |
$r->print ("</form>$tabtag</tr>\n"); |
$r->print ("</form>$tabtag</tr>\n"); |
Line 1203 sub showpreview {
|
Line 1203 sub showpreview {
|
$output='<img alt="'.&mt('Preview').'" src="'.$filelink.'" />'; |
$output='<img alt="'.&mt('Preview').'" src="'.$filelink.'" />'; |
} elsif ($filelink=~m{^/res/($match_domain)/($match_username)/}) { |
} elsif ($filelink=~m{^/res/($match_domain)/($match_username)/}) { |
$output='<img alt="'.&mt('Preview').'" src="http://'. |
$output='<img alt="'.&mt('Preview').'" src="http://'. |
$Apache::lonnet::hostname{&Apache::lonnet::homeserver($2,$1)}. |
&Apache::lonnet::hostname(&Apache::lonnet::homeserver($2,$1)). |
'/cgi-bin/thumbnail.gif?url='.$filelink.'" />'; |
'/cgi-bin/thumbnail.gif?url='.$filelink.'" />'; |
} |
} |
return $output; |
return $output; |