--- loncom/html/res/adm/pages/annotator/admannotations.pm 2000/08/29 16:24:13 1.1
+++ loncom/html/res/adm/pages/annotator/admannotations.pm 2000/10/20 11:00:12 1.14
@@ -1,124 +1,152 @@
-#!/usr/bin/perl -T
#
# This will take annotations and then plug them into a page.
#
# 08/25/00 Ben Tyszka
#
+# 10/17,10/18,10/20 Gerd Kortemeyer
#
#
##################
-package Apache::admannotation;
+package Apache::admannotations;
use strict;
-use CGI qw(:all);
use Apache::Constants qw(:common);
-use Apache::lonnet;
-
-##########################
-#
-# The following are fake get and put functions.
-# DELETE the following get and put functions and edit the calls
-# once the module is working.
-#
-#
-#sub get {
-# return "This is a sample annotation/n hopefully it'll look nice on the screen";
-#}
-#
-#sub put {
-# return;
-#}
-#
-#
-# DELETE everything within this comment block
-#
-##########################
+use Apache::lonnet();
# --------------------------------------------------------------Put annotation
sub write_annotation {
- my $url_old=shift;
+ my $urlold=shift;
my $annotation=shift;
- put("annotations",($url_old,$annotation));
+ if ($annotation) {
+ &Apache::lonnet::put('nohist_annotations',($urlold => $annotation));
+ }
return;
}
# --------------------------------------------------------------Get annotation
sub get_annotation {
- my $url_new=shift;
- my $annotation=get("annotations",$url_new);
- return $annotation;
+ my $urlnew=shift;
+ my %annotation=&Apache::lonnet::get('nohist_annotations',$urlnew);
+ return %annotation;
}
# ------------------------------------------------------------Construct editor
sub construct_editor {
- my $url_new=shift;
my $annotation=shift;
- return(<
-
-
-
-
-
-
-