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.12, 2002/05/24 16:04:54
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 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");