loncom/interface/groupsort.pm - diff

Return to groupsort.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.8, 2002/05/09 20:57:26	version 1.9, 2002/05/09 23:07:36
Line 46 my $iconpath; # variable to be accessibl	Line 46 my $iconpath; # variable to be accessibl
# ---------------------------------------------------------------- Main Handler	# ---------------------------------------------------------------- Main Handler
sub handler {	sub handler {
my $r = shift;	my $r = shift;

	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
	['acts','catalogmode','mode']);

# color scheme	# color scheme
my $fileclr = '#ffffe6';	my $fileclr = '#ffffe6';
Line 130 END	Line 133 END

my %shash; # sort order (key is resource location, value is sort order)	my %shash; # sort order (key is resource location, value is sort order)
my %thash; # title (key is resource location, value is title)	my %thash; # title (key is resource location, value is title)
foreach (split(/&/,$ENV{'QUERY_STRING'})) {
my ($name, $value) = split(/=/,$_);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
if ($name eq 'acts') {
$ENV{'form.'.$name}=$value;
}
if ($name eq 'catalogmode') {
$ENV{'form.'.$name}=$value;
}
}
my $diropendb;	my $diropendb;
if ($ENV{'form.catalogmode'} eq 'groupsearch') {	if ($ENV{'form.catalogmode'} eq 'groupsearch') {
$diropendb =	$diropendb =