--- loncom/html/res/adm/pages/annotator/admannotations.pm 2001/12/19 17:17:46 1.17
+++ loncom/html/res/adm/pages/annotator/admannotations.pm 2003/06/23 18:54:37 1.18
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# This will take annotations and then plug them into a page.
#
-# $Id: admannotations.pm,v 1.17 2001/12/19 17:17:46 albertel Exp $
+# $Id: admannotations.pm,v 1.18 2003/06/23 18:54:37 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -147,9 +147,11 @@ sub handler {
my $urlold=$ENV{'form.urlold'};
$urlold=~s/^http\:\/\///;
$urlold=~s/^[^\/]+//;
+ $urlold=~s/\?.*$//;
my $urlnew=$ENV{'form.urlnew'};
$urlnew=~s/^http\:\/\///;
$urlnew=~s/^[^\/]+//;
+ $urlnew=~s/\?.*$//;
my $annotation=$ENV{'form.annotation'};
if ($urlold) {