diff options
Diffstat (limited to 'utils/webNLT.pl')
-rwxr-xr-x | utils/webNLT.pl | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/utils/webNLT.pl b/utils/webNLT.pl index 7f55b60..fb29fd2 100755 --- a/utils/webNLT.pl +++ b/utils/webNLT.pl @@ -61,15 +61,18 @@ else { my @names = $q->param('name'); my @tests = $q->param('test'); + print "<P>"; + print join "<BR>", @names; + print "<P>"; + print join "<BR>", @tests; + print "<P>"; $str = "pwd=" . $q->param('pwd'); $count = 0; - while (@names) + foreach $n (@names) { - $n = pop @names; - while (@tests) + foreach $t (@tests) { - $t = pop @tests; - $str .= "&t$count=$t&n$count=$n"; + $str = "$str&t$count=$t&n$count=$n"; $count++; } } |