--- loncom/homework/inputtags.pm 2006/05/30 18:08:35 1.193
+++ loncom/homework/inputtags.pm 2006/06/05 18:53:03 1.194
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# input definitons
#
-# $Id: inputtags.pm,v 1.193 2006/05/30 18:08:35 albertel Exp $
+# $Id: inputtags.pm,v 1.194 2006/06/05 18:53:03 banghart Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -447,6 +447,7 @@ sub file_selector {
push(@filelist,''.$file.'');
if (! &Apache::lonnet::stat_file($url)) {
+ &Apache::lonnet::logthis("bad file is $url");
push(@bad_file_list,''.$file.'');
}
@@ -548,8 +549,8 @@ sub decideoutput {
if ($previous) { $previousmsg=&mt('You have entered that answer before'); }
- if ($solved =~ /^correct/) {
- $bgcolor=$possiblecolors{'correct'};
+ if ($solved =~ /^correct/) {
+ $bgcolor=$possiblecolors{'correct'};
$message=&mt('You are correct.');
if ($awarded < 1 && $awarded > 0) {
$message=&mt('You are partially correct.');
@@ -716,6 +717,14 @@ sub decideoutput {
$message = &mt("Unknown message").": $award";
$button=1;
}
+ my (undef,undef,$domain,$user)=&Apache::lonxml::whichuser();
+ foreach my $resid(@Apache::inputtags::response){
+ &Apache::lonnet::logthis("handback is ".$Apache::lonhomework::history{"resource.$part.$resid.handback"});
+ if ($Apache::lonhomework::history{"resource.$part.$resid.handback"}) {
+ $message.= '
Returned File';
+ }
+ }
+
if (lc($Apache::lonhomework::problemstatus) eq 'no' &&
$Apache::inputtags::status[-1] ne 'SHOW_ANSWER') {
$message = &mt("Answer Submitted: Your final submission will be graded after the due date.");