--- loncom/homework/structuretags.pm	2006/09/27 22:42:25	1.365
+++ loncom/homework/structuretags.pm	2006/09/29 20:55:33	1.366
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: structuretags.pm,v 1.365 2006/09/27 22:42:25 albertel Exp $
+# $Id: structuretags.pm,v 1.366 2006/09/29 20:55:33 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -594,9 +594,6 @@ sub start_problem {
     }
 
     if ($target ne 'analyze') {
-	if ($target eq 'web') {
-	    &Apache::lonhomework::showhash(%Apache::lonhomework::history);
-	}
        	if ($env{'request.state'} eq 'construct') { &set_problem_state('0'); }
 	$Apache::lonhomework::type=&Apache::lonnet::EXT('resource.0.type');
 	if (($env{'request.state'} eq 'construct') &&
@@ -618,6 +615,10 @@ sub start_problem {
     $Apache::lonhomework::default_type = $Apache::lonhomework::type;
 
     &initialize_storage();
+    if ($target eq 'web') {
+	&Apache::lonxml::debug(" grading history ");
+	&Apache::lonhomework::showhash(%Apache::lonhomework::history);
+    }
 
     #added vars to the scripting enviroment
     my $expression='$external::part=\''.$Apache::inputtags::part.'\';';