--- loncom/interface/portfolio.pm 2004/12/21 22:34:07 1.69 +++ loncom/interface/portfolio.pm 2005/01/18 01:27:09 1.70 @@ -96,7 +96,7 @@ sub display_directory { return; } $r->print(''. - ''); + ''); my $href_location="/uploaded/$ENV{'user.domain'}/$ENV{'user.name'}/portfolio$current_path"; $r->print(''); foreach my $line (sort @@ -110,17 +110,18 @@ sub display_directory { my ($filename,$dom,undef,$testdir,undef,undef,undef,undef,$size,undef,$mtime,undef,undef,undef,$obs,undef)=split(/\&/,$line,16); if (($filename ne '.') && ($filename ne '..')) { if ($dirptr&$testdir) { - $r->print(''); + $r->print(''); $r->print(''); $r->print(''); $r->print(''); } else { $r->print(''); if (exists $locked_files{$current_path.$filename}){ - $r->print(''); + $r->print(''); } else { - $r->print(' + '); } $r->print(''); @@ -511,13 +512,21 @@ sub handler { &Apache::loncommon::bodytag('Portfolio Manager')); $r->rflush(); &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, - ['selectfile','currentpath', + ['selectfile','currentpath','meta', 'currentfile','action','fieldname','mode','rename']); if (($ENV{'form.storeupl'} eq 'Upload') & (!$ENV{'form.uploaddoc.filename'})){ $r->print(' No file was selected to upload.'. 'To upload a file, click Browse...'. ', select a file, then click Upload,'); } + if ($ENV{'form.meta'}) { + &open_form($r); + $r->print('Edit the meta data
'); + &close_form($r); + } + if ($ENV{'form.store'}) { + } + if ($ENV{'form.uploaddoc.filename'}) { &upload($r); } elsif ($ENV{'form.action'} eq 'delete' && $ENV{'form.confirmed'}) {
Actions NameSizeLast Modified
Actions NameSizeLast Modified
Go to ...'.&make_anchor($filename.'/',$current_path.$filename.'/',$ENV{'form.mode'},$ENV{"form.fieldname"}).'
LockedLockedDelete - Rename + $r->print(' + RenameMeta