loncom/interface/groupsort.pm - diff

Return to groupsort.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/groupsort.pm between versions 1.13 and 1.14

version 1.13, 2002/08/12 18:21:42	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 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 Network 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

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.13
changed lines
	Added in v.1.14