loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.39, 2004/09/08 20:34:28	version 1.40, 2004/09/09 17:53:59
Line 356 sub handler {	Line 356 sub handler {
&Apache::lonnet::mkdiruserfile($ENV{'user.name'},	&Apache::lonnet::mkdiruserfile($ENV{'user.name'},
$ENV{'user.domain'},'portfolio');	$ENV{'user.domain'},'portfolio');
}	}
	if (($ENV{'form.storeupl'} eq 'Upload') & (!$ENV{'form.uploaddoc.filename'})){
	$r->print('<font color="red"> No file was selected to upload.'.
	'To upload a file, click <strong>Browse...</strong>'.
	', select a file, then click <strong>Upload</strong>,</font>');
	}
if ($ENV{'form.uploaddoc.filename'}) {	if ($ENV{'form.uploaddoc.filename'}) {
&upload($r);	&upload($r);
} elsif ($ENV{'form.action'} eq 'delete' && $ENV{'form.confirmed'}) {	} elsif ($ENV{'form.action'} eq 'delete' && $ENV{'form.confirmed'}) {