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

Diff for /loncom/interface/lonpopulate.pm between versions 1.40 and 1.41

version 1.40, 2006/02/10 02:59:02 version 1.41, 2006/03/15 22:11:04
Line 38  use LONCAPA::Enrollment; Line 38  use LONCAPA::Enrollment;
   
 ###############################################################  ###############################################################
 sub header {  sub header {
     my $html=&Apache::lonxml::xmlbegin();      return &Apache::loncommon::start_page('Classlist Manager');
     my $bodytag=&Apache::loncommon::bodytag('Classlist Manager');  
     return(<<ENDHEAD);  
 $html  
 <head>  
 <title>LON-CAPA Classlist Manager</title>  
 </head>  
 $bodytag  
 ENDHEAD  
 }  }
   
 ###############################################################  ###############################################################
   
 sub choose_header {  sub choose_header {
     my $action = shift;      my ($action) = @_;
     my $bodytag=&Apache::loncommon::bodytag('Classlist Manager');  
     my $scripttag = qq|      my $scripttag = qq|
 <script language='javascript' type='text/javascript'>  <script language='javascript' type='text/javascript'>
 <!--  <!--
Line 175  function countChecked(field) { Line 167  function countChecked(field) {
 // End hiding -->  // End hiding -->
 </script>  </script>
 |;  |;
     my $html=&Apache::lonxml::xmlbegin();  
     return(<<ENDHEAD);      return &Apache::loncommon::start_page('Classlist Manager',
 $html    $scripttag);
 <head>  
 <title>LON-CAPA Classlist Manager</title>  
 $scripttag  
 $bodytag  
 ENDHEAD  
 }  }
   
 sub print_mainbox {  sub print_mainbox {
Line 1267  ENDFOUR Line 1254  ENDFOUR
   
 ###############################################################  ###############################################################
 sub print_doc_base {  sub print_doc_base {
     my $r = shift;      my ($r) = @_;
     $r->print(<<ENDBASE);      $r->print(<<ENDBASE);
   </td>    </td>
  </tr>   </tr>
 </table>  </table>
 <br/>  <br />
 </body>  
 </html>   
 ENDBASE  ENDBASE
       $r->print(&Apache::loncommon::end_page());
 }  }
     
 ###################################################################  ###################################################################
Removed from v.1.40  
changed lines
  Added in v.1.41

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