loncom/interface/groupsort.pm - diff

Return to groupsort.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.67, 2010/08/24 09:11:37	version 1.68, 2011/07/04 09:24:58
Line 86 sub update_actions_hash {	Line 86 sub update_actions_hash {
sub readfromdb {	sub readfromdb {
my ($r,$resources)=@_;	my ($r,$resources)=@_;

my $diropendb =	my $diropendb = LONCAPA::tempdir() .
"/home/httpd/perl/tmp/$env{'user.domain'}_$env{'user.name'}_sel_res.db";	"$env{'user.domain'}_$env{'user.name'}_sel_res.db";

# ----------------------------- diropendb is now the filename of the db to open	# ----------------------------- diropendb is now the filename of the db to open
if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT(),0640)) {	if (tie(%hash,'GDBM_File',$diropendb,&GDBM_WRCREAT(),0640)) {