loncom/interface/lonhelper.pm - diff

Return to lonhelper.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonhelper.pm between versions 1.14 and 1.15

version 1.14, 2003/04/30 18:40:49	version 1.15, 2003/04/30 19:08:15
Line 988 sub render {	Line 988 sub render {
$result .= <<SCRIPT;	$result .= <<SCRIPT;
<script>	<script>
function checkall(value) {	function checkall(value) {
for (i=0; i<document.forms.wizform.elements.length; i++) {	for (i=0; i<document.forms.helpform.elements.length; i++) {
document.forms.wizform.elements[i].checked=value;	document.forms.helpform.elements[i].checked=value;
}	}
}	}
</script>	</script>
Line 1455 sub render {	Line 1455 sub render {
my $var = $self->{'variable'};	my $var = $self->{'variable'};
my $curVal = $helper->{VARS}->{$var};	my $curVal = $helper->{VARS}->{$var};

	my $buttons = '';

	if ($self->{'multichoice'}) {
	$result = <<SCRIPT;
	<script>
	function checkall(value) {
	for (i=0; i<document.forms.helpform.elements.length; i++) {
	ele = document.forms.helpform.elements[i];
	if (ele.type == "checkbox") {
	document.forms.helpform.elements[i].checked=value;
	}
	}
	}
	</script>
	SCRIPT
	$buttons = <<BUTTONS;
	<br />
	<input type="button" onclick="checkall(true)" value="Select All" />
	<input type="button" onclick="checkall(false)" value="Unselect All" />
	<br />
	BUTTONS
	}

if (defined $self->{ERROR_MSG}) {	if (defined $self->{ERROR_MSG}) {
$result .= '<br /><font color="#FF0000">' . $self->{ERROR_MSG} . '</font><br /><br />';	$result .= '<br /><font color="#FF0000">' . $self->{ERROR_MSG} . '</font><br /><br />';
}	}

	$result .= $buttons;

my $filterFunc = $self->{FILTER_FUNC};	my $filterFunc = $self->{FILTER_FUNC};
my $choiceFunc = $self->{CHOICE_FUNC};	my $choiceFunc = $self->{CHOICE_FUNC};
my $valueFunc = $self->{VALUE_FUNC};	my $valueFunc = $self->{VALUE_FUNC};
Line 1500 sub render {	Line 1525 sub render {
'resource_no_folder_link' => 1,	'resource_no_folder_link' => 1,
'iterator_map' => $mapUrl }	'iterator_map' => $mapUrl }
);	);

	$result .= $buttons;

return $result;	return $result;
}	}
Line 1591 sub render {	Line 1618 sub render {
$result = <<SCRIPT;	$result = <<SCRIPT;
<script>	<script>
function checkall(value) {	function checkall(value) {
for (i=0; i<document.forms.wizform.elements.length; i++) {	for (i=0; i<document.forms.helpform.elements.length; i++) {
document.forms.wizform.elements[i].checked=value;	document.forms.helpform.elements[i].checked=value;
}	}
}	}
</script>	</script>
Line 1792 sub render {	Line 1819 sub render {
$result = <<SCRIPT;	$result = <<SCRIPT;
<script>	<script>
function checkall(value) {	function checkall(value) {
for (i=0; i<document.forms.wizform.elements.length; i++) {	for (i=0; i<document.forms.helpform.elements.length; i++) {
ele = document.forms.wizform.elements[i];	ele = document.forms.helpform.elements[i];
if (ele.type == "checkbox") {	if (ele.type == "checkbox") {
document.forms.wizform.elements[i].checked=value;	document.forms.helpform.elements[i].checked=value;
}	}
}	}
}	}
</script>	</script>
SCRIPT	SCRIPT
my $buttons = <<BUTTONS;	$buttons = <<BUTTONS;
<br />	<br />
<input type="button" onclick="checkall(true)" value="Select All" />	<input type="button" onclick="checkall(true)" value="Select All" />
<input type="button" onclick="checkall(false)" value="Unselect All" />	<input type="button" onclick="checkall(false)" value="Unselect All" />

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

Removed from v.1.14
changed lines
	Added in v.1.15