--- rat/lonpage.pm 2006/04/04 19:54:51 1.74 +++ rat/lonpage.pm 2006/12/12 18:49:27 1.76 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Page Handler # -# $Id: lonpage.pm,v 1.74 2006/04/04 19:54:51 albertel Exp $ +# $Id: lonpage.pm,v 1.76 2006/12/12 18:49:27 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -39,6 +39,9 @@ use Apache::lonmenu; use HTML::TokeParser; use GDBM_File; use Apache::lonsequence; +use lib '/home/httpd/lib/perl/'; +use LONCAPA; + # -------------------------------------------------------------- Module Globals my %hash; @@ -426,13 +429,13 @@ sub handler { $esrc=&Apache::lonenc::encrypted($esrc); } unless ($hash{'src_'.$rid} =~ m-^/uploaded/-) { - $metainfo =''. + $metainfo =''. ''. ''. ''; } $metainfo .= ''. ''. ''; @@ -446,17 +449,17 @@ sub handler { '___'.$resid.'___'. &Apache::lonnet::declutter($hash{'src_'.$rid}); $metainfo.= - ''. '&command=submission">'. ''. ''. - ''. '&command=gradingmenu">'. ''. ''. - ''. '" >'. ''. @@ -539,7 +542,8 @@ sub handler { (($nforms>1)?'submit':'hidden').'">'); } unless ($target eq 'tex') { - $r->print(&Apache::loncommon::end_page()); + $r->print(&Apache::loncommon::end_page({'discussion' + => 1,})); } else { $r->print('\end{document}'.$number_of_columns); }