From rangi@users.sourceforge.net Sat Mar 30 17:18:39 2002
From: Chris Cormack <rangi@users.sourceforge.net>
To: koha-devel@lists.koha-community.org
Subject: [Koha-devel] CVS: koha/acqui.simple addbooks.pl,1.2,1.3
Date: Sat, 30 Mar 2002 17:19:19 +0000
Message-ID: <E16rTzS-0006jg-00@usw-pr-cvs1.sourceforge.net>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============5378964476588194758=="

--===============5378964476588194758==
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: quoted-printable

Update of /cvsroot/koha/koha/acqui.simple
In directory usw-pr-cvs1:/tmp/cvs-serv25830

Modified Files:
	addbooks.pl=20
Log Message:
Draws list of branches from the branches table now, when adding an item



Index: addbooks.pl
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /cvsroot/koha/koha/acqui.simple/addbooks.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** addbooks.pl	6 Nov 2001 18:25:30 -0000	1.2
--- addbooks.pl	31 Mar 2002 01:18:36 -0000	1.3
***************
*** 12,16 ****
  use C4::Acquisitions;
  use C4::Output;
!=20
 =20
  my $input =3D new CGI;
--- 12,16 ----
  use C4::Acquisitions;
  use C4::Output;
! use C4::Circulation::Circ2;
 =20
  my $input =3D new CGI;
***************
*** 156,159 ****
--- 156,161 ----
 =20
  sub newbiblioitem {
+     #print=20
+ #    print "in here";
      my $biblionumber=3D$input->param('biblionumber');
      my $volume=3D$input->param('volume');
***************
*** 198,202 ****
      $biblioitemnumber++;
      ($q_isbn=3D'') if ($q_isbn eq 'NULL');
!     $sth=3D$dbh->prepare("insert into biblioitems (biblioitemnumber,
      biblionumber, volume, number, classification, itemtype, isbn, issn, lcc=
n, dewey, subclass,
      publicationyear, publishercode, volumedate, volumeddesc, illus, pages,
--- 200,204 ----
      $biblioitemnumber++;
      ($q_isbn=3D'') if ($q_isbn eq 'NULL');
!     my $query=3D"insert into biblioitems (biblioitemnumber,
      biblionumber, volume, number, classification, itemtype, isbn, issn, lcc=
n, dewey, subclass,
      publicationyear, publishercode, volumedate, volumeddesc, illus, pages,
***************
*** 204,208 ****
      $q_number, $q_classification, $q_itemtype, $q_isbn, $q_issn, $q_lccn, $=
q_dewey, $q_subclass,
      $q_publicationyear, $q_publishercode, $q_volumedate, $q_volumeddesc,
!     $q_illus, $q_pages, $q_notes, $q_size, $q_place)");
      $sth->execute;
      my @subjectheadings=3Dsplit(/\n/,$subjectheadings);
--- 206,212 ----
      $q_number, $q_classification, $q_itemtype, $q_isbn, $q_issn, $q_lccn, $=
q_dewey, $q_subclass,
      $q_publicationyear, $q_publishercode, $q_volumedate, $q_volumeddesc,
!     $q_illus, $q_pages, $q_notes, $q_size, $q_place)";
!     $sth=3D$dbh->prepare($query);
! #    print $query;
      $sth->execute;
      my @subjectheadings=3Dsplit(/\n/,$subjectheadings);
***************
*** 311,315 ****
  <input type=3Dhidden name=3Dbiblioitemnumber value=3D$biblioitemnumber>
  <table>
! <tr><td>BARCODE</td><td><input name=3Dbarcode size=3D10 value=3D$maxbarcode=
> Home Branch: <select name=3Dhomebranch><option value=3D'STWE'>Stewart Eleme=
ntary<option value=3D'MEZ'>Meziadin Elementary</select></td></tr>
  </tr><td colspan=3D2>Replacement Price: <input name=3Dreplacementprice size=
=3D10></td></tr>
  <tr><td>Notes</td><td><textarea name=3Dnotes rows=3D4 cols=3D40
--- 315,330 ----
  <input type=3Dhidden name=3Dbiblioitemnumber value=3D$biblioitemnumber>
  <table>
! <tr><td>BARCODE</td><td><input name=3Dbarcode size=3D10 value=3D$maxbarcode=
>=20
! Home Branch: <select name=3Dhomebranch>
! EOF
! 	 =20
! my $branches=3Dgetbranches();
! foreach my $key (sort(keys %$branches)) {
!      print "<option value=3D\"$key\">$branches->{$key}->{'branchname'}</opt=
ion>";
! #      $key, '=3D', $branches->{$key}, "\n";
!          } =20
! #	  <option value=3D'STWE'>Stewart Elementary<option value=3D'MEZ'>Meziadin=
 Elementary
! print << "EOF";
! 	  </select></td></tr>
  </tr><td colspan=3D2>Replacement Price: <input name=3Dreplacementprice size=
=3D10></td></tr>
  <tr><td>Notes</td><td><textarea name=3Dnotes rows=3D4 cols=3D40



--===============5378964476588194758==--


From rog@saas.nsw.edu.au Sat Mar 30 17:33:07 2002
From: Roger Buck <rog@saas.nsw.edu.au>
To: koha-devel@lists.koha-community.org
Subject: Re: [Koha-devel] CVS: koha/acqui.simple addbooks.pl,1.2,1.3
Date: Sat, 30 Mar 2002 17:34:03 +0000
Message-ID: <3CA66748.51F1EAB0@saas.nsw.edu.au>
In-Reply-To: <E16rTzS-0006jg-00@usw-pr-cvs1.sourceforge.net>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============0795187955562487406=="

--===============0795187955562487406==
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: 7bit

Chris Cormack wrote:
> 
> Update of /cvsroot/koha/koha/acqui.simple

Just when you thought it was safe to go back in the water...

does addbookslccn.pl suffer same problem?

R.


--===============0795187955562487406==--


From chris@katipo.co.nz Sat Mar 30 18:49:18 2002
From: Chris Cormack <chris@katipo.co.nz>
To: koha-devel@lists.koha-community.org
Subject: Re: [Koha-devel] CVS: koha/acqui.simple addbooks.pl,1.2,1.3
Date: Sat, 30 Mar 2002 18:50:03 +0000
Message-ID: <20020331024912.GA26189@katipo.co.nz>
In-Reply-To: <3CA66748.51F1EAB0@saas.nsw.edu.au>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============2340380183261802681=="

--===============2340380183261802681==
Content-Type: text/plain; charset="utf-8"
Content-Transfer-Encoding: 7bit

On Sun, Mar 31, 2002 at 11:32:56AM +1000, Roger Buck said:
> Chris Cormack wrote:
> > 
> > Update of /cvsroot/koha/koha/acqui.simple
> 
> Just when you thought it was safe to go back in the water...
> 
> does addbookslccn.pl suffer same problem?
> 
Not any more

(Sorry about the delay had ducked out to enjoy some sun)

Chris

-- 
Chris Cormack                                                     Programmer
025 500 789                                        Katipo Communications Ltd
chris@katipo.co.nz                                          www.katipo.co.nz


--===============2340380183261802681==--