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.51 and 1.54

version 1.51, 2007/06/15 19:18:45	version 1.54, 2007/07/11 20:32:15
Line 65 sub readfromdb {	Line 65 sub readfromdb {
foreach (sort {$achash{$a} <=> $achash{$b}} (keys %ahash)) {	foreach (sort {$achash{$a} <=> $achash{$b}} (keys %ahash)) {
my $key = $_;	my $key = $_;
if ($ahash{$key} eq '1') {	if ($ahash{$key} eq '1') {
	if ($hash{'pre_'.$key.'_title'} eq 'Not_retrieved') {
	$hash{'pre_'.$key.'_title'} = &Apache::lonnet::gettitle($hash{'pre_'.$key.'_link'});
	}
$hash{'store_'.$hash{'pre_'.$key.'_link'}} =	$hash{'store_'.$hash{'pre_'.$key.'_link'}} =
$hash{'pre_'.$key.'_title'};	$hash{'pre_'.$key.'_title'};
$hash{'storectr_'.$hash{'pre_'.$key.'_link'}} =	$hash{'storectr_'.$hash{'pre_'.$key.'_link'}} =
Line 350 END	Line 353 END
<input type="hidden" name="recover" value="$env{'form.recover'}" />	<input type="hidden" name="recover" value="$env{'form.recover'}" />
END	END

	$r->print(&Apache::loncommon::inhibit_menu_check('input'));
# ---	# ---

if ($env{'form.recover'}) {	if ($env{'form.recover'}) {
Line 365 END	Line 368 END
&Apache::loncommon::escape_single(&Apache::loncommon::lastresurl());	&Apache::loncommon::escape_single(&Apache::loncommon::lastresurl());
$r->print(<<END);	$r->print(<<END);
<input type="button" name="alter" value="$lt{'ci'}"	<input type="button" name="alter" value="$lt{'ci'}"
onClick="window.location='$resurl?catalogmode=import'" />	onClick="window.location='$resurl?inhibitmenu=yes&catalogmode=import'" />
<input type="button" name="altersearch" value="$lt{'cs'}"	<input type="button" name="altersearch" value="$lt{'cs'}"
onClick="window.location='/adm/searchcat?catalogmode=import'" />	onClick="window.location='/adm/searchcat?inhibitmenu=yes&catalogmode=import'" />
<input type="button" name="alter" value="$lt{'fi'}"	<input type="button" name="alter" value="$lt{'fi'}"
onClick="finish_import()" />	onClick="finish_import()" />
<input type="button" name="alter" value="$lt{'ca'}" onClick="self.close()" />	<input type="button" name="alter" value="$lt{'ca'}" onClick="self.close()" />
Line 393 END	Line 396 END
<input type="hidden" name="newval" value="" />	<input type="hidden" name="newval" value="" />
<input type="hidden" name="mode" value="$env{'form.mode'}" />	<input type="hidden" name="mode" value="$env{'form.mode'}" />
END	END
	$r->print(&Apache::loncommon::inhibit_menu_check('input'));

}	}
foreach (sort {$shash{$a}<=>$shash{$b}} (keys %shash)) {	foreach (sort {$shash{$a}<=>$shash{$b}} (keys %shash)) {
my $key=$_;	my $key=$_;

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

Removed from v.1.51
changed lines
	Added in v.1.54