version 1.88, 2005/09/09 19:12:29
|
version 1.91, 2005/12/19 20:41:45
|
Line 132 sub display_directory {
|
Line 132 sub display_directory {
|
$r->print('<form method="post" action="/adm/portfolio">'); |
$r->print('<form method="post" action="/adm/portfolio">'); |
} |
} |
my $href_location="/uploaded/$env{'user.domain'}/$env{'user.name'}/portfolio$current_path"; |
my $href_location="/uploaded/$env{'user.domain'}/$env{'user.name'}/portfolio$current_path"; |
my $href_edit_location="/editupload/$env{'user.domain'}/$env{'user.name'}/portfolio$current_path"; |
my $href_edit_location="/editupload/$env{'user.domain'}/$env{'user.name'}/portfolio$current_path/"; |
foreach my $line (sort |
foreach my $line (sort |
{ |
{ |
my ($afile)=split('&',$a,2); |
my ($afile)=split('&',$a,2); |
Line 165 sub display_directory {
|
Line 165 sub display_directory {
|
if (exists $locked_files{$current_path.$filename}){ |
if (exists $locked_files{$current_path.$filename}){ |
$r->print('<td colspan="2"><a href="portfolio?lockinfo='.$current_path.$filename.'">Locked</a></td>'); |
$r->print('<td colspan="2"><a href="portfolio?lockinfo='.$current_path.$filename.'">Locked</a></td>'); |
} else { |
} else { |
|
my $cat='<img alt="'.&mt('Catalog Information'). |
|
'" src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/catalog.gif').'" />'; |
$r->print('<td><input type="checkbox" name="selectfile" value="'.$filename.'" /> |
$r->print('<td><input type="checkbox" name="selectfile" value="'.$filename.'" /> |
<a href="/adm/portfolio?rename='.$filename.'&currentpath='.$current_path.'">Rename</a></td> |
<a href="/adm/portfolio?rename='.$filename.'&currentpath='.$current_path.'">Rename</a></td> |
<td><a href="'.$href_edit_location.$filename.'.meta">Meta</a> |
<td><a href="'.$href_edit_location.$filename.'.meta">'.$cat.'</a> |
</td>'); |
</td>'); |
} |
} |
} |
} |
$r->print('<td><img src="'.$iconpath.'unknown.gif"></td>'); |
$r->print('<td><img src="'.&Apache::loncommon::icon($filename).'"></td>'); |
$r->print('<td><a href="'.$href_location.$filename.'">'. |
$r->print('<td><a href="'.$href_location.$filename.'">'. |
$filename.'</a></td>'); |
$filename.'</a></td>'); |
$r->print('<td>'.$size.'</td>'); |
$r->print('<td>'.$size.'</td>'); |
Line 616 sub handler {
|
Line 618 sub handler {
|
&display_common($r,$current_path,$is_empty,\@dir_list); |
&display_common($r,$current_path,$is_empty,\@dir_list); |
&display_directory($r,$current_path,$is_empty,\@dir_list); |
&display_directory($r,$current_path,$is_empty,\@dir_list); |
$r->print("</body>\n</html>\n"); |
$r->print("</body>\n</html>\n"); |
return OK; |
|
} |
} |
|
return OK; |
} |
} |
1; |
1; |
__END__ |
__END__ |