--- rat/lonpage.pm 2002/09/16 14:23:02 1.46 +++ rat/lonpage.pm 2003/02/14 19:35:55 1.49 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Page Handler # -# $Id: lonpage.pm,v 1.46 2002/09/16 14:23:02 sakharuk Exp $ +# $Id: lonpage.pm,v 1.49 2003/02/14 19:35:55 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -33,7 +33,6 @@ # 10/02,10/10,10/14,10/16,10/18,10/19,10/31,11/6,11/14,11/16, # YEAR=2001 # 08/13/01,08/30,10/1 Gerd Kortemeyer -# 12/16 Scott Harrison # YEAR=2002 # 03/19 Gerd Kortemeyer # @@ -46,6 +45,7 @@ use Apache::Constants qw(:common :http); use Apache::lonnet(); use Apache::loncommon(); use Apache::lonxml(); +use Apache::lonmenu; use HTML::TokeParser; use GDBM_File; use Apache::lonsequence; @@ -354,13 +354,13 @@ sub handler { $r->print("\n\n"); } - $r->print(&Apache::lonxml::registerurl(1,undef)); + $r->print(&Apache::lonmenu::registerurl(1,undef)); $r->print("\n\n"); # ------------------------------------------------------------------ Start body if ($isxml) { $r->print($xmlbody); } else { - $r->print(''); + $r->print(''); } # ------------------------------------------------------------------ Start form if ($nforms) { @@ -368,7 +368,7 @@ sub handler { $requrl.'">'); } } else { - $r->print('\documentclass[letterpaper]{article} + $r->print('\documentclass{article} \newcommand{\keephidden}[1]{} \usepackage[dvips]{graphicx} \usepackage{epsfig} @@ -486,7 +486,7 @@ sub handler { unless ($target eq 'tex') { $r->print("\n"); } else { - $r->print('\end{longtable}'); + $r->print('\end{longtable}\strut'); } # ---------------------------------------------------------------- Submit, etc. if ($nforms) {