--- loncom/homework/lonhomework.pm 2007/08/24 22:58:18 1.272
+++ loncom/homework/lonhomework.pm 2007/10/05 18:08:40 1.275
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# The LON-CAPA Homework handler
#
-# $Id: lonhomework.pm,v 1.272 2007/08/24 22:58:18 albertel Exp $
+# $Id: lonhomework.pm,v 1.275 2007/10/05 18:08:40 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -436,7 +436,7 @@ sub check_access {
$date = &mt("an indeterminate date"); $passed = 0;
} else {
if (time < $date) { $passed = 0; } else { $passed = 1; }
- $date = localtime $date;
+ $date = &Apache::lonlocal::locallocaltime($date);
}
if (!$passed) { $type=$temp; last; }
}
@@ -788,6 +788,14 @@ sub analyze {
$i++;
}
}
+ if (!keys(%{ $analyze{$part.'.answer'} })) {
+ my $answer_part =
+ [''.&mt('Error').''];
+ $seedexample{join("\0",$part,0,@{$answer_part})}=
+ $thisseed;
+ push( @{ $overall{$part.'.answer'}[0] },
+ $answer_part);
+ }
}
}
}
@@ -951,7 +959,7 @@ sub renderpage {
&Apache::lonxml::debug("Should be parsing now");
$result .= &Apache::lonxml::xmlparse($request, $target, $problem,
&setup_vars($target),%mystyle);
- undef($Apache::lonhomework::parsing_a_problem);
+ &finished_parsing();
if (!$output) { $result = ''; }
#$request->print("Result follows:");
if ($target eq 'modified') {
@@ -982,6 +990,11 @@ sub renderpage {
}
}
+sub finished_parsing {
+ undef($Apache::lonhomework::parsing_a_problem);
+ undef($Apache::lonhomework::parsing_a_task);
+}
+
# with no arg it returns a HTML