loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.34, 2004/08/27 15:45:33	version 1.35, 2004/08/28 15:57:35
Line 390 sub upload {	Line 390 sub upload {
$found_file = 1;	$found_file = 1;
}	}
}	}
	$r->print('<br />'.&Apache::lonnet::diskusage($ENV{'user.domain'}, $ENV{'user.name'},$portfolio_root).'<br />');
if ($found_file){	if ($found_file){
$r->print('<font color="red">Unable to upload <strong>'.$fname.'</strong>, a file by that name was found in <strong>'.$ENV{'form.currentpath'}.'</strong></font>'.	$r->print('<font color="red">Unable to upload <strong>'.$fname.'</strong>, a file by that name was found in <strong>'.$ENV{'form.currentpath'}.'</strong></font>'.
'<br />To upload, rename or delete existing '.$fname.' in '.$ENV{'form.currentpath'});	'<br />To upload, rename or delete existing '.$fname.' in '.$ENV{'form.currentpath'});