# pad adds leading zeros to a string

### FROM THE MODULE THAT QUERIES THE DATA ####

sub pad( )
{
   my $output;

   my ($string, $length)=@_;
        
   if( $string eq "" )
	{
	   $output = "0";

	}
   else
   {
	   my $padlength=$length-length($string);
      $output = "0"x$padlength.$string;

   }

   return $output;

} 



sub get_number_prereg_adult( $ )
{
   my $data;
   my $query;	

   my $self = shift;

   my $dbh  = $self->{dbh};	
	

 	my $sqlQuery = "SELECT COUNT(*)
                      FROM PREREGDATA
                     WHERE GroupID  = $self->{'group_id'}
                       AND Category = \'1\'";
	                    
   $query = $dbh->prepare( $sqlQuery );
     
   $query->execute() || die $dbh->errstr;
   
   if( $data = $query->fetchrow_array() )
   {		
       $self->{error_type}   = "";   
       $self->{error_string} = "";
       return( pad( $data, 1 ) );

   }
   else
   {
       $self->{error_type}   = "variable returned no value";   
       $self->{error_string} = "variable returned no value";	
       return( undef ); 
   }	
   
}


### FROM THE MODULE THAT USES HTML TEMPLATE

   #set template page
   $template = HTML::Template->new( filename=>"update_group_information_template.htm" );
	


	                        
	                        
	$template->param( number_pre_reg_adult_variable_string      => $query_module->get_number_prereg_adult   );