--- loncom/interface/portfolio.pm 2005/01/18 17:45:06 1.72
+++ loncom/interface/portfolio.pm 2005/02/11 00:18:14 1.73
@@ -121,7 +121,7 @@ sub display_directory {
} else {
$r->print('|
Rename |
- Meta
+ | Meta
| ');
}
$r->print(' | ');
@@ -499,9 +499,19 @@ sub createdir {
sub handler {
# this handles file management
my $r = shift;
+ my $bodytag;
my $portfolio_root = &Apache::loncommon::propath($ENV{'user.domain'},
$ENV{'user.name'}).
'/userfiles/portfolio';
+ &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
+ ['selectfile','currentpath','meta',
+ 'currentfile','action','fieldname','mode','rename']);
+ if ($ENV{"form.mode"} eq 'selectfile'){
+ $bodytag = &Apache::loncommon::bodytag('Portfolio Manager',undef,undef,1);
+ } else {
+ $bodytag = &Apache::loncommon::bodytag('Portfolio Manager');
+ }
+
&Apache::loncommon::no_cache($r);
&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;
@@ -509,11 +519,8 @@ sub handler {
$r->print(''.
&mt('Portfolio Manager').
"\n".
- &Apache::loncommon::bodytag('Portfolio Manager'));
+ $bodytag);
$r->rflush();
- &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
- ['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...'.