[LON-CAPA-cvs] cvs: loncom /interface portfolio.pm

Fri, 11 Feb 2005 06:18:52 -0000

banghart		Fri Feb 11 01:18:52 2005 EDT

  Modified files:              
    /loncom/interface	portfolio.pm 
  Log:
  	Better fix (I think) for losing inline menu in file select.
  
  
Index: loncom/interface/portfolio.pm
diff -u loncom/interface/portfolio.pm:1.73 loncom/interface/portfolio.pm:1.74

--- loncom/interface/portfolio.pm:1.73	Thu Feb 10 19:18:14 2005
+++ loncom/interface/portfolio.pm	Fri Feb 11 01:18:52 2005
@@ -499,27 +499,24 @@
 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;
     # Give the LON-CAPA page header
     $r->print('<html><head><title>'.
               &mt('Portfolio Manager').
-              "</title></head>\n".
-              $bodytag);
+              "</title></head>\n");
+    if ($ENV{"form.mode"} eq 'selectfile'){
+        $r->print(&Apache::loncommon::bodytag('Portfolio Manager',undef,undef,1));
+    } else {
+        $r->print(&Apache::loncommon::bodytag('Portfolio Manager'));
+    }
     $r->rflush();
 	if (($ENV{'form.storeupl'} eq 'Upload') & (!$ENV{'form.uploaddoc.filename'})){
    	    $r->print('<font color="red"> No file was selected to upload.'.



