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

version 1.71, 2013/01/09 03:56:28	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 421 END	Line 421 END
$r->print("<td>");	$r->print("<td>");
$r->print("<img src='$iconname' />");	$r->print("<img src='$iconname' />");
$r->print("</td><td>");	$r->print("</td><td>");
if (($env{'form.recover'}) &&	if (($env{'form.recover'}) &&
($resource->{'url'} =~ m{/uploaded/$match_domain/$match_courseid/supplemental/})) {	($resource->{'url'} =~ m{/uploaded/$match_domain/$match_courseid/supplemental/})) {
my $title = &Apache::loncommon::parse_supplemental_title($resource->{'title'});	my $title = &Apache::loncommon::parse_supplemental_title($resource->{'title'});
$r->print($title);	$r->print($title);
} else {	} else {
$r->print($resource->{'title'});	$r->print($resource->{'title'});
}	}
$r->print($resource->{'notes'}."</td><td>\n");	$r->print($resource->{'notes'}."</td><td>\n");
$r->print($resource->{'url'}."</td>"	$r->print($resource->{'url'}."</td>"
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.71
changed lines
	Added in v.1.73