--- loncom/interface/groupsort.pm 2006/07/21 00:21:28 1.45
+++ loncom/interface/groupsort.pm 2006/07/28 20:01:26 1.47
@@ -2,7 +2,7 @@
# The LON-CAPA group sort handler
# Allows for sorting prior to import into RAT.
#
-# $Id: groupsort.pm,v 1.45 2006/07/21 00:21:28 www Exp $
+# $Id: groupsort.pm,v 1.47 2006/07/28 20:01:26 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -211,14 +211,6 @@ sub readfrombookmarks {
return ($shash,$thash);
}
-# ---------------------------------------------------------- Clear the database
-
-sub clear_basket {
- my $diropendb =
- "/home/httpd/perl/tmp/$env{'user.domain'}_$env{'user.name'}_sel_res.db";
- unlink ($diropendb);
-}
-
# ---------------------------------------------------------------- Main Handler
sub handler {
my $r = shift;
@@ -439,6 +431,7 @@ sub hidden {
my ($sel,$title,$filelink) = @_;
my $string = '';
+ $filelink=~s/^\/ext\//http\:\/\//;
$string .= '';
return $string;