loncom/interface/lonhelper.pm - diff

Return to lonhelper.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.23, 2003/05/07 19:24:07	version 1.24, 2003/05/08 19:17:31
Line 949 sub start_choices {	Line 949 sub start_choices {
}	}

# Need to initialize the choices list, so everything can assume it exists	# Need to initialize the choices list, so everything can assume it exists
$paramHash->{'variable'} = $token->[2]{'variable'};	$paramHash->{'variable'} = $token->[2]{'variable'} if (!defined($paramHash->{'variable'}));
$helper->declareVar($paramHash->{'variable'});	$helper->declareVar($paramHash->{'variable'});
$paramHash->{'multichoice'} = $token->[2]{'multichoice'};	$paramHash->{'multichoice'} = $token->[2]{'multichoice'};
$paramHash->{CHOICES} = [];	$paramHash->{CHOICES} = [];
Line 1909 BUTTONS	Line 1909 BUTTONS
}	}
my $fileName = $subdir .'/'. $file;	my $fileName = $subdir .'/'. $file;
if (&$filterFunc($file)) {	if (&$filterFunc($file)) {
(my $status, my $color) = @{fileState($subdir, $file)};	my $status;
	my $color;
	if ($helper->{VARS}->{'construction'}) {
	($status, $color) = @{fileState($subdir, $file)};
	} else {
	$status = '';
	$color = '';
	}

# Netscape 4 is stupid and there's nowhere to put the	# Netscape 4 is stupid and there's nowhere to put the
# information on the input tag that the file is Published,	# information on the input tag that the file is Published,