version 1.167, 2014/06/25 10:48:39
|
version 1.168, 2014/06/25 15:43:04
|
Line 1233 sub submission {
|
Line 1233 sub submission {
|
if ($subnumber) { $sub=$subnumber.':'; } |
if ($subnumber) { $sub=$subnumber.':'; } |
my $output = |
my $output = |
&EXT('user.resource.'.$sub.'resource.'.$partid.'.'.$responseid.'.submission'); |
&EXT('user.resource.'.$sub.'resource.'.$partid.'.'.$responseid.'.submission'); |
if ($encode) { |
if (ref($output) eq 'ARRAY') { |
$output =~ s/&/&/g; |
my @items = @{$output}; |
$output =~ s/</</g; |
if ($encode) { |
$output =~ s/>/>/g; |
@items = map { &encode_response($_); } @items; |
$output =~ s/"/"/g; |
} |
|
return \@items; |
|
} else { |
|
if ($encode) { |
|
$output = &encode_response($output); |
|
} |
|
return $output; |
} |
} |
return $output; |
} |
|
|
|
sub encode_response { |
|
my ($value) = @_; |
|
$value =~ s/&/&/g; |
|
$value =~ s/</</g; |
|
$value =~ s/>/>/g; |
|
$value =~ s/"/"/g; |
|
return $value; |
} |
} |
|
|
sub currentpart { |
sub currentpart { |