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

banghart lon-capa-cvs@mail.lon-capa.org
Fri, 09 Jul 2004 17:12:39 -0000


banghart		Fri Jul  9 13:12:39 2004 EDT

  Modified files:              
    /loncom/interface	portfolio.pm 
  Log:
  	Page now looks like a lon-capa page. No more dogfood.
  
  
Index: loncom/interface/portfolio.pm
diff -u loncom/interface/portfolio.pm:1.13 loncom/interface/portfolio.pm:1.14
--- loncom/interface/portfolio.pm:1.13	Fri Jul  9 12:40:31 2004
+++ loncom/interface/portfolio.pm	Fri Jul  9 13:12:38 2004
@@ -167,12 +167,15 @@
     my $isFile;
     my $isDir;
     my $isEmpty;
-    # send header
-    # FIXME need to start using
     &Apache::loncommon::no_cache($r);
-    &Apache::loncommon::content_type($r, 'text/html');
-    &Apache::loncommon::bodytag('Portfolio Managment', 'bgcolor="dogfood"');
+    &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".
+              &Apache::loncommon::bodytag('Portfolio Manager'));
+    $r->rflush();
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                             ['selectfile','currentpath', 'currentfile']);
     # currentPath and currentFile need to be set for the rest of things to happen
@@ -250,7 +253,9 @@
     $r->print('</td>><td>');
     $r->print(displayActions($currentPath, $currentFile, $isDir, $isEmpty));
     $r->print('</td>></tr></table>');
-    $r->print('</blockquote></body>');
+    $r->print('</blockquote>');
+    $r->print("</body>\n</html>\n");
+    $r->rflush();
     return OK;
 }