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.22 and 1.23

version 1.22, 2003/08/26 05:44:11	version 1.23, 2003/09/23 00:26:10
Line 38 use strict;	Line 38 use strict;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use GDBM_File;	use GDBM_File;
use Apache::loncommon;	use Apache::loncommon;
	use Apache::lonlocal;

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
Line 61 sub handler {	Line 62 sub handler {
my $fileclr = '#ffffe6';	my $fileclr = '#ffffe6';
my $titleclr = '#ddffff';	my $titleclr = '#ddffff';

$r->content_type('text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
return OK if $r->header_only;	return OK if $r->header_only;

Line 290 END	Line 291 END
my $ctr = 0;	my $ctr = 0;
my $clen = scalar(keys %shash);	my $clen = scalar(keys %shash);
if ($clen > 1) {	if ($clen > 1) {
	my %lt=&Apache::lonlocal::texthash(
	'fin'=> 'Finalize order of resources',
	'gb' => 'Go Back',
	'ns' => 'New Search',
	'fi' => 'Finish Import',
	'ca' => 'Cancel',
	'co' => 'Change Order',
	'ti' => 'Title',
	'pa' => 'Path'
	);
$r->print(&Apache::loncommon::bodytag('Sort Imported Resources'));	$r->print(&Apache::loncommon::bodytag('Sort Imported Resources'));
$r->print(<<END);	$r->print(<<END);
<b><font color="#888888">Finalize order of resources</font></b>	<b><font color="#888888">$lt{'fin'}</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'>
<input type="hidden" name="fnum" value="$clen" />	<input type="hidden" name="fnum" value="$clen" />
Line 304 END	Line 315 END
# --- Expand here if "GO BACK" button desired	# --- Expand here if "GO BACK" button desired
if ($ENV{'form.catalogmode'} eq 'groupimport') {	if ($ENV{'form.catalogmode'} eq 'groupimport') {
$r->print(<<END);	$r->print(<<END);
<input type="button" name="alter" value="GO BACK"	<input type="button" name="alter" value="$lt{'gb'}"
onClick="window.location='/res/?catalogmode=groupimport'" />	onClick="window.location='/res/?catalogmode=groupimport'" />
END	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="New Search"	<input type="button" name="alter" value="$lt{'ns'}"
onClick="window.location='/adm/searchcat?catalogmode=groupsearch&cleargroupsort=1'" />	onClick="window.location='/adm/searchcat?catalogmode=groupsearch&cleargroupsort=1'" />
END	END
}	}
# ---	# ---

$r->print(<<END);	$r->print(<<END);
<input type="button" name="alter" value="FINISH IMPORT"	<input type="button" name="alter" value="$lt{'fi'}"
onClick="finish_import()" />	onClick="finish_import()" />
<input type="button" name="alter" value="CANCEL" onClick="self.close()" />	<input type="button" name="alter" value="$lt{'ca'}" onClick="self.close()" />
END	END
$r->print("<table border='0'><tr><td bgcolor='#eeeeee'>");	$r->print("<table border='0'><tr><td bgcolor='#eeeeee'>");
$r->print("<table border=0><tr>\n");	$r->print("<table border=0><tr>\n");
$r->print("<td colspan='2' bgcolor='$titleclr'><b>Change order</b></td>\n");	$r->print("<td colspan='2' bgcolor='$titleclr'><b>$lt{'co'}</b></td>\n");
$r->print("<td colspan='2' bgcolor='$titleclr'><b>Title</b></td>\n");	$r->print("<td colspan='2' bgcolor='$titleclr'><b>$lt{'ti'}</b></td>\n");
$r->print("<td bgcolor='$titleclr'><b>Path</b></td></tr>\n");	$r->print("<td bgcolor='$titleclr'><b>$lt{'pa'}</b></td></tr>\n");
} else {	} else {
$r->print(<<END);	$r->print(<<END);
<body>	<body>

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

Removed from v.1.22
changed lines
	Added in v.1.23