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.41, 2004/09/10 17:59:13
Line 211 sub delete_dir_confirmed {	Line 211 sub delete_dir_confirmed {
$r->print('<font color="red"> An error occured (dir) ('.$result.	$r->print('<font color="red"> An error occured (dir) ('.$result.
') while trying to delete '.$directory_name.'</font><br />');	') while trying to delete '.$directory_name.'</font><br />');
} else {	} else {
	# now remove from recent
	# $r->print('<br /> removing '.$directory_name.'<br /');
	my @rem_dirs = ($directory_name.'/');
	&Apache::lonhtmlcommon::remove_recent('portfolio',\@rem_dirs);
my @dirs = split m!/!, $directory_name;	my @dirs = split m!/!, $directory_name;

# $directory_name =~ m/^(\/\/)(\/.)$/;	# $directory_name =~ m/^(\/\/)(\/.)$/;
Line 356 sub handler {	Line 360 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'}) {