--- loncom/interface/portfolio.pm 2004/08/27 15:45:33 1.34 +++ loncom/interface/portfolio.pm 2004/09/06 23:11:57 1.36 @@ -390,6 +390,7 @@ sub upload { $found_file = 1; } } + $r->print('
'.&Apache::lonnet::diskusage($ENV{'user.domain'}, $ENV{'user.name'},$portfolio_root).'
'); if ($found_file){ $r->print('Unable to upload '.$fname.', a file by that name was found in '.$ENV{'form.currentpath'}.''. '
To upload, rename or delete existing '.$fname.' in '.$ENV{'form.currentpath'}); @@ -442,7 +443,14 @@ sub handler { &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, ['selectfile','currentpath', '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'}) { &upload($r); } elsif ($ENV{'form.action'} eq 'delete' && $ENV{'form.confirmed'}) {