[LON-CAPA-cvs] cvs: loncom /interface groupsort.pm

[albertel]

albertel		Mon Jul 31 14:39:15 2006 EDT

  Modified files:              
    /loncom/interface	groupsort.pm 
  Log:
  - style
  
  
Index: loncom/interface/groupsort.pm
diff -u loncom/interface/groupsort.pm:1.47 loncom/interface/groupsort.pm:1.48
--- loncom/interface/groupsort.pm:1.47	Fri Jul 28 16:01:26 2006
+++ loncom/interface/groupsort.pm	Mon Jul 31 14:39:15 2006
@@ -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.48 2006/07/31 18:39:15 albertel Exp $
 # 
 # Copyright Michigan State University Board of Trustees
 #
@@ -431,7 +431,7 @@
     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;