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"); |