[Koha-cvs] koha/C4 Labels.pm [dev_week]

[Mason James]

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,