> "R" == Ruud writes:
R> On 2011-01-12 10:44, Shlomi Fish wrote:
>> Add:
>>
>> {{{
>> use strict;
>> use warnings;
>> }}}
>>
>> to the start of your script.
R> That adds 3 ENTERs and LEAVEs for no good reason. The code is not in a
R> tight loop, so that doesn't matte
On 2011-01-12 10:44, Shlomi Fish wrote:
Add:
{{{
use strict;
use warnings;
}}}
to the start of your script.
That adds 3 ENTERs and LEAVEs for no good reason. The code is not in a
tight loop, so that doesn't matter much, but there is more:
perl -MData::Dumper -wle '
$x = 1;
{{{
use
Hi Shlomi
Thanks for your comments.
In fact, the problem was enirely my own fault and did not exihibit in
the code I published.
More specifically the hash I created in %TiesHash did not use the
correct Key - hence it didn't work.
Get that right and the rest falls into place nicely.
Stephen
Stephen Allen wrote:
I have sucessfully created as Radio-group along the lines of
@TiesArray = SSDArray($uniqueorgref);
if (@TiesArray[0] ne "") {
You are testing a list against a scalar value, but fortunately your list
has only one element. If you had warnings enabled then perl would have
Hi Stephen,
a few comments on your code:
On Tuesday 11 Jan 2011 17:44:32 Stephen Allen wrote:
> I have sucessfully created as Radio-group along the lines of
>
> @TiesArray = SSDArray($uniqueorgref);
Add:
{{{
use strict;
use warnings;
}}}
to the start of your script. Then declare all variable
I have sucessfully created as Radio-group along the lines of
@TiesArray = SSDArray($uniqueorgref);
if (@TiesArray[0] ne "") {
@TiesDesc = SSDDescArray($uniqueorgref);
%TiesHash = @TiesDesc;
$q = new CGI;
print $q->start_form(-method=>"POST",
-action=>"http://../cgi-bin/ViewQuote.pl";),
$q->
