loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.217, 2009/11/04 18:33:28	version 1.219, 2010/02/02 01:51:49
Line 223 sub display_usage {	Line 223 sub display_usage {
' <div id="meter3" style="display:block; background-color:'.$color.'; width:'.$prog_width.'%; height:10px; color:#000000; margin:0px;"></div>'."\n".	' <div id="meter3" style="display:block; background-color:'.$color.'; width:'.$prog_width.'%; height:10px; color:#000000; margin:0px;"></div>'."\n".
' </div>'."\n".	' </div>'."\n".
' </div>';	' </div>';
return $disk_meter;	return &Apache::loncommon::head_subbox($disk_meter);
}	}

sub display_directory_line {	sub display_directory_line {
Line 453 sub display_directory {	Line 453 sub display_directory {
$line .= '<input type="checkbox" name="selectfile" value="'.$filename.'" />';	$line .= '<input type="checkbox" name="selectfile" value="'.$filename.'" />';
}	}
if ($can_modify) {	if ($can_modify) {
my $cat='<img class="LC_icon" alt="'.&mt('Metadata').'"/>';	my $cat='<img class="LC_icon" alt="'.&mt('Metadata').'" title="'.&mt('Metadata').'" src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/catalog.png').'" />';
# src="'.#&Apache::loncommon::lonhttpdurl('/res/adm/pages/catalog.gif').'" />';
my %anchor_fields = (	my %anchor_fields = (
'rename' => $filename,	'rename' => $filename,
currentpath => $current_path	currentpath => $current_path