sub getbranches renamed to GetBranches according to the coding guidelines

[koha_fer] / C4 / Breeding.pm

diff --git a/C4/Breeding.pm b/C4/Breeding.pm
index 1583fda..030da53 100644 (file)
--- a/C4/Breeding.pm
+++ b/C4/Breeding.pm
@@ -91,8 +91,10 @@ where isbn=? and title=?");
                                $searchisbn->execute($oldbiblio->{isbn});
                                ($biblioitemnumber) = $searchisbn->fetchrow;
                        } else {
-                               $searchissn->execute($oldbiblio->{issn});
-                               ($biblioitemnumber) = $searchissn->fetchrow;
+                               if ($oldbiblio->{issn}) {
+                                $searchissn->execute($oldbiblio->{issn});
+                                ($biblioitemnumber) = $searchissn->fetchrow;
+                                }
                        }
                        if ($biblioitemnumber) {
                                $alreadyindb++;