Italian SQL updates

[koha.git] / C4 / Maintainance.pm

diff --git a/C4/Maintainance.pm b/C4/Maintainance.pm
index 6bcd533..b8a23c8 100644 (file)
--- a/C4/Maintainance.pm
+++ b/C4/Maintainance.pm
@@ -51,7 +51,7 @@ miscategorized items, etc.
 =cut
 
 @ISA = qw(Exporter);
-@EXPORT = qw(&listsubjects &updatesub &shiftgroup &deletedbib &undeletebib
+@EXPORT = qw(&listsubjects &shiftgroup &deletedbib &undeletebib
 &updatetype &logaction);
 
 =item listsubjects
@@ -100,23 +100,6 @@ sub listsubjects {
   return($i,\@results);
 }
 
-=item updatesub
-
-  &updatesub($newsubject, $oldsubject);
-
-Renames a subject from C<$oldsubject> to C<$newsubject> in the
-bibliosubject table of the Koha database.
-
-=cut
-#'
-sub updatesub{
-  my ($sub,$oldsub)=@_;
-  my $dbh = C4::Context->dbh;
-  my $sth=$dbh->prepare("update bibliosubject set subject=? where subject=?");
-  $sth->execute($sub,$oldsub);
-  $sth->finish;
-}
-
 =item shiftgroup
 
   &shiftgroup($biblionumber, $biblioitemnumber);
@@ -128,13 +111,13 @@ C<$biblionumber> is the biblionumber to associate it with.
 =cut
 #'
 sub shiftgroup{
-  my ($bib,$bi)=@_;
+  my ($biblionumber,$bi)=@_;
   my $dbh = C4::Context->dbh;
   my $sth=$dbh->prepare("update biblioitems set biblionumber=? where biblioitemnumber=?");
-  $sth->execute($bib,$bi);
+  $sth->execute($biblionumber,$bi);
   $sth->finish;
   $sth=$dbh->prepare("update items set biblionumber=? where biblioitemnumber=?");
-  $sth->execute($bib,$bi);
+  $sth->execute($biblionumber,$bi);
   $sth->finish;
 }
 
@@ -177,24 +160,25 @@ moves its entry to the biblio table.
 =cut
 #'
 sub undeletebib{
-  my ($bib)=@_;
+  my ($biblionumber)=@_;
   my $dbh = C4::Context->dbh;
   my $sth=$dbh->prepare("select * from deletedbiblio where biblionumber=?");
-  $sth->execute($bib);
+  $sth->execute($biblionumber);
   if (my @data=$sth->fetchrow_array){
     $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->execute($bib);
+  $sth=$dbh->prepare("DELETE FROM deletedbiblio WHERE biblionumber=?");
+  $sth->execute($biblionumber);
   $sth->finish;
 }