loncom/interface/groupsort.pm - diff

Return to groupsort.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.12, 2002/05/24 16:04:54	version 1.13, 2002/08/12 18:21:42
Line 194 END	Line 194 END

}	}
# ----------------------------- 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)) {
my $acts = $ENV{'form.acts'};	my $acts = $ENV{'form.acts'};
my @Acts = split(/b/,$acts);	my @Acts = split(/b/,$acts);
my %ahash;	my %ahash;