--- loncom/homework/loncapagrade.pm	2005/10/18 14:14:12	1.3
+++ loncom/homework/loncapagrade.pm	2007/09/11 19:07:01	1.4
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # external style responses
 #
-# $Id: loncapagrade.pm,v 1.3 2005/10/18 14:14:12 albertel Exp $
+# $Id: loncapagrade.pm,v 1.4 2007/09/11 19:07:01 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -31,18 +31,18 @@ use strict;
 
 #Globals
 # results of parse end up in here
-%Apache::loncapagrade::result=();
+undef(%Apache::loncapagrade::results);
 
 BEGIN {
 #  &Apache::lonxml::register('Apache::loncapagrade',
-#			    ('loncapagrade','awardetail','message'));
+#			    ('loncapagrade','awarddetail','message'));
 }
 
 sub start_loncapagrade {
     my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_;
     my $result;
     if ($target eq 'grade') {
-	%Apache::loncapagrade::results=();
+	undef(%Apache::loncapagrade::results);
 	&Apache::lonxml::register('Apache::loncapagrade',
 				  ('awarddetail','message'));
     }
@@ -54,7 +54,7 @@ sub end_loncapagrade {
     my $result;
     if ($target eq 'grade') {
 	&Apache::lonxml::deregister('Apache::loncapagrade',
-				    ('loncapagrade','awardetail','message'));
+				    ('loncapagrade','awarddetail','message'));
     }
     return $result;
 }