--- loncom/html/res/adm/pages/annotator/admannotations.pm 2000/10/10 07:51:11 1.8 +++ loncom/html/res/adm/pages/annotator/admannotations.pm 2000/10/14 16:58:19 1.10 @@ -28,8 +28,8 @@ sub write_annotation { sub get_annotation { my $urlnew=shift; - my @annotation=Apache::lonnet::get("annotations",$urlnew); - return @annotation; + my %annotation=Apache::lonnet::get("annotations",$urlnew); + return %annotation; } # ------------------------------------------------------------Construct editor @@ -51,7 +51,7 @@ function getDomain() {
-
+
@@ -82,7 +82,7 @@ function getDomain() {
- +
@@ -106,7 +106,7 @@ END_HTML2 sub handler { my $r=shift; my $page; - my @annot_hash; + my %annot_hash; my $urlold; my $annotation; my $urlnew; @@ -123,11 +123,11 @@ sub handler { $page=construct_error("Cannot annotate current window. Please point your browser to a Lon-CAPA page and then 'continue'.","continue"); } else { if ($urlold eq $urlnew) { - @annot_hash=($annotation); + $annot_hash{$urlnew}=$annotation; } else { - @annot_hash=get_annotation($urlnew); + %annot_hash=get_annotation($urlnew); } - $page=construct_editor($annot_hash[0],$urlnew); + $page=construct_editor($annot_hash{$urlnew},$urlnew); } } else { $page=construct_error("Connection broken with home server. Please contact your system administrator.","try again");