--- loncom/homework/lonsimpleproblemedit.pm 2005/05/26 20:35:53 1.16 +++ loncom/homework/lonsimpleproblemedit.pm 2006/05/30 12:45:37 1.18 @@ -1,7 +1,7 @@ # The LearningOnline Network # Simple Problem Parameter Setting "Editor" # -# $Id: lonsimpleproblemedit.pm,v 1.16 2005/05/26 20:35:53 albertel Exp $ +# $Id: lonsimpleproblemedit.pm,v 1.18 2006/05/30 12:45:37 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -34,6 +34,9 @@ use Apache::loncommon; use Apache::lonnet; use Apache::lonlocal; use Apache::lonnavmaps; +use lib '/home/httpd/lib/perl/'; +use LONCAPA; + my %qparms; my $prefix; @@ -146,7 +149,7 @@ sub get_parent_uri { } my ($src,$symb,$anchor)=&Apache::lonnavmaps::getLinkForResource($it->getStack()); if (defined($anchor)) { $anchor='#'.$anchor; } - return $src.'?symb='.&Apache::lonnet::escape($symb).$anchor; + return $src.'?symb='.&escape($symb).$anchor; } sub handler { @@ -212,14 +215,8 @@ sub handler { # ------------------------------------------------------------ Print the screen my $spell_header=&Apache::lonhtmlcommon::spellheader(); - $r->print(< - -The LearningOnline Network with CAPA -$spell_header - -ENDDOCUMENT - $r->print(&Apache::loncommon::bodytag('Simple Problem Editor')); + $r->print(&Apache::loncommon::start_page('Simple Problem Editor', + $spell_header)); if ($symb) { $r->print('

'.&Apache::lonnet::gettitle($symb).'

'); $r->print('
'. @@ -317,7 +314,7 @@ ENDDOCUMENT } else { $r->print(&mt('Could not identify problem.')); } - $r->print(''); + $r->print(&Apache::loncommon::end_page()); return OK; }