[BACK]Return to portfolio.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/portfolio.pm between versions 1.12 and 1.14

version 1.12, 2004/07/09 16:36:09 version 1.14, 2004/07/09 17:12:38
Line 167  sub handler { Line 167  sub handler {
     my $isFile;      my $isFile;
     my $isDir;      my $isDir;
     my $isEmpty;      my $isEmpty;
     # send header  
     # FIXME need to start using  
     &Apache::loncommon::no_cache($r);      &Apache::loncommon::no_cache($r);
     &Apache::loncommon::content_type($r, 'text/html');      &Apache::loncommon::content_type($r,'text/html');
     &Apache::loncommon::bodytag('Portfolio Managment', 'bgcolor="dogfood"');  
     $r->send_http_header;      $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'},      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                             ['selectfile','currentpath', 'currentfile']);                                              ['selectfile','currentpath', 'currentfile']);
     # currentPath and currentFile need to be set for the rest of things to happen      # currentPath and currentFile need to be set for the rest of things to happen
Line 220  sub handler { Line 223  sub handler {
     @dirList = @list;      @dirList = @list;
     if (@dirList == 2) { # need to know if directory is empty so it can be removed if desired      if (@dirList == 2) { # need to know if directory is empty so it can be removed if desired
         $isEmpty = 1;          $isEmpty = 1;
     }else{      } else {
         $isEmpty = 0;          $isEmpty = 0;
     }      }
     # Stuff to maintain proper setting for selected file      # Stuff to maintain proper setting for selected file
Line 250  sub handler { Line 253  sub handler {
     $r->print('</td>><td>');      $r->print('</td>><td>');
     $r->print(displayActions($currentPath, $currentFile, $isDir, $isEmpty));      $r->print(displayActions($currentPath, $currentFile, $isDir, $isEmpty));
     $r->print('</td>></tr></table>');      $r->print('</td>></tr></table>');
     $r->print('</blockquote></body>');      $r->print('</blockquote>');
       $r->print("</body>\n</html>\n");
       $r->rflush();
     return OK;      return OK;
 }  }
   
Removed from v.1.12  
changed lines
  Added in v.1.14

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>