loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.88, 2005/09/09 19:12:29	version 1.89, 2005/12/09 23:49:45
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>');
}	}
}	}