[LON-CAPA-cvs] cvs: loncom(version_2_8_X) /html/res/adm/pages/annotator admannotations.pm

[raeburn]

raeburn		Thu Dec 11 13:36:56 2008 EDT

  Modified files:              (Branch: version_2_8_X)
    /loncom/html/res/adm/pages/annotator	admannotations.pm 
  Log:
  - Backport 1.31.
  
  
Index: loncom/html/res/adm/pages/annotator/admannotations.pm
diff -u loncom/html/res/adm/pages/annotator/admannotations.pm:1.28 loncom/html/res/adm/pages/annotator/admannotations.pm:1.28.2.1
--- loncom/html/res/adm/pages/annotator/admannotations.pm:1.28	Thu Sep 11 20:44:54 2008
+++ loncom/html/res/adm/pages/annotator/admannotations.pm	Thu Dec 11 13:36:56 2008
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # This will take annotations and then plug them into a page.
 #
-# $Id: admannotations.pm,v 1.28 2008/09/11 20:44:54 tempelho Exp $
+# $Id: admannotations.pm,v 1.28.2.1 2008/12/11 13:36:56 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -40,8 +40,7 @@
 sub write_annotation {
     my ($symb, $enc, $annotation) = @_;
 
-    
-    $annotation=~s/$^\s*$//;
+    $annotation=~s/^\s*$//;
     my $key = $symb;
     if (!$enc) {
 	$key =