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.35 and 1.36

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

version 1.35, 2005/06/10 15:17:35	version 1.36, 2005/06/10 16:56:08
Line 360 END	Line 360 END
<input type="hidden" name="oldval" value="" />	<input type="hidden" name="oldval" value="" />
<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'}" />
	<input type="hidden" name="readfile" value="$env{'form.readfile'}" />
	<input type="hidden" name="recover" value="$env{'form.recover'}" />
END	END

# --- Expand here if "GO BACK" button desired	# --- Expand here if "GO BACK" button desired
Line 414 END	Line 416 END
$r->print("</td><td bgcolor='$fileclr'>");	$r->print("</td><td bgcolor='$fileclr'>");
$r->print("<img src='$iconname' />");	$r->print("<img src='$iconname' />");
$r->print("</td><td bgcolor='$fileclr'>");	$r->print("</td><td bgcolor='$fileclr'>");
$r->print("$thash{$key}</td><td bgcolor='$fileclr'>\n");	$r->print("$thash{$key}$nhash{$key}</td><td bgcolor='$fileclr'>\n");
$r->print("$key</td></tr>\n");	$r->print("$key</td></tr>\n");
}	}
}	}
Line 470 sub select_box {	Line 472 sub select_box {
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'>remove</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'";
if ($cur == $sel) {	if ($cur == $sel) {

Removed from v.1.35
changed lines
	Added in v.1.36