Lines 101-173
sub plugin {
Link Here
|
101 |
debug => 1, |
101 |
debug => 1, |
102 |
}); |
102 |
}); |
103 |
$result = "$dateentered$defaultval" unless $result; |
103 |
$result = "$dateentered$defaultval" unless $result; |
104 |
my $f1 = substr($result,0,6); |
104 |
my @f; |
105 |
my $f6 = substr($result,6,1); |
105 |
for(0,6..17,28,29,31..33,38,39) { |
106 |
my $f7 = substr($result,7,1); |
106 |
$f[$_]=substr($result,$_,$_==0?6:1); |
107 |
my $f8 = substr($result,8,1); |
107 |
} |
108 |
my $f9 = substr($result,9,1); |
108 |
$template->param(index => $index); |
109 |
my $f10 = substr($result,10,1); |
|
|
110 |
my $f11 = substr($result,11,1); |
111 |
my $f12 = substr($result,12,1); |
112 |
my $f13 = substr($result,13,1); |
113 |
my $f14 = substr($result,14,1); |
114 |
my $f15 = substr($result,15,1); |
115 |
my $f16 = substr($result,16,1); |
116 |
my $f17 = substr($result,17,1); |
117 |
my $f28 = substr($result,28,1); |
118 |
my $f29 = substr($result,29,1); |
119 |
my $f31 = substr($result,31,1); |
120 |
my $f32 = substr($result,32,1); |
121 |
my $f33 = substr($result,33,1); |
122 |
my $f38 = substr($result,38,1); |
123 |
my $f39 = substr($result,39,1); |
124 |
|
125 |
if ((!$f1) ||($f1 =~ m/ /)){ |
126 |
$f1=$dateentered; |
127 |
} |
128 |
|
109 |
|
129 |
$template->param( index => $index, |
110 |
$f[0]= $dateentered if !$f[0] || $f[0]=~/\s/; |
130 |
f1 => $f1, |
111 |
$template->param(f1 => $f[0]); |
131 |
f6 => $f6, |
112 |
|
132 |
"f6$f6" => $f6, |
113 |
for(6..17,28,29,31..33,38,39) { |
133 |
f7 => $f7, |
114 |
$template->param( |
134 |
"f7$f7" => $f7, |
115 |
"f$_" => $f[$_], |
135 |
f8 => $f8, |
116 |
"f$_".($f[$_] eq '|'? 'pipe': $f[$_]) => $f[$_], |
136 |
"f8$f8" => $f8, |
117 |
); |
137 |
f9 => $f9, |
118 |
} |
138 |
"f9$f9" => $f9, |
119 |
output_html_with_http_headers $input, $cookie, $template->output; |
139 |
f10 => $f10, |
|
|
140 |
"f10$f10" => $f10, |
141 |
f11 => $f11, |
142 |
"f11$f11" => $f11, |
143 |
f12 => $f12, |
144 |
"f12$f12" => $f12, |
145 |
f13 => $f13, |
146 |
"f13$f13" => $f13, |
147 |
f14 => $f14, |
148 |
"f14$f14" => $f14, |
149 |
f15 => $f15, |
150 |
"f15$f15" => $f15, |
151 |
f16 => $f16, |
152 |
"f16$f16" => $f16, |
153 |
f17 => $f17, |
154 |
"f17$f17" => $f17, |
155 |
f28 => $f28, |
156 |
"f28$f28" => $f28, |
157 |
f29 => $f29, |
158 |
"f29$f29" => $f29, |
159 |
f31 => $f31, |
160 |
"f31$f31" => $f31, |
161 |
f32 => $f32, |
162 |
"f32$f32" => $f32, |
163 |
f33 => $f33, |
164 |
"f33$f33" => $f33, |
165 |
f38 => $f38, |
166 |
"f38$f38" => $f38, |
167 |
f39 => $f39, |
168 |
"f39$f39" => $f39, |
169 |
); |
170 |
output_html_with_http_headers $input, $cookie, $template->output; |
171 |
} |
120 |
} |
172 |
|
121 |
|
173 |
sub Field008 { |
122 |
sub Field008 { |
174 |
- |
|
|