version 1.11, 2002/05/24 13:53:43
|
version 1.14, 2002/08/16 17:03:23
|
Line 49 sub handler {
|
Line 49 sub handler {
|
|
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
['acts','catalogmode','mode']); |
['acts','catalogmode','mode']); |
|
|
# color scheme |
# color scheme |
my $fileclr = '#ffffe6'; |
my $fileclr = '#ffffe6'; |
my $titleclr = '#ddffff'; |
my $titleclr = '#ddffff'; |
Line 184 END
|
Line 183 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 193 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 283 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(<<END); |
'Group Sorter</font></h2>'."\n"); |
<h2><font color="#888888"> |
$r->print('<b><font color="#888888">Finalize order of resources</font>'. |
The LearningOnline Network With CAPA Group Sorter |
'</b>'."\n"); |
</font></h2> |
$r->print("<form method='post' action='/adm/groupsort' name='groupsort' ". |
<b><font color="#888888">Finalize order of resources</font></b> |
"enctype='application/x-www-form-urlencoded'>"); |
<form method='post' action='/adm/groupsort' name='groupsort' |
$r->print(<<END); |
enctype='application/x-www-form-urlencoded'> |
<input type="hidden" name="fnum" value="$clen" /> |
<input type="hidden" name="fnum" value="$clen" /> |
<input type="hidden" name="oldval" value="" /> |
<input type="hidden" name="oldval" value="" /> |
<input type="hidden" name="newval" value="" /> |
<input type="hidden" name="newval" value="" /> |
|
<input type="hidden" name="mode" value="$ENV{'form.mode'}" /> |
END |
END |
|
|
# --- Expand here if "GO BACK" button desired |
# --- Expand here if "GO BACK" button desired |