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.68.6.5 and 1.74

version 1.68.6.5, 2013/01/09 16:41:03	version 1.74, 2014/12/11 00:31:05
Line 59 sub update_actions_hash {	Line 59 sub update_actions_hash {
$ac++;	$ac++;
}	}
# sorting through the actions and changing the global database hash	# sorting through the actions and changing the global database hash
foreach my $key (sort {$achash{$a}<=>$achash{$b}} (keys %ahash)) {	foreach my $key (sort {$achash{$a}<=>$achash{$b}} (keys(%ahash))) {
if ($ahash{$key} eq '1') {	if ($ahash{$key} eq '1') {
$hash->{'store_'.$hash->{'pre_'.$key.'_link'}}=	$hash->{'store_'.$hash->{'pre_'.$key.'_link'}}=
$hash->{'pre_'.$key.'_title'};	$hash->{'pre_'.$key.'_title'};
Line 339 END	Line 339 END
if ($env{'form.recover'}) {	if ($env{'form.recover'}) {
$r->print(<<END);	$r->print(<<END);
<input type="button" name="alter" value="$buttontext"	<input type="button" name="alter" value="$buttontext"
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()" />
END	END
} else {	} else {
# --- Continue Buttons	# --- Continue Buttons
Line 350 END	Line 350 END
<h2>$lt{'fin'}</h2>	<h2>$lt{'fin'}</h2>
<div>	<div>
<input type="button" name="alter" value="$lt{'ci'}"	<input type="button" name="alter" value="$lt{'ci'}"
onClick="window.location='$resurl?inhibitmenu=yes&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?inhibitmenu=yes&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()" />
</div>	</div>
<br />	<br />
END	END
Line 488 sub select_box {	Line 488 sub select_box {
my ($total,$sel) = @_;	my ($total,$sel) = @_;
my $string;	my $string;
$string = '<select name="alt'.$sel.'"';	$string = '<select name="alt'.$sel.'"';
$string .= " onChange='selectchange($sel)'>";	$string .= " onchange='selectchange($sel)'>";
$string .= "<option name='o0' value='0'>".&mt('discard')."</option>";	$string .= "<option name='o0' value='0'>".&mt('discard')."</option>";
for my $cur (1..$total) {	for my $cur (1..$total) {
$string .= "<option name='o$cur' value='$cur'";	$string .= "<option name='o$cur' value='$cur'";

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

Removed from v.1.68.6.5
changed lines
	Added in v.1.74