version 1.9, 2004/03/16 16:41:26
|
version 1.11, 2004/04/01 22:13:39
|
Line 478 sub get_answer {
|
Line 478 sub get_answer {
|
} |
} |
foreach my $foil (@{$Answer{$prefix.'.shown'}}) { |
foreach my $foil (@{$Answer{$prefix.'.shown'}}) { |
if (ref($values{$foil}) eq 'ARRAY') { |
if (ref($values{$foil}) eq 'ARRAY') { |
$returnvalue.=&HTML::Entities::encode($foil).'='. |
$returnvalue.=&HTML::Entities::encode($foil,'<>&"').'='. |
join(',',map {&HTML::Entities::encode($_)} @{$values{$foil}}).'&'; |
join(',',map {&HTML::Entities::encode($_,'<>&"')} @{$values{$foil}}).'&'; |
} else { |
} else { |
$returnvalue.=&HTML::Entities::encode($foil).'='. |
$returnvalue.=&HTML::Entities::encode($foil,'<>&"').'='. |
&HTML::Entities::encode($values{$foil}).'&'; |
&HTML::Entities::encode($values{$foil},'<>&"').'&'; |
} |
} |
} |
} |
$returnvalue =~ s/ /\%20/g; |
$returnvalue =~ s/ /\%20/g; |
Line 1001 sub get_time_limits {
|
Line 1001 sub get_time_limits {
|
return ($starttime,$endtime); |
return ($starttime,$endtime); |
} |
} |
|
|
|
|
|
|
|
#################################################### |
|
#################################################### |
|
|
|
=pod |
|
|
|
=item sections_description |
|
|
|
Inputs: @Sections, an array of sections |
|
|
|
Returns: A text description of the sections selected. |
|
|
|
=cut |
|
|
|
#################################################### |
|
#################################################### |
|
sub sections_description { |
|
my @Sections = @_; |
|
my $sectionstring = ''; |
|
if (scalar(@Sections) > 1) { |
|
if (scalar(@Sections) > 2) { |
|
my $last = pop(@Sections); |
|
$sectionstring = "Sections ".join(', ',@Sections).', and '.$last; |
|
} else { |
|
$sectionstring = "Sections ".join(' and ',@Sections); |
|
} |
|
} else { |
|
if ($Sections[0] eq 'all') { |
|
$sectionstring = "All sections"; |
|
} else { |
|
$sectionstring = "Section ".$Sections[0]; |
|
} |
|
} |
|
return $sectionstring; |
|
} |
|
|
#################################################### |
#################################################### |
#################################################### |
#################################################### |
|
|