[LON-CAPA-cvs] cvs: loncom(version_2_3_X) /homework bridgetask.pm

[albertel]

albertel		Mon Feb 26 14:37:39 2007 EDT

  Modified files:              (Branch: version_2_3_X)
    /loncom/homework	bridgetask.pm 
  Log:
  - backport 1.226
  
  
Index: loncom/homework/bridgetask.pm
diff -u loncom/homework/bridgetask.pm:1.224 loncom/homework/bridgetask.pm:1.224.2.1
--- loncom/homework/bridgetask.pm:1.224	Fri Jan 26 14:06:37 2007
+++ loncom/homework/bridgetask.pm	Mon Feb 26 14:37:38 2007
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA 
 # definition of tags that give a structure to a document
 #
-# $Id: bridgetask.pm,v 1.224 2007/01/26 19:06:37 albertel Exp $
+# $Id: bridgetask.pm,v 1.224.2.1 2007/02/26 19:37:38 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2322,8 +2322,11 @@
 		    }
 		}
 		# puts the results at the end of the dimension
-		$result .= $dim_info;
-
+		if ($result =~m{<QuestionGradeInfo\s*/>}) {
+		    $result=~s{<QuestionGradeInfo\s*/>}{$dim_info};
+		} else {
+		    $result .= $dim_info;
+		}
 		# puts the results at the beginning of the dimension
 		# my $internal_location=&internal_location($dim);
 		# $result=~s/\Q$internal_location\E/$dim_info/;