From bdd324f187095abba8a6ef03bb95203cb68344f4 Mon Sep 17 00:00:00 2001 From: tipaul Date: Mon, 24 Jun 2002 14:16:36 +0000 Subject: [PATCH] merging of rel-1-2 and main branch --- acqui/addorder.pl | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/acqui/addorder.pl b/acqui/addorder.pl index 75e9d40637..920a516186 100755 --- a/acqui/addorder.pl +++ b/acqui/addorder.pl @@ -7,8 +7,13 @@ use strict; use CGI; use C4::Output; use C4::Acquisitions; +#use Date::Manip; my $input = new CGI; +#print $input->header; +#print startpage(); +#print startmenu('acquisitions'); +#print $input->dump; my $existing=$input->param('existing'); my $title=$input->param('title'); $title=~ s/\'/\\\'/g; @@ -45,8 +50,6 @@ if ($quantity ne '0'){ author => $author?$author:"", copyright => $copyright?$copyright:"", series => $series?$series:"", - - }); $bibitemnum = &newbiblioitem({ biblionumber => $bibnum, itemtype => $itemtype?$itemtype:"", -- 2.39.5