--- loncom/interface/groupsort.pm 2006/07/21 00:21:28 1.45
+++ 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.45 2006/07/21 00:21:28 www Exp $
+# $Id: groupsort.pm,v 1.49 2006/09/12 22:13:05 albertel 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;
@@ -357,7 +349,8 @@ END
END
# --- Continue Buttons
- my $resurl = &Apache::loncommon::lastresurl();
+ my $resurl =
+ &Apache::loncommon::escape_single(&Apache::loncommon::lastresurl());
$r->print(<
@@ -439,6 +432,7 @@ sub hidden {
my ($sel,$title,$filelink) = @_;
my $string = '';
+ $filelink=~s|^/ext/|http://|;
$string .= '';
return $string;