--- loncom/html/res/adm/pages/annotator/admannotations.pm 2000/10/18 11:01:50 1.12
+++ loncom/html/res/adm/pages/annotator/admannotations.pm 2001/07/26 20:26:42 1.15
@@ -3,7 +3,7 @@
#
# 08/25/00 Ben Tyszka
#
-# 10/17,10/18 Gerd Kortemeyer
+# 10/17,10/18,10/20 Gerd Kortemeyer
#
#
##################
@@ -20,7 +20,7 @@ sub write_annotation {
my $urlold=shift;
my $annotation=shift;
if ($annotation) {
- &Apache::lonnet::put("annotations",($urlold => $annotation));
+ &Apache::lonnet::put('nohist_annotations',($urlold => $annotation));
}
return;
}
@@ -29,7 +29,7 @@ sub write_annotation {
sub get_annotation {
my $urlnew=shift;
- my %annotation=&Apache::lonnet::get("annotations",$urlnew);
+ my %annotation=&Apache::lonnet::get('nohist_annotations',[$urlnew]);
return %annotation;
}
@@ -37,6 +37,7 @@ sub get_annotation {
sub construct_editor {
my $annotation=shift;
+ if ($annotation=~/^error:/) { $annotation=''; }
my $urlnew=shift;
return(<