--- loncom/interface/lonpickcourse.pm 2006/02/02 17:57:40 1.39 +++ loncom/interface/lonpickcourse.pm 2006/03/15 22:11:04 1.40 @@ -1,7 +1,7 @@ # The LearningOnline Network # Pick a course # -# $Id: lonpickcourse.pm,v 1.39 2006/02/02 17:57:40 albertel Exp $ +# $Id: lonpickcourse.pm,v 1.40 2006/03/15 22:11:04 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -42,13 +42,9 @@ sub handler { return OK if $r->header_only; # ------------------------------------------------------------ Print the screen - my $html=&Apache::lonxml::xmlbegin(); - $r->print(< -The LearningOnline Network with CAPA - -ENDDOCUMENT + $r->print(&Apache::lonxml::xmlbegin(). + &Apache::loncommon::head()); + # Get parameters from query string &Apache::loncommon::get_unprocessed_cgi ($ENV{'QUERY_STRING'},['domainfilter','descriptfilter', @@ -336,7 +332,7 @@ ENDSCRIPT } $r->print("\n"); } - $r->print(''); + $r->print(&Apache::loncommon::end_page()); return OK; }