--- loncom/xml/lonxml.pm	2006/03/08 22:15:47	1.399
+++ loncom/xml/lonxml.pm	2006/03/10 23:49:35	1.401
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # XML Parser Module 
 #
-# $Id: lonxml.pm,v 1.399 2006/03/08 22:15:47 albertel Exp $
+# $Id: lonxml.pm,v 1.401 2006/03/10 23:49:35 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1038,13 +1038,13 @@ sub init_counter {
 
 sub store_counter {
     &Apache::lonnet::appenv(('form.counter' => $Apache::lonxml::counter));
+    $Apache::lonxml::counter_changed=0;
     return '';
 }
 
 {
     my $state;
     sub clear_problem_counter {
-	&Apache::lonnet::logthis(" cpc called from ".(join(':',caller(0))));
 	undef($state);
 	&Apache::lonnet::delenv('form.counter');
 	&Apache::lonxml::init_counter();
@@ -1061,6 +1061,11 @@ sub store_counter {
 	    &Apache::lonnet::appenv(('form.counter' => $state));
 	}
     }
+    sub get_problem_counter {
+	if ($Apache::lonxml::counter_changed) { &store_counter() }
+	&Apache::lonnet::transfer_profile_to_env();
+	return $env{'form.counter'};
+    }
 }
 
 sub get_all_text {