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
On Jan 12, 9:44 am, shlo...@iglu.org.il (Shlomi Fish) wrote:
> 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 variables using "my":
>
> http://perl-begin.org/tutorials/bad-elements/#no-strict-and-warnings
>
> > if (@TiesArray[0] ne "") {
>
> > @TiesDesc = SSDDescArray($uniqueorgref);
>
> You should indent properly. See:
>
> http://perl-begin.org/tutorials/bad-elements/#no-indentation
>
> > %TiesHash = @TiesDesc;
>
> Are you sure you want to initialise a hash from an array this way?
>
> > $q = new CGI;
>
> Avoid indirect object notation:
>
> http://perl-begin.org/tutorials/bad-elements/#indirect-object-notation
>
> And you should call the CGI object with a more meaningful name than "$q".
>
> > print $q->start_form(-method=>"POST",
> > -action=>"http://....../cgi-bin/ViewQuote.pl";),
> > $q->p("The system has identified .... etc and click the SEND
> > button."),
> > $q->hidden("uniqueorgref", $uniqueorgref),
> > $q->radio_group(-name=>"hideordNo", -values=>\...@tiesarray, -
> > linebreak=>"true", -labels=>\%TiesHash),
> > $q->submit("Send"),
> > $q->hr,
> > $q->end_form;
>
> I don't like CGI.pm's HTML generation methods too much (they are bloat if you
>
> ask me). A templating system such as the Template Toolkit will be better:
>
> http://perl-begin.org/uses/text-generation/
>
> > }
>
> > My problem is that the hash that describes the radio group values -
> > %TiesHash - (and should replace them on screen) is not operating. Any
> > thoughts?
>
> You can try using a debugger to see where it goes wrong:
>
> http://perl-begin.org/topics/debugging/
>
> Regards,
>
> Shlomi Fish
>
> --
> -----------------------------------------------------------------
> Shlomi Fish http://www.shlomifish.org/
> My Public Domain Photos -http://www.flickr.com/photos/shlomif/
>
> Chuck Norris can make the statement "This statement is false" a true one.
>
> Please reply to list if it's a mailing list post -http://shlom.in/reply.
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
