loncom/interface/statistics/lonstudentassessment.pm - diff

Return to lonstudentassessment.pm CVS log

Up to [LON-CAPA] / loncom / interface / statistics

version 1.121, 2005/04/07 06:56:24	version 1.122, 2005/04/07 07:34:52
Line 430 sub CreateAndParseOutputSelector {	Line 430 sub CreateAndParseOutputSelector {
[$elementname]);	[$elementname]);
#	#
# Format for output options is 'mode, restrictions';	# Format for output options is 'mode, restrictions';
my $selected = 'html, without links';	my $selected = (&Apache::loncommon::get_env_multiple('form.'.$elementname))[0];
if (exists($env{'form.'.$elementname})) {	$selected = 'html, without links' if (!$selected);
if (ref($env{'form.'.$elementname} eq 'ARRAY')) {
$selected = $env{'form.'.$elementname}->[0];
} else {
$selected = $env{'form.'.$elementname};
}
}
#	#
# Set package variables describing output mode	# Set package variables describing output mode
$show_links = 'no';	$show_links = 'no';
Line 551 sub CreateAndParseOutputDataSelector {	Line 546 sub CreateAndParseOutputDataSelector {
my $Str = '';	my $Str = '';
my $elementname = 'chartoutputdata';	my $elementname = 'chartoutputdata';
#	#
my $selected = 'scores';	my $selected = (&Apache::loncommon::get_env_multiple('form.'.$elementname))[0];
if (exists($env{'form.'.$elementname})) {	$selected = 'scores' if (!$selected);
if (ref($env{'form.'.$elementname} eq 'ARRAY')) {
$selected = $env{'form.'.$elementname}->[0];
} else {
$selected = $env{'form.'.$elementname};
}
}
#	#
$chosen_output = $OutputDataOptions[0];	$chosen_output = $OutputDataOptions[0];
foreach my $option (@OutputDataOptions) {	foreach my $option (@OutputDataOptions) {