loncom/interface/groupsort.pm - diff

Return to groupsort.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.11, 2002/05/24 13:53:43	version 1.13, 2002/08/12 18:21:42
Line 184 END	Line 184 END
# Okay, find most recent existing	# Okay, find most recent existing

my $newest=0;	my $newest=0;
my $diropendb='';	$diropendb='';
for (my $i=0; $i<=$#dbfn; $i++) {	for (my $i=0; $i<=$#dbfn; $i++) {
if ($dbst[$i]>$newest) {	if ($dbst[$i]>$newest) {
$newest=$dbst[$i];	$newest=$dbst[$i];
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;
Line 284 END	Line 284 END
untie %hash;	untie %hash;
my $ctr = 0;	my $ctr = 0;
my $clen = scalar(keys %shash);	my $clen = scalar(keys %shash);
$r->print('<h2><font color="#888888">The LearningOnline With CAPA '.	$r->print('<h2><font color="#888888">The LearningOnline Network With CAPA '.
'Group Sorter</font></h2>'."\n");	'Group Sorter</font></h2>'."\n");
$r->print('<b><font color="#888888">Finalize order of resources</font>'.	$r->print('<b><font color="#888888">Finalize order of resources</font>'.
'</b>'."\n");	'</b>'."\n");