--- loncom/interface/lonevaluate.pm 2004/11/11 22:20:12 1.13 +++ loncom/interface/lonevaluate.pm 2005/02/17 08:29:42 1.15 @@ -1,7 +1,7 @@ # The LearningOnline Network # Evaluate # -# $Id: lonevaluate.pm,v 1.13 2004/11/11 22:20:12 albertel Exp $ +# $Id: lonevaluate.pm,v 1.15 2005/02/17 08:29:42 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -38,9 +38,10 @@ package Apache::lonevaluate; use strict; -use Apache::lonnet; +use Apache::lonnet(); use Apache::Constants qw(:common); -use Apache::loncommon; +use Apache::loncommon(); +use Apache::lonenc(); sub handler { my $r = shift; @@ -92,8 +93,9 @@ sub handler { } if ($complete) { my $showurl=&Apache::lonenc::check_encrypt(&Apache::lonnet::clutter($feedurl)); - $r->print(< + my $html=&Apache::lonxml::xmlbegin(); + $r->print(< Evaluation submitted