8 |
use Template; |
use Template; |
9 |
use List::Util qw/first/; |
use List::Util qw/first/; |
10 |
use Data::Dumper; |
use Data::Dumper; |
11 |
use URI::Escape; |
use URI::Escape qw/uri_escape_utf8/; |
12 |
|
|
13 |
=head1 NAME |
=head1 NAME |
14 |
|
|
16 |
|
|
17 |
=head1 VERSION |
=head1 VERSION |
18 |
|
|
19 |
Version 0.02 |
Version 0.03 |
20 |
|
|
21 |
=cut |
=cut |
22 |
|
|
23 |
our $VERSION = '0.02'; |
our $VERSION = '0.03'; |
24 |
|
|
25 |
=head1 SYNOPSIS |
=head1 SYNOPSIS |
26 |
|
|
196 |
} else { |
} else { |
197 |
$s = $item->{'search'}->[0]; |
$s = $item->{'search'}->[0]; |
198 |
} |
} |
199 |
$s = uri_escape( $s ); |
#$s =~ s/([^\w.-])/sprintf("%%%02X",ord($1))/eg; |
200 |
|
$s = uri_escape_utf8( $s ); |
201 |
|
|
202 |
my $d = $item->{'display'}->[$i] || die "can't find value $i for type display in field $display"; |
my $d = $item->{'display'}->[$i] || die "can't find value $i for type display in field $display"; |
203 |
|
|