[LON-CAPA-cvs] cvs: loncom /html/res/adm/pages/annotator admannotations.pm

[www]

www		Mon Jun 23 14:54:37 2003 EDT

  Modified files:              
    /loncom/html/res/adm/pages/annotator	admannotations.pm 
  Log:
  Bug #1800: annotations cannot handle query strings.
  
  
Index: loncom/html/res/adm/pages/annotator/admannotations.pm
diff -u loncom/html/res/adm/pages/annotator/admannotations.pm:1.17 loncom/html/res/adm/pages/annotator/admannotations.pm:1.18
--- loncom/html/res/adm/pages/annotator/admannotations.pm:1.17	Wed Dec 19 12:17:46 2001
+++ loncom/html/res/adm/pages/annotator/admannotations.pm	Mon Jun 23 14:54:37 2003
@@ -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 @@
   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) {