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 this sub is to generate the >form name > >sub getDropDownHTML { > my ($self,$lstr) = @_; > my $outHTML = ""; > my $formName = 'form'.$self->? > return($outHTML); >} > >How do I reference the FRM_CNT variable of the package, am I on the right >track ?
$self->{FRM_CNT} > $object->{"SYS_DATA"} = $sysData; > $object->{"W3_STYLES"} = ""; > > $object->{"ASSET_URI"} = "/hr/global/yourcareer"; > $object->{"ASSET_FOLDER"} = "globalassets"; > $object->{"HTML_BR"} = "global"; > ++$object->{"FRM_CNT"}; > > my $debug = $sysData->{"debug"}; > $debug->cp3Debug("htmlHelper::new","src='".$sysData->{"SRC"}."'"); You don't need quotes around keys to hashes, if they're simple strings like the ones you've shown. Specifically, that last line could be: $debug->cp3Debug("htmlHelper::new", "src='$sysData->{SRC}'"); Oh, and I don't know if you have control over the cp3Debug() method, but the caller() function can tell you what function you came from, so you don't need to hard-code it into every debugging call. -- Jeff "japhy" Pinyan [EMAIL PROTECTED] http://www.pobox.com/~japhy/ RPI Acacia brother #734 http://www.perlmonks.org/ http://www.cpan.org/ <stu> what does y/// stand for? <tenderpuss> why, yansliterate of course. [ I'm looking for programming work. If you like my work, let me know. ] -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]