--- 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'}) {