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

raeburn raeburn@source.lon-capa.org
Thu, 11 Dec 2008 13:33:48 -0000


raeburn		Thu Dec 11 13:33:48 2008 EDT

  Modified files:              
    /loncom/html/res/adm/pages/annotator	admannotations.pm 
  Log:
  - Probably what was intended in rev 1.28. 
  
  
Index: loncom/html/res/adm/pages/annotator/admannotations.pm
diff -u loncom/html/res/adm/pages/annotator/admannotations.pm:1.30 loncom/html/res/adm/pages/annotator/admannotations.pm:1.31
--- loncom/html/res/adm/pages/annotator/admannotations.pm:1.30	Thu Nov 20 14:37:45 2008
+++ loncom/html/res/adm/pages/annotator/admannotations.pm	Thu Dec 11 13:33:48 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.30 2008/11/20 14:37:45 jms Exp $
+# $Id: admannotations.pm,v 1.31 2008/12/11 13:33:48 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -41,8 +41,7 @@
 sub write_annotation {
     my ($symb, $enc, $annotation) = @_;
 
-    
-    $annotation=~s/$^\s*$//;
+    $annotation=~s/^\s*$//;
     my $key = $symb;
     if (!$enc) {
 	$key =