--- loncom/html/res/adm/pages/annotator/admannotations.pm	2000/09/07 20:15:17	1.2
+++ loncom/html/res/adm/pages/annotator/admannotations.pm	2000/09/07 20:59:00	1.3
@@ -98,7 +98,7 @@ sub handler {
          write_annotation($url_old,$annotation);
     }
     if (my $url_new=param("url_new")) {
-#        my %annot_hash;
+        my %annot_hash;
 #        $r->print("$url_new \n");                                      #debug line
 #        $r->print($url_old);                                           #debug line
 #	 $r->print("<--the url_new <BR>\n");                            #debug line
@@ -112,9 +112,11 @@ sub handler {
 #	 $r->print("<--test put-get<BR>\n");                            #debug line
 #        $r->print($annotation);                                        #debug line
 #	 $r->print("<--annotation<BR>\n");                              #debug line
-#         unless ($url_old eq $url_new) {
-         my %annot_hash=get_annotation($url_new);
-#         }
+        if ($url_old eq $url_new) {
+	   %annot_hash=($url_new => $annotation);
+	} else {
+	   %annot_hash=get_annotation($url_new);
+        }
 #	 $r->print($annotation);                                        #debug line
 #	 $r->print("<--annotation again<BR>\n");                        #debug line
 	 my $page=construct_editor($url_new,%annot_hash);