|
Lines 68-85
sub plugin {
Link Here
|
| 68 |
); |
68 |
); |
| 69 |
$result = " nz a22 3 4500" unless $result; |
69 |
$result = " nz a22 3 4500" unless $result; |
| 70 |
|
70 |
|
| 71 |
|
71 |
my $f5 = substr( $result, 5, 1 ); $f5 = wrapper( $f5 ) if $f5; |
| 72 |
my $f5 = substr( $result, 5, 1 ); $f5 = wrapper( $f5 ) if $f5; |
72 |
my $f6 = substr( $result, 6, 1 ); $f6 = wrapper( $f6 ) if $f6; |
| 73 |
my $f6 = substr( $result, 6, 1 ); $f6 = wrapper( $f6 ) if $f6; |
73 |
my $f9 = substr( $result, 9, 1 ); $f9 = wrapper( $f9 ) if $f9; |
| 74 |
my $f9 = substr( $result, 9, 1 ); $f9 = wrapper( $f9 ) if $f9; |
74 |
my $f17 = substr( $result, 17, 1 ); $f17 = wrapper( $f17 ) if $f17; |
| 75 |
my $f17 = substr( $result, 17, 1 ); $f17 = wrapper( $f17 ) if $f17; |
|
|
| 76 |
|
75 |
|
| 77 |
$template->param( |
76 |
$template->param( |
| 78 |
index => $index, |
77 |
index => $index, |
| 79 |
"f5$f5" => 1, |
78 |
"f5$f5" => 1, |
| 80 |
"f6$f6" => 1, |
79 |
"f6$f6" => 1, |
| 81 |
"f9$f9" => 1, |
80 |
"f9$f9" => 1, |
| 82 |
"f17$f17" => 1, |
81 |
"f17$f17" => 1, |
| 83 |
); |
82 |
); |
| 84 |
output_html_with_http_headers $input, $cookie, $template->output; |
83 |
output_html_with_http_headers $input, $cookie, $template->output; |
| 85 |
} |
84 |
} |
| 86 |
- |
|
|