--- loncom/html/res/adm/pages/annotator/admannotations.pm 2000/10/18 13:59:18 1.13 +++ 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; }