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

Diff for /loncom/interface/lonpopulate.pm between versions 1.20 and 1.22

version 1.20, 2004/09/13 16:21:30 version 1.22, 2005/02/17 08:50:20
Line 38  use LONCAPA::Enrollment; Line 38  use LONCAPA::Enrollment;
   
 ###############################################################  ###############################################################
 sub header {  sub header {
       my $html=&Apache::lonxml::xmlbegin();
     my $bodytag=&Apache::loncommon::bodytag('Classlist Manager');      my $bodytag=&Apache::loncommon::bodytag('Classlist Manager');
     return(<<ENDHEAD);      return(<<ENDHEAD);
 <html>  $html
 <head>  <head>
 <title>LON-CAPA Classlist Manager</title>  <title>LON-CAPA Classlist Manager</title>
 </head>  </head>
Line 193  function countChecked(field) { Line 194  function countChecked(field) {
 // End hiding -->  // End hiding -->
 </script>  </script>
 |;  |;
       my $html=&Apache::lonxml::xmlbegin();
     return(<<ENDHEAD);      return(<<ENDHEAD);
 <html>  $html
 <head>  <head>
 <title>LON-CAPA Classlist Manager</title>  <title>LON-CAPA Classlist Manager</title>
 $scripttag  $scripttag
Line 2558  sub date_setting_table { Line 2560  sub date_setting_table {
 sub handler {  sub handler {
     my $r = shift;      my $r = shift;
     if ($r->header_only) {      if ($r->header_only) {
         $r->content_type('text/html');   &Apache::loncommon::content_type($r,'text/html');
         $r->send_http_header;          $r->send_http_header;
         return OK;          return OK;
     }      }
Line 2570  sub handler { Line 2572  sub handler {
         return HTTP_NOT_ACCEPTABLE;           return HTTP_NOT_ACCEPTABLE; 
     }      }
     # Start page      # Start page
     $r->content_type('text/html');      &Apache::loncommon::content_type($r,'text/html');
     $r->send_http_header;      $r->send_http_header;
   
     my @tasks = ("information","chgsettings","setdates","setaccess","notify","crosslist","sections","photos","updatenow","viewclass");      my @tasks = ("information","chgsettings","setdates","setaccess","notify","crosslist","sections","photos","updatenow","viewclass");
Removed from v.1.20  
changed lines
  Added in v.1.22

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