--- loncom/html/res/adm/pages/annotator/admannotations.pm	2008/09/11 20:44:54	1.28
+++ loncom/html/res/adm/pages/annotator/admannotations.pm	2008/12/11 13:33:48	1.31
@@ -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.31 2008/12/11 13:33:48 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -27,6 +27,7 @@
 #
 ##################
 
+
 package Apache::admannotations;
 
 use strict;
@@ -40,8 +41,7 @@ use Apache::lonlocal;
 sub write_annotation {
     my ($symb, $enc, $annotation) = @_;
 
-    
-    $annotation=~s/$^\s*$//;
+    $annotation=~s/^\s*$//;
     my $key = $symb;
     if (!$enc) {
 	$key = 
@@ -205,3 +205,41 @@ sub handler {
 1;
 __END__
 
+=pod
+
+=head1 NAME
+
+Apache::admannotations
+
+=head1 SYNOPSIS
+
+This will take annotations and then plug them into a page.
+
+This is part of the LearningOnline Network with CAPA project
+described at http://www.lon-capa.org.
+
+=head1 OVERVIEW
+
+(empty)
+
+=head1 SUBROUTINES
+
+=over write_annotation()
+
+Put annotation
+
+=item js_get_symb()
+
+Construct editor
+
+=item construct_editor()
+
+=item construct_error()
+
+=item handler()
+
+=back
+
+=cut
+
+