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.14 and 1.17

version 1.14, 2002/08/16 17:03:23	version 1.17, 2003/01/09 22:04:28
Line 39 use strict;	Line 39 use strict;

use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use GDBM_File;	use GDBM_File;
	use Apache::loncommon;

my %hash; # variable to tie to user specific database	my %hash; # variable to tie to user specific database
my $iconpath; # variable to be accessible to multiple subroutines	my $iconpath; # variable to be accessible to multiple subroutines

	sub cleanup {
	untie(%hash) if (tied(%hash));
	}

# ---------------------------------------------------------------- Main Handler	# ---------------------------------------------------------------- Main Handler
sub handler {	sub handler {
my $r = shift;	my $r = shift;
Line 130 function orderchange(val,newval) {	Line 135 function orderchange(val,newval) {
}	}
</script>	</script>
</head>	</head>
<body bgcolor="#FFFFFF">
END	END
	$r->print(&Apache::loncommon::bodytag('Sort Imported Resources'));
# read pertinent machine configuration	# read pertinent machine configuration
my $domain = $r->dir_config('lonDefDomain');	my $domain = $r->dir_config('lonDefDomain');
$iconpath = $r->dir_config('lonIconsURL') . "/";	$iconpath = $r->dir_config('lonIconsURL') . "/";
Line 284 END	Line 288 END
my $ctr = 0;	my $ctr = 0;
my $clen = scalar(keys %shash);	my $clen = scalar(keys %shash);
$r->print(<<END);	$r->print(<<END);
<h2><font color="#888888">
The LearningOnline Network With CAPA Group Sorter
</font></h2>
<b><font color="#888888">Finalize order of resources</font></b>	<b><font color="#888888">Finalize order of resources</font></b>
<form method='post' action='/adm/groupsort' name='groupsort'	<form method='post' action='/adm/groupsort' name='groupsort'
enctype='application/x-www-form-urlencoded'>	enctype='application/x-www-form-urlencoded'>
Line 305 END	Line 306 END
}	}
if ($ENV{'form.catalogmode'} eq 'groupsearch') {	if ($ENV{'form.catalogmode'} eq 'groupsearch') {
$r->print(<<END);	$r->print(<<END);
<input type="button" name="alter" value="GO BACK"	<input type="button" name="alter" value="New Search"
onClick="window.location='/adm/searchcat?catalogmode=groupsearch'" />	onClick="window.location='/adm/searchcat?catalogmode=groupsearch&cleargroupsort=1'" />
END	END
}	}
# ---	# ---

$r->print(<<END);	$r->print(<<END);

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

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