--- loncom/interface/groupsort.pm	2006/07/28 20:01:26	1.47
+++ loncom/interface/groupsort.pm	2006/09/12 22:13:05	1.49
@@ -2,7 +2,7 @@
 # The LON-CAPA group sort handler
 # Allows for sorting prior to import into RAT.
 #
-# $Id: groupsort.pm,v 1.47 2006/07/28 20:01:26 www Exp $
+# $Id: groupsort.pm,v 1.49 2006/09/12 22:13:05 albertel Exp $
 # 
 # Copyright Michigan State University Board of Trustees
 #
@@ -349,7 +349,8 @@ END
 END
 
         # --- Continue Buttons
-        my $resurl = &Apache::loncommon::lastresurl();
+        my $resurl = 
+	   &Apache::loncommon::escape_single(&Apache::loncommon::lastresurl());
         $r->print(<<END);
 <input type="button" name="alter" value="$lt{'ci'}"
  onClick="window.location='$resurl?catalogmode=import'" />&nbsp;
@@ -431,7 +432,7 @@ sub hidden {
     my ($sel,$title,$filelink) = @_;
     my $string = '<input type="hidden" name="title'.$sel.'" value="'.$title.
 	'" />';
-    $filelink=~s/^\/ext\//http\:\/\//;
+    $filelink=~s|^/ext/|http://|;
     $string .= '<input type="hidden" name="filelink'.$sel.'" value="'.
 	$filelink.'" />';
     return $string;