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/