Re: Package Help

2003-11-13 Thread Tore Aursand
On Fri, 14 Nov 2003 07:47:36 +1100, Colin Johnstone wrote: > my $formName = 'form'.$self->? my $formName = 'form' . $self->{'FRM_CNT'}; > my ($proto, $sysData) = @_; > my $class = ref($proto) || $proto; No need for all this. Just write: my $class = shift; my $sysData = shift; -

Re: Package Help

2003-11-13 Thread Jeff 'japhy' Pinyan
On Nov 14, Colin Johnstone said: >I have to keep track of the number of forms on my page so I can create >unique names for them, to do that I have initiated a variable FRM_CNT. > >The modification I have to make is to add a sub that produces the HTML for >a drop down box, one of the first tasks of

Package Help

2003-11-13 Thread Colin Johnstone
Gidday All, Im modifying this package. What it does is produce the html for our presentation templates of our content management system. I have to keep track of the number of forms on my page so I can create unique names for them, to do that I have initiated a variable FRM_CNT. One of my more