use SL::Form;
+use strict;
+
sub save_license {
$main::lxdebug->enter_sub();
my ($self, $myconfig, $form) = @_;
- $dbh = $form->dbconnect($myconfig);
+ my $dbh = $form->dbconnect($myconfig);
- $query =
+ my $query =
qq| INSERT INTO license (licensenumber) VALUES ('$form->{licensenumber}')|;
- $sth = $dbh->prepare($query);
+ my $sth = $dbh->prepare($query);
$sth->execute || $form->dberror($query);
$sth->finish();
qq|SELECT l.id FROM license l WHERE l.licensenumber = '$form->{licensenumber}'|;
$sth = $dbh->prepare($query);
$sth->execute || $form->dberror($query);
- ($license_id) = $sth->fetchrow_array;
+ my ($license_id) = $sth->fetchrow_array;
$sth->finish();
# save license
$sth->execute || $form->dberror($query);
$sth->finish();
- if ($form->{own_product}) {
- $form->update_balance($dbh, "parts", "onhand", qq|id = $form->{parts_id}|,
- 1);
- }
-
$dbh->disconnect();
$main::lxdebug->leave_sub();
my $sth = $dbh->prepare($query);
$sth->execute || $form->dberror($query);
$form->{"all_customers"} = [];
- while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
+ while ($ref = $sth->fetchrow_hashref("NAME_lc")) {
push(@{ $form->{"all_customers"} }, $ref);
}
$sth->finish();
$sth = $dbh->prepare($query);
$sth->execute() || $form->dberror($query);
$form->{"licenses"} = [];
- while ($ref = $sth->fetchrow_hashref(NAME_lc)) {
+ while ($ref = $sth->fetchrow_hashref("NAME_lc")) {
push(@{ $form->{"licenses"} }, $ref);
}
. $form->{"id"};
$sth = $dbh->prepare($query);
$sth->execute() || $form->dberror($query);
- $form->{"license"} = $sth->fetchrow_hashref(NAME_lc);
+ $form->{"license"} = $sth->fetchrow_hashref("NAME_lc");
$sth->finish();
$dbh->disconnect();
$main::lxdebug->leave_sub();