--- loncom/interface/lonpopulate.pm 2004/09/13 16:21:30 1.20 +++ loncom/interface/lonpopulate.pm 2005/02/17 08:50:20 1.22 @@ -1,5 +1,5 @@ # automated enrollment configuration handler -# $Id: lonpopulate.pm,v 1.20 2004/09/13 16:21:30 raeburn Exp $ +# $Id: lonpopulate.pm,v 1.22 2005/02/17 08:50:20 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -38,9 +38,10 @@ use LONCAPA::Enrollment; ############################################################### sub header { + my $html=&Apache::lonxml::xmlbegin(); my $bodytag=&Apache::loncommon::bodytag('Classlist Manager'); return(< +$html LON-CAPA Classlist Manager @@ -193,8 +194,9 @@ function countChecked(field) { // End hiding --> |; + my $html=&Apache::lonxml::xmlbegin(); return(< +$html LON-CAPA Classlist Manager $scripttag @@ -2558,7 +2560,7 @@ sub date_setting_table { sub handler { my $r = shift; if ($r->header_only) { - $r->content_type('text/html'); + &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; return OK; } @@ -2570,7 +2572,7 @@ sub handler { return HTTP_NOT_ACCEPTABLE; } # Start page - $r->content_type('text/html'); + &Apache::loncommon::content_type($r,'text/html'); $r->send_http_header; my @tasks = ("information","chgsettings","setdates","setaccess","notify","crosslist","sections","photos","updatenow","viewclass");