insert was working

[Gerald Preston]

Hi!

 

I was able to insert data with the following:

 

sub insert_sql {

 

  my ( $group_name, $me, $daily, $item, $unit, $qty, $amount, $tax, $total,
$DEBUG ) = @_;

 

  print "[EMAIL PROTECTED]" if $DEBUG;

  ( $group_name, $me, $daily, $item, $unit, $qty, $amount, $tax, $total ) =
&clean_sql( $group_name, $me, $daily, $item, $unit, $qty, $amount, $tax,
$total, $DEBUG );

  print "\ninsert_sql -
*$group_name*$me*$daily*$item*$unit*$qty*$amount*$tax*$total*\n" if $DEBUG;

  my $dbh = DBI->connect( "DBI:mysql:club","gjwpp88","password" ) || die
"\n$DBI::errstr\n";

  my $sql = "insert into wolfies( group_name, me, daily, item, unit, qty,
amount, tax, total )

                          values( ?,          ?,  ?,     ?,    ?,    ?,   ?,
?,   ?     )";

  my $sth = $dbh->prepare( $sql ) || die $dbh->errstr;

  $sth->execute( $group_name, $me, $daily, $item, $unit, $qty, $amount,
$tax, $total ) || die "Cannot execute insert_sql!!\n$DBI::errstr";

}1;

 

I am no longer able to insert any data at all.  No errors, nothing.  It acts
like it works. But I am able to select existing data with the following:

 

sub select_sql {

 

  my ( $me, $daily, $DEBUG ) = @_;

  my %data = ();

  

  print "[EMAIL PROTECTED]" if $DEBUG;

  $me     =~ s/\s+//;

  $daily  =~ s/\s+//;

  my $dbh = DBI->connect( "DBI:mysql:club","gjwpp88","password" ) or die
"\n$DBI::errstr\n";

  my $sql = "select group_name, me, daily, item, unit, qty, amount, tax,
total 

             from   wolfies 

             where  me    = '$me' 

             and    daily = '$daily'

            "; 

  print "sql *$sql*\n" if $DEBUG; 

  my $sth = $dbh->prepare( $sql ) || die "$DBI::errstr\n"; 

  my $rv  = $sth->execute() || die "Cannot execute
select_sql!!<br>$DBI::errstr"; 

  while( my ( $group_name, $me, $daily, $item, $unit, $qty, $amount, $tax,
$total ) = $sth->fetchrow() ) {

    print "\nselect_sql $group_name, $me, $daily, $item, $unit, $qty,
$amount, $tax, $total*\n" if $DEBUG;

    push @{ $data{ $group_name }}, "$item, $unit, $qty, $amount, $tax,
$total";

  }

  return \%data;

}1;

 

I have done the following setup options:

 

GRANT ALL PRIVILEGES ON club.* TO 'gjwpp88'@'localhost';

 

SET PASSWORD FOR 'gjwpp88'@'localhost' = PASSWORD('password');

 

UPDATE mysql.user SET Password = OLD_PASSWORD('password')

WHERE Host = 'localhost' AND User = 'gjwpp88';

 

SET PASSWORD FOR 'gjwpp88'@'localhost' = OLD_PASSWORD('password');

 

SELECT 'localhost', 'gjwpp88', Password FROM mysql.user

WHERE LENGTH('password') > 16;

 

 

 

FLUSH PRIVILEGES;

 

Any ideas?

 

Thanks,

 

Jerry