--- loncom/interface/lonpopulate.pm 2006/02/10 02:59:02 1.40 +++ loncom/interface/lonpopulate.pm 2006/03/15 22:11:04 1.41 @@ -1,5 +1,5 @@ # automated enrollment configuration handler -# $Id: lonpopulate.pm,v 1.40 2006/02/10 02:59:02 raeburn Exp $ +# $Id: lonpopulate.pm,v 1.41 2006/03/15 22:11:04 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -38,22 +38,14 @@ use LONCAPA::Enrollment; ############################################################### sub header { - my $html=&Apache::lonxml::xmlbegin(); - my $bodytag=&Apache::loncommon::bodytag('Classlist Manager'); - return(< -LON-CAPA Classlist Manager - -$bodytag -ENDHEAD + return &Apache::loncommon::start_page('Classlist Manager'); } ############################################################### sub choose_header { - my $action = shift; - my $bodytag=&Apache::loncommon::bodytag('Classlist Manager'); + my ($action) = @_; + my $scripttag = qq| |; - my $html=&Apache::lonxml::xmlbegin(); - return(< -LON-CAPA Classlist Manager -$scripttag -$bodytag -ENDHEAD + + return &Apache::loncommon::start_page('Classlist Manager', + $scripttag); } sub print_mainbox { @@ -1267,15 +1254,14 @@ ENDFOUR ############################################################### sub print_doc_base { - my $r = shift; + my ($r) = @_; $r->print(< -
- - +
ENDBASE + $r->print(&Apache::loncommon::end_page()); } ###################################################################