Package Help

[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 experienced colleagues said I should do this in the 
constructor. As below.

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 ?

Any help appreciated.
Thank You
Colin

package aphrweb::htmlHelper;
use strict;

#----------------------------------------------------------------------------------------
# This package builds HTML used:
#  - in 'old' workflow (new workflow (cwf) is done in cwfHelper)
#  - in TPLs (converts DCR fields to HTML)
#----------------------------------------------------------------------------------------

# globals
my %w3styles = ();
my $needStyles = 1;
my $tabCnt = 0;

#----------------------------------------------------------------------------------------
# Constructor.
#----------------------------------------------------------------------------------------
sub new
{
  my ($proto, $sysData) = @_;
  my $class = ref($proto) || $proto;

  my $object = {};
  bless $object, $class;

  $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"}."'");

  return $object;
}