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.72 and 1.73

version 1.72, 2013/01/09 16:30:19	version 1.73, 2013/07/15 14:32:44
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.72
changed lines
	Added in v.1.73