loncom/interface/groupsort.pm - diff

Return to groupsort.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.44, 2006/06/19 09:40:17	version 1.45, 2006/07/21 00:21:28
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;