loncom/interface/lonparmset.pm - diff

Return to lonparmset.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonparmset.pm between versions 1.232 and 1.234

version 1.232, 2005/06/28 15:12:54	version 1.234, 2005/06/28 15:26:06
Line 918 ENDSCRIPT	Line 918 ENDSCRIPT
}	}
$r->print('	$r->print('
</tr><tr><td>	</tr><tr><td>
<a href="javascript:checkall(true, \'pscat\')">Select All</a><br />	<a href="javascript:checkall(true, \'pscat\')">Select All</a><br />
<a href="javascript:checkstandard()">Select Common Only</a>	<a href="javascript:checkstandard()">Select Common Only</a>
</td><td>	</td><td>
<a href="javascript:checkdates()">Add Problem Dates</a>	<a href="javascript:checkdates()">Add Problem Dates</a>
<a href="javascript:checkcontdates()">Add Content Dates</a><br />	<a href="javascript:checkcontdates()">Add Content Dates</a><br />
<a href="javascript:checkdisset()">Add Discussion Settings</a>	<a href="javascript:checkdisset()">Add Discussion Settings</a>
<a href="javascript:checkvisi()">Add Visibilities</a><br />	<a href="javascript:checkvisi()">Add Visibilities</a><br />
<a href="javascript:checkparts()">Add Part Parameters</a>	<a href="javascript:checkparts()">Add Part Parameters</a>
</td><td>	</td><td>
<a href="javascript:checkall(false, \'pscat\')">Unselect All</a>	<a href="javascript:checkall(false, \'pscat\')">Unselect All</a>
</td>	</td>
');	');
$r->print('</tr></table>');	$r->print('</tr></table>');
Line 941 sub partmenu {	Line 941 sub partmenu {
$r->print('>'.&mt('All Parts').'</option>');	$r->print('>'.&mt('All Parts').'</option>');
my %temphash=();	my %temphash=();
foreach (@{$psprt}) { $temphash{$_}=1; }	foreach (@{$psprt}) { $temphash{$_}=1; }
foreach my $tempkey (sort keys %{$allparts}) {	foreach my $tempkey (sort {
	if ($a==$b) { return ($a cmp $b) } else { return ($a <=> $b); }
	} keys(%{$allparts})) {
unless ($tempkey =~ /\./) {	unless ($tempkey =~ /\./) {
$r->print('<option value="'.$tempkey.'"');	$r->print('<option value="'.$tempkey.'"');
if ($$psprt[0] eq "all" \|\| $temphash{$tempkey}) {	if ($$psprt[0] eq "all" \|\| $temphash{$tempkey}) {

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

Removed from v.1.232
changed lines
	Added in v.1.234