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.46, 2006/07/21 08:29:47
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;