[LON-CAPA-cvs] cvs: loncom /homework externalresponse.pm

[www]

www		Mon Dec 20 15:54:03 2010 EDT

  Modified files:              
    /loncom/homework	externalresponse.pm 
  Log:
  Actually output the <message> to the students (as advertised in the documentation)
  
  
Index: loncom/homework/externalresponse.pm
diff -u loncom/homework/externalresponse.pm:1.15 loncom/homework/externalresponse.pm:1.16
--- loncom/homework/externalresponse.pm:1.15	Thu Nov 20 14:37:37 2008
+++ loncom/homework/externalresponse.pm	Mon Dec 20 15:54:03 2010
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # external style responses
 #
-# $Id: externalresponse.pm,v 1.15 2008/11/20 14:37:37 jms Exp $
+# $Id: externalresponse.pm,v 1.16 2010/12/20 15:54:03 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -113,6 +113,7 @@
 		    $Apache::lonhomework::results{"resource.$part.$id.$key"}=
 			$Apache::loncapagrade::results{$key};
 		}
+                $Apache::externalresponse::message=$Apache::loncapagrade::results{'message'};
 		&Apache::response::handle_previous(\%previous,
 						   $Apache::loncapagrade::results{'awarddetail'});
 		&Apache::lonxml::debug("response of");
@@ -126,6 +127,10 @@
     }
     if ($target eq 'web') {
 	&Apache::response::setup_prior_tries_hash(\&format_prior_response);
+        if ($Apache::externalresponse::message) {
+           $result.='<br />'.$Apache::externalresponse::message;
+        }
+        $Apache::externalresponse::message='';
     }
 
     if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' ||
@@ -176,4 +181,4 @@
 
 =back
 
-=cut
\ No newline at end of file
+=cut