--- loncom/homework/structuretags.pm	2010/08/30 14:06:16	1.475
+++ loncom/homework/structuretags.pm	2010/10/04 18:28:53	1.476
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.475 2010/08/30 14:06:16 raeburn Exp $
+# $Id: structuretags.pm,v 1.476 2010/10/04 18:28:53 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -783,6 +783,7 @@ sub init_problem_globals {
 	&Apache::lonhomework::reset_show_problem_status();
 	$Apache::lonhomework::ignore_response_errors=1;
     }
+    $Apache::functionplotresponse::callscripts='';
     @Apache::inputtags::responselist = ();
     @Apache::inputtags::importlist = ();
     @Apache::inputtags::previous=();
@@ -810,6 +811,7 @@ sub reset_problem_globals {
     undef($Apache::lonhomework::type);
     undef($Apache::lonhomework::scantronmode);
     undef($Apache::lonhomework::ignore_response_errors);
+    undef($Apache::functionplotresponse::callscripts);
     &Apache::lonhomework::reset_show_problem_status();
 }
 
@@ -1202,6 +1204,9 @@ sub end_problem {
 		}
 	    }
 	}
+        if ($target eq 'web') {
+           $result.=&Apache::functionplotresponse::init_script();
+        }
 	if ($target eq 'grade') {
 	    &Apache::lonhomework::showhash(%Apache::lonhomework::results);
 	    &finalize_storage();