[Koha-devel] CVS: koha/C4 Acquisitions.pm,1.4,1.5

[Chris Cormack]

Update of /cvsroot/koha/koha/C4
In directory usw-pr-cvs1:/tmp/cvs-serv14189/C4

Modified Files:
        Acquisitions.pm 
Log Message:
Fixing bug reported by Steve,
Couldnt remove an additional Author when modifying a biblio


Index: Acquisitions.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Acquisitions.pm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** Acquisitions.pm     15 Apr 2002 05:33:33 -0000      1.4
--- Acquisitions.pm     21 Apr 2002 06:33:32 -0000      1.5
***************
*** 19,22 ****
--- 19,23 ----
  &getallorders &getrecorders &updatecurrencies &getorder &getcurrency 
&updaterecorder
  &updatecost &checkitems &modnote &getitemtypes &getbiblio);
+ 
  %EXPORT_TAGS = ( );     # eg: TAG => [ qw!name1 name2! ],
  
***************
*** 420,425 ****
    my 
($bibnum,$title,$author,$copyright,$seriestitle,$serial,$unititle,$notes)address@hidden;
    my $dbh=C4Connect;
-   #$title=~ s/\'/\\\'/g;
-   #$author=~ s/\'/\\\'/g;
    my $query="update biblio set title='$title',
    author='$author',copyrightdate='$copyright',
--- 421,424 ----
***************
*** 450,458 ****
    my $sth=$dbh->prepare($query);
    $sth->execute;
-     $query="insert into additionalauthors (author,biblionumber) values 
('$author','$bibnum')";
-   $sth->finish;
-   $sth=$dbh->prepare($query);
-   $sth->execute;
    $sth->finish;
    $dbh->disconnect;
  } 
--- 449,459 ----
    my $sth=$dbh->prepare($query);
    $sth->execute;
    $sth->finish;
+   if ($author ne ''){
+       $query="insert into additionalauthors (author,biblionumber) values 
('$author','$bibnum')";
+     $sth=$dbh->prepare($query);
+     $sth->execute;
+     $sth->finish;
+   }
    $dbh->disconnect;
  }