loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.35, 2004/08/28 15:57:35	version 1.36, 2004/09/06 23:11:57
Line 443 sub handler {	Line 443 sub handler {
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['selectfile','currentpath',	['selectfile','currentpath',
'currentfile']);	'currentfile']);
	# make sure there is a portfolio directory off /userfiles
	my @dir_list=&Apache::lonnet::dirlist('/',
	$ENV{'user.domain'},
	$ENV{'user.name'},$portfolio_root);
	if ($dir_list[0] eq 'no_such_dir'){
	&Apache::lonnet::mkdiruserfile($ENV{'user.name'},
	$ENV{'user.domain'},'portfolio');
	}
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'}) {