# GNU General Public License for more details.
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
+# MA 02110-1335, USA.
#======================================================================
#
# Administration module
return;
}
- # set inventory_accno_id, income_accno_id, expense_accno_id to defaults
- foreach my $type (qw(inventory income expense)) {
- $query =
- qq|UPDATE parts | .
- qq|SET ${type}_accno_id = (SELECT ${type}_accno_id FROM defaults) | .
- qq|WHERE ${type}_accno_id = ?|;
- do_query($form, $dbh, $query, $form->{id});
- }
-
$query = qq|DELETE FROM tax
WHERE chart_id = ?|;
do_query($form, $dbh, $query, $form->{id});
return 1;
}
-sub lead {
- $main::lxdebug->enter_sub();
-
- my ($self, $myconfig, $form) = @_;
-
- my $dbh = SL::DB->client->dbh;
-
- my $query = qq|SELECT id, lead
- FROM leads
- ORDER BY 2|;
-
- my $sth = $dbh->prepare($query);
- $sth->execute || $form->dberror($query);
-
- while (my $ref = $sth->fetchrow_hashref("NAME_lc")) {
- push @{ $form->{ALL} }, $ref;
- }
-
- $sth->finish;
-
- $main::lxdebug->leave_sub();
-}
-
-sub get_lead {
- $main::lxdebug->enter_sub();
-
- my ($self, $myconfig, $form) = @_;
-
- my $dbh = SL::DB->client->dbh;
-
- my $query =
- qq|SELECT l.id, l.lead | .
- qq|FROM leads l | .
- qq|WHERE l.id = ?|;
- my $sth = $dbh->prepare($query);
- $sth->execute($form->{id}) || $form->dberror($query . " ($form->{id})");
-
- my $ref = $sth->fetchrow_hashref("NAME_lc");
-
- map { $form->{$_} = $ref->{$_} } keys %$ref;
-
- $sth->finish;
-
- $main::lxdebug->leave_sub();
-}
-
-sub save_lead {
- $main::lxdebug->enter_sub();
-
- my ($self, $myconfig, $form) = @_;
- my ($query);
-
- my $dbh = SL::DB->client->dbh;
-
- my @values = ($form->{description});
- # id is the old record
- if ($form->{id}) {
- $query = qq|UPDATE leads SET
- lead = ?
- WHERE id = ?|;
- push(@values, $form->{id});
- } else {
- $query = qq|INSERT INTO leads
- (lead)
- VALUES (?)|;
- }
- do_query($form, $dbh, $query, @values);
-
- $main::lxdebug->leave_sub();
-}
-
-sub delete_lead {
- $main::lxdebug->enter_sub();
-
- my ($self, $myconfig, $form) = @_;
- my ($query);
-
- SL::DB->client->with_transaction(sub {
- $query = qq|DELETE FROM leads WHERE id = ?|;
- do_query($form, SL::DB->client->dbh, $query, $form->{id});
- });
-
- $main::lxdebug->leave_sub();
-}
-
sub language {
$main::lxdebug->enter_sub();
") VALUES (?, ?, ?, ?, ?, ?)";
}
do_query($form, $dbh, $query, @values);
- });
+ 1;
+ }) or do { die SL::DB->client->error };
$main::lxdebug->leave_sub();
}
$query = "DELETE FROM language WHERE id = ?";
do_query($form, $dbh, $query, $form->{"id"});
- });
+ 1;
+ }) or do { die SL::DB->client->error };
$main::lxdebug->leave_sub();
}
# set close in defaults
do_query($form, $dbh, $query, @values);
- });
+ 1;
+ }) or do { die SL::DB->client->error };
$main::lxdebug->leave_sub();
}
}
$sth->finish();
}
- });
+ 1;
+ }) or do { die SL::DB->client->error };
$main::lxdebug->leave_sub();
}
SL::DB->client->with_transaction(sub {
$query = qq|DELETE FROM tax WHERE id = ?|;
do_query($form, SL::DB->client->dbh, $query, $form->{id});
- });
+ 1;
+ }) or do { die SL::DB->client->error };
$main::lxdebug->leave_sub();
}
}
do_query($form, $dbh, $query, @values);
- });
+ 1;
+ }) or do { die SL::DB->client->error };
$main::lxdebug->leave_sub();
}
SL::DB->client->with_transaction(sub {
do_query($form, SL::DB->client->dbh, qq|DELETE FROM price_factors WHERE id = ?|, conv_i($form->{id}));
- });
+ 1;
+ }) or do { die SL::DB->client->error };
$main::lxdebug->leave_sub();
}
$sth->finish();
}
- });
+ 1;
+ }) or do { die SL::DB->client->error };
$main::lxdebug->leave_sub();
}
}
$sth->finish();
- });
+ 1;
+ }) or do { die SL::DB->client->error };
$main::lxdebug->leave_sub();
}