From 6d2a66e639d6e2db31fcbee2310b4618aabbf9ca Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Wed, 15 May 2002 07:52:01 +0000
Subject: [PATCH] newsubtitle called only if title exist

---
 acqui/addorder.pl | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

diff --git a/acqui/addorder.pl b/acqui/addorder.pl
index 93dfaddd86..1e00b8a9c3 100755
--- a/acqui/addorder.pl
+++ b/acqui/addorder.pl
@@ -47,7 +47,9 @@ if ($quantity ne '0'){
     $bibitemnum = &newbiblioitem({ biblionumber => $bibnum,
  	                           itemtype     => $itemtype?$itemtype:"",
 	                           isben        => $isbn?$isbn:"" });
-    newsubtitle($bibnum);
+	if ($title) {
+    		newsubtitle($bibnum,$title);
+	}
     modbiblio({ biblionumber  => $bibnum,
 	        title         => $title?$title:"",
 	        author        => $author?$author:"",
@@ -58,10 +60,9 @@ if ($quantity ne '0'){
     $bibitemnum=$input->param('bibitemnum');
     my $oldtype=$input->param('oldtype');
     if ($bibitemnum eq '' || $itemtype ne $oldtype){
-      $bibitemnum = &newbiblioitem({
-	  biblionumber => $bibnum,
-	  itemtype     => $itemtype?$itemtype:"",
-	  isbn         => $isbn?$isbn:"" });
+      $bibitemnum= &newbiblioitem({ biblionumber => $bibnum,
+	 						 itemtype => $itemtype?$itemtype:"",
+							 isben => $isbn?$isbn:"" });
     }
     &modbiblio({
         biblionumber  => $bibnum,
-- 
2.39.5