[Koha-cvs] koha/C4 Maintainance.pm

[Mason James]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Mason James <sushi>     06/06/06 23:20:30

Modified files:
        C4             : Maintainance.pm 

Log message:
        Merging Katipo changes
        
        Now removing the resurrected biblio from the list.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Maintainance.pm?cvsroot=koha&r1=1.17&r2=1.18

Patches:
Index: Maintainance.pm
===================================================================
RCS file: /sources/koha/koha/C4/Maintainance.pm,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -b -r1.17 -r1.18
--- Maintainance.pm     15 Jul 2005 16:10:34 -0000      1.17
+++ Maintainance.pm     6 Jun 2006 23:20:30 -0000       1.18
@@ -185,15 +185,16 @@
     $sth->finish;
     # FIXME - Doesn't this keep the same biblionumber? Isn't this
     # forbidden by the definition of 'biblio'? Or doesn't it matter?
-    my $query="Insert into biblio values (";
-    $query .= ("?," x $#data);
+    my $query="INSERT INTO biblio VALUES (";
+   my $count = @data;
+    $query .= ("?," x $count);
     $query=~ s/\,$/\)/;
     #   print $query;
     $sth=$dbh->prepare($query);
     $sth->execute(@data);
     $sth->finish;
   }
-  $sth=$dbh->prepare("Delete from deletedbiblio where biblionumber=?");
+  $sth=$dbh->prepare("DELETE FROM deletedbiblio WHERE biblionumber=?");
   $sth->execute($bib);
   $sth->finish;
 }