loncom/interface/groupsort.pm - diff

Return to groupsort.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.45, 2006/07/21 00:21:28	version 1.48, 2006/07/31 18:39:15
Line 211 sub readfrombookmarks {	Line 211 sub readfrombookmarks {
return ($shash,$thash);	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	# ---------------------------------------------------------------- Main Handler
sub handler {	sub handler {
my $r = shift;	my $r = shift;
Line 439 sub hidden {	Line 431 sub hidden {
my ($sel,$title,$filelink) = @_;	my ($sel,$title,$filelink) = @_;
my $string = '<input type="hidden" name="title'.$sel.'" value="'.$title.	my $string = '<input type="hidden" name="title'.$sel.'" value="'.$title.
'" />';	'" />';
	$filelink=~s\|^/ext/\|http://\|;
$string .= '<input type="hidden" name="filelink'.$sel.'" value="'.	$string .= '<input type="hidden" name="filelink'.$sel.'" value="'.
$filelink.'" />';	$filelink.'" />';
return $string;	return $string;