From rangi@usw-pr-cvs1.sourceforge.net Mon Mar 12 15:30:51 2001
From: Chris Cornack <rangi@usw-pr-cvs1.sourceforge.net>
To: koha-devel@lists.koha-community.org
Subject:
 [Koha-devel] CVS: koha/acqui acquire.pl,1.1.1.1,1.2 newbiblio.pl,1.1.1.1,1.2
Date: Mon, 12 Mar 2001 15:32:49 -0800
Message-ID: <E14cbo1-0003ie-00@usw-pr-cvs1.sourceforge.net>
MIME-Version: 1.0
Content-Type: multipart/mixed; boundary="===============0862619311268608322=="

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

Update of /cvsroot/koha/koha/acqui
In directory usw-pr-cvs1:/tmp/cvs-serv14249/acqui

Modified Files:
	acquire.pl newbiblio.pl=20
Log Message:
Glens updates to automatically increment barcode, and to remove hardcoded ite=
mtypes in scripts



Index: acquire.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/acquire.pl,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** acquire.pl	2000/12/19 23:45:56	1.1.1.1
--- acquire.pl	2001/03/12 23:32:47	1.2
***************
*** 6,10 ****
  use C4::Acquisitions;
  use C4::Output;
!=20
  use CGI;
  use strict;
--- 6,11 ----
  use C4::Acquisitions;
  use C4::Output;
! use C4::Database;
! use C4::Search;
  use CGI;
  use strict;
***************
*** 60,64 ****
    print "<input type=3Dimage  name=3Dsubmit src=3D/images/save-changes.gif =
border=3D0 width=3D187 height=3D42 align=3Dright>";
  } else {
!   print "<a href=3D/cgi-bin/koha/acqui/newbiblio.pl?ordnum=3D$results[0]->{=
'ordernumber'}&id=3D$results[0]->{'booksellerid'}><image src=3D/images/modify=
-mem.gif align=3Dright border=3D0></a>";
  }
  print <<EOP
--- 61,65 ----
    print "<input type=3Dimage  name=3Dsubmit src=3D/images/save-changes.gif =
border=3D0 width=3D187 height=3D42 align=3Dright>";
  } else {
!   print "<a href=3D/cgi-bin/koha/acqui/newbiblio.pl?ordnum=3D$results[0]->{=
'ordernumber'}&id=3D$results[0]->{'booksellerid'}><img src=3D/images/modify-m=
em.gif align=3Dright border=3D0></a>";
  }
  print <<EOP
***************
*** 88,93 ****
  <TR VALIGN=3DTOP>
 =20
! <TD><A HREF=3D"popbox.html" onclick=3D"messenger(600,300,'ITEMTYPES<BR>ART =
=3D Art Print<BR>BCD =3D CD-ROM from book<BR>CAS =3D Cassette<BR>CD =3D Compa=
ct disc (WN)<BR>F =3D Free Fiction<BR>FVID =3D Free video<BR>FYA =3D Young Ad=
ult Fiction<BR>GWB =3D Get Well Bag<BR>HCVF =3D Horowhenua Collection Vertica=
l File<BR>IL =3D Interloan<BR>JCF =3D Junior Castle Fiction<BR>JCNF =3D Junio=
r Castle Non-fiction<BR>JF =3D Junior Fiction<BR>JHC =3D Junior Horowhenua Co=
llection VF<BR>JIG =3D Jigsaw puzzle<BR>JK =3D Junior Kermit<BR>JNF =3D Junio=
r Non-Fiction<BR>JPB =3D Junior Paperbacks<BR>JPC =3D Junior Picture Book<BR>=
JPER =3D Junior Periodical<BR>JREF =3D Junior Reference<BR>JVF =3D Junior Ver=
tical File<BR>LP =3D Large Print<BR>MAP =3D Map<BR>NF =3D Adult NonFiction<BR=
>NFLP =3D NonFiction LargePrint<BR>NGA =3D Nga Pukapuka<BR>PAY =3D Pay Collec=
tion<BR>PB =3D Pamphlet Box<BR>PER =3D Periodical<BR>PHOT =3D Photograph<BR>P=
OS =3D Junior Poster<BR>REF =3D Adult Reference<BR>ROM =3D CD-Rom<BR>STF =3D =
Stack Fiction<BR>STJ =3D Stack Junior<BR>STLP =3D Stack Large Print<BR>STNF =
=3D Stack Non-fiction<BR>TB =3D Talking Book<BR>TREF =3D Taonga<BR>VF =3D Ver=
tical File<BR>VID =3D Video'); return false"><B>Format *</B></A></td>
! <td><input type=3Dtext size=3D20 name=3Dformat value=3D"$results[0]->{'item=
type'}">
 =20
  </td>
--- 89,114 ----
  <TR VALIGN=3DTOP>
 =20
! <TD>Format</td>
! <td>
! <select name=3Dformat size=3D1>
! EOP
! ;
!=20
! my $dbh=3DC4Connect;
! my $query=3D"Select itemtype,description from itemtypes order by descriptio=
n";
! my $sth=3D$dbh->prepare($query);
! $sth->execute;
! while (my $data=3D$sth->fetchrow_hashref){
!   if ($data->{'itemtype'} eq $results[0]->{'itemtype'}) {
!     print "<option SELECTED value=3D\"" . $data->{'itemtype'} . "\">" . $da=
ta->{'description'} . "\n";
!   } else {
!     print "<option value=3D\"" . $data->{'itemtype'} . "\">" . $data->{'des=
cription'} . "\n";
!   }
! }
! $sth->finish;
! $dbh->disconnect;
!=20
! print <<EOP
! </select>
 =20
  </td>
***************
*** 129,133 ****
  <TD><B>Item Barcode *</B></td>
 =20
! <td><input type=3Dtext size=3D20 name=3Dbarcode>
  </td>
  </tr>
--- 150,171 ----
  <TD><B>Item Barcode *</B></td>
 =20
! <td><input type=3Dtext size=3D20 name=3Dbarcode value=3D
! EOP
! ;
!=20
! my %systemprefs=3Dsystemprefs();
! if ($systemprefs{'autoBarcode'} eq '1') {
!   my $dbh=3DC4Connect;
!   my $query=3D"Select barcode from items order by barcode desc";
!   my $sth=3D$dbh->prepare($query);
!   $sth->execute;
!   my $data=3D$sth->fetchrow_hashref;
!   print $data->{'barcode'}+1;
!   $sth->finish;
!   $dbh->disconnect;
! }
!=20
! print <<EOP
! >
  </td>
  </tr>
***************
*** 201,205 ****
  <TD>Invoice Number</td>
  <td>$invoice
! <input type=3Dhidden name=3Dinvoice value=3D$invoice>
  <TR VALIGN=3DTOP>
  <TD>Notes</td>
--- 239,245 ----
  <TD>Invoice Number</td>
  <td>$invoice
! <input type=3Dhidden name=3Dinvoice value=3D"$invoice">
! </td>
! </tr>
  <TR VALIGN=3DTOP>
  <TD>Notes</td>

Index: newbiblio.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/newbiblio.pl,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -r1.1.1.1 -r1.2
*** newbiblio.pl	2000/12/19 23:45:57	1.1.1.1
--- newbiblio.pl	2001/03/12 23:32:47	1.2
***************
*** 7,10 ****
--- 7,11 ----
  use C4::Output;
  use C4::Search;
+ use C4::Database;
  use CGI;
  use strict;
***************
*** 149,154 ****
  </tr>
  <TR VALIGN=3DTOP>
! <TD><A HREF=3D"popbox.html" onclick=3D"messenger(600,300,'ITEMTYPES<BR>ART =
=3D Art Print<BR>BCD =3D CD-ROM from book<BR>CAS =3D Cassette<BR>CD =3D Compa=
ct disc (WN)<BR>F =3D Free Fiction<BR>FVID =3D Free video<BR>FYA =3D Young Ad=
ult Fiction<BR>GWB =3D Get Well Bag<BR>HCVF =3D Horowhenua Collection Vertica=
l File<BR>IL =3D Interloan<BR>JCF =3D Junior Castle Fiction<BR>JCNF =3D Junio=
r Castle Non-fiction<BR>JF =3D Junior Fiction<BR>JHC =3D Junior Horowhenua Co=
llection VF<BR>JIG =3D Jigsaw puzzle<BR>JK =3D Junior Kermit<BR>JNF =3D Junio=
r Non-Fiction<BR>JPB =3D Junior Paperbacks<BR>JPC =3D Junior Picture Book<BR>=
JPER =3D Junior Periodical<BR>JREF =3D Junior Reference<BR>JVF =3D Junior Ver=
tical File<BR>LP =3D Large Print<BR>MAP =3D Map<BR>NF =3D Adult NonFiction<BR=
>NFLP =3D NonFiction LargePrint<BR>NGA =3D Nga Pukapuka<BR>PAY =3D Pay Collec=
tion<BR>PB =3D Pamphlet Box<BR>PER =3D Periodical<BR>PHOT =3D Photograph<BR>P=
OS =3D Junior Poster<BR>REF =3D Adult Reference<BR>ROM =3D CD-Rom<BR>STF =3D =
Stack Fiction<BR>STJ =3D Stack Junior<BR>STLP =3D Stack Large Print<BR>STNF =
=3D Stack Non-fiction<BR>TB =3D Talking Book<BR>TREF =3D Taonga<BR>VF =3D Ver=
tical File<BR>VID =3D Video'); return false"><b>Format *</b></A></td>
! <td><input type=3Dtext size=3D20 name=3Dformat value=3D$data->{'itemtype'}>
  </td>
  </tr>
--- 150,174 ----
  </tr>
  <TR VALIGN=3DTOP>
! <TD>Format</td>
! <td>
! <select name=3Dformat size=3D1>
! printend
! ;
!=20
! my $dbh=3DC4Connect;
! my $query=3D"Select itemtype,description from itemtypes order by descriptio=
n";
! my $sth=3D$dbh->prepare($query);
! $sth->execute;
! print "<option value=3D\"\">Please choose:\n";
! while (my $data=3D$sth->fetchrow_hashref){
!   print "<option value=3D\"" . $data->{'itemtype'} . "\">" . $data->{'descr=
iption'} . "\n";
! }
! $sth->finish;
! $dbh->disconnect;
!=20
! print <<printend
! </select>
!=20
!=20
  </td>
  </tr>
***************
*** 183,187 ****
  <TR VALIGN=3DTOP  bgcolor=3D#ffffcc>
  <TD >Item Barcode</td>
! <td><input type=3Dtext size=3D20 name=3Dbarcode>
  </td>
  </tr>
--- 203,224 ----
  <TR VALIGN=3DTOP  bgcolor=3D#ffffcc>
  <TD >Item Barcode</td>
! <td><input type=3Dtext size=3D20 name=3Dbarcode value=3D
! printend
! ;
!=20
! my %systemprefs=3Dsystemprefs();
! if ($systemprefs{'autoBarcode'} eq '1') {
!   my $dbh=3DC4Connect;
!   my $query=3D"Select barcode from items order by barcode desc";
!   my $sth=3D$dbh->prepare($query);
!   $sth->execute;
!   my $data=3D$sth->fetchrow_hashref;
!   print $data->{'barcode'}+1;
!   $sth->finish;
!   $dbh->disconnect;
! }
!=20
! print <<printend
! >
  </td>
  </tr>



--===============0862619311268608322==--