[Koha-cvs] koha/C4 Labels.pm [dev_week]
Mason James
szrj1m at yahoo.com
Thu Jul 5 22:57:03 CEST 2007
CVSROOT: /sources/koha
Module name: koha
Branch: dev_week
Changes by: Mason James <sushi> 07/07/05 20:57:03
Modified files:
C4 : Labels.pm
Log message:
labels_conf table is appended to, not deleted/ then written
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Labels.pm?cvsroot=koha&only_with_tag=dev_week&r1=1.3.4.10&r2=1.3.4.11
Patches:
Index: Labels.pm
===================================================================
RCS file: /sources/koha/koha/C4/Labels.pm,v
retrieving revision 1.3.4.10
retrieving revision 1.3.4.11
diff -u -b -r1.3.4.10 -r1.3.4.11
--- Labels.pm 5 Jul 2007 16:43:40 -0000 1.3.4.10
+++ Labels.pm 5 Jul 2007 20:57:03 -0000 1.3.4.11
@@ -69,7 +69,7 @@
#'
sub get_label_options {
my $dbh = C4::Context->dbh;
- my $query2 = " SELECT * FROM labels_conf LIMIT 1 ";
+ my $query2 = " SELECT * FROM labels_conf where active = 1";
my $sth = $dbh->prepare($query2);
$sth->execute();
my $conf_data = $sth->fetchrow_hashref;
@@ -308,21 +308,21 @@
sub SaveConf {
my (
- $barcodetype, $title, $isbn,,
+ $barcodetype, $title, $isbn,
$issn, $itemtype, $bcn, $dcn,
$classif, $subclass, $itemcallnumber, $author,
$tmpl_id, $printingtype, $guidebox, $startlabel
) = @_;
my $dbh = C4::Context->dbh;
- my $query2 = "DELETE FROM labels_conf";
+ my $query2 = "update labels_conf set active = NULL";
my $sth2 = $dbh->prepare($query2);
$sth2->execute();
my $query2 = "INSERT INTO labels_conf
( barcodetype, title, isbn,issn, itemtype, barcode,
dewey, class, subclass, itemcallnumber, author, printingtype,
- guidebox, startlabel )
- values ( ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?,? )";
+ guidebox, startlabel, active )
+ values ( ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?,?, 1 )";
my $sth2 = $dbh->prepare($query2);
$sth2->execute(
$barcodetype, $title, $isbn, $issn,
More information about the Koha-cvs
mailing list