--- loncom/homework/lonhomework.pm 2005/11/08 21:09:08 1.221
+++ loncom/homework/lonhomework.pm 2005/11/15 18:38:47 1.224
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Homework handler
#
-# $Id: lonhomework.pm,v 1.221 2005/11/08 21:09:08 albertel Exp $
+# $Id: lonhomework.pm,v 1.224 2005/11/15 18:38:47 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -766,8 +766,10 @@ sub renderpage {
$target = 'web'; $output=0;
}
my $problem=&Apache::lonnet::getfile($file);
+ my $result;
if ($problem eq -1) {
- &Apache::lonxml::error(" ".&mt('Unable to find')." $file");
+ my $filename=(split('/',$file))[-1];
+ $result.=" ".&mt('Unable to find')." $filename";
$problem='';
}
@@ -777,8 +779,8 @@ sub renderpage {
if ($target eq 'web') {&Apache::lonhomework::showhashsubset(\%env,'^form');}
&Apache::lonxml::debug("Should be parsing now");
- my $result = &Apache::lonxml::xmlparse($request, $target, $problem,
- &setup_vars($target),%mystyle);
+ $result .= &Apache::lonxml::xmlparse($request, $target, $problem,
+ &setup_vars($target),%mystyle);
undef($Apache::lonhomework::parsing_a_problem);
if (!$output) { $result = ''; }
#$request->print("Result follows:");
@@ -917,7 +919,7 @@ EDITMENU
sub handler {
#my $t0 = [&gettimeofday()];
my $request=$_[0];
-
+ $Apache::lonxml::request=$request;
$Apache::lonxml::debug=$env{'user.debug'};
$env{'request.uri'}=$request->uri;
&setuppermissions();
@@ -937,10 +939,6 @@ sub handler {
if ($Apache::lonhomework::browse ne 'F' &&
$env{'request.state'} ne "construct") {
#should know where we are, so ask
- if ( &Apache::lonnet::mod_perl_version() == 2 ) {
- &Apache::lonnet::cleanenv();
- }
- &Apache::lonnet::logthis(&Apache::lonnet::mod_perl_version());
$request->internal_redirect('/adm/ambiguous'); return OK;
}
}