--- 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) {