[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-devel] CVS: koha/acqui acquire.pl,1.1.1.1,1.2 newbiblio.pl,1.1.1.1
From: |
Chris Cornack |
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 |
Update of /cvsroot/koha/koha/acqui
In directory usw-pr-cvs1:/tmp/cvs-serv14249/acqui
Modified Files:
acquire.pl newbiblio.pl
Log Message:
Glens updates to automatically increment barcode, and to remove hardcoded
itemtypes in scripts
Index: acquire.pl
===================================================================
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;
!
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=image name=submit src=/images/save-changes.gif border=0
width=187 height=42 align=right>";
} else {
! print "<a
href=/cgi-bin/koha/acqui/newbiblio.pl?ordnum=$results[0]->{'ordernumber'}&id=$results[0]->{'booksellerid'}><image
src=/images/modify-mem.gif align=right border=0></a>";
}
print <<EOP
--- 61,65 ----
print "<input type=image name=submit src=/images/save-changes.gif border=0
width=187 height=42 align=right>";
} else {
! print "<a
href=/cgi-bin/koha/acqui/newbiblio.pl?ordnum=$results[0]->{'ordernumber'}&id=$results[0]->{'booksellerid'}><img
src=/images/modify-mem.gif align=right border=0></a>";
}
print <<EOP
***************
*** 88,93 ****
<TR VALIGN=TOP>
! <TD><A HREF="popbox.html" onclick="messenger(600,300,'ITEMTYPES<BR>ART = Art
Print<BR>BCD = CD-ROM from book<BR>CAS = Cassette<BR>CD = Compact disc
(WN)<BR>F = Free Fiction<BR>FVID = Free video<BR>FYA = Young Adult
Fiction<BR>GWB = Get Well Bag<BR>HCVF = Horowhenua Collection Vertical
File<BR>IL = Interloan<BR>JCF = Junior Castle Fiction<BR>JCNF = Junior Castle
Non-fiction<BR>JF = Junior Fiction<BR>JHC = Junior Horowhenua Collection
VF<BR>JIG = Jigsaw puzzle<BR>JK = Junior Kermit<BR>JNF = Junior
Non-Fiction<BR>JPB = Junior Paperbacks<BR>JPC = Junior Picture Book<BR>JPER =
Junior Periodical<BR>JREF = Junior Reference<BR>JVF = Junior Vertical
File<BR>LP = Large Print<BR>MAP = Map<BR>NF = Adult NonFiction<BR>NFLP =
NonFiction LargePrint<BR>NGA = Nga Pukapuka<BR>PAY = Pay Collection<BR>PB =
Pamphlet Box<BR>PER = Periodical<BR>PHOT = Photograph<BR>POS = Junior
Poster<BR>REF = Adult Reference<BR>ROM = CD-Rom<BR>STF = Stack Fiction<BR>STJ =
Stack Junior<BR>STLP = Stack Large Print<BR>STNF = Stack Non-fiction<BR>TB =
Talking Book<BR>TREF = Taonga<BR>VF = Vertical File<BR>VID = Video'); return
false"><B>Format *</B></A></td>
! <td><input type=text size=20 name=format value="$results[0]->{'itemtype'}">
</td>
--- 89,114 ----
<TR VALIGN=TOP>
! <TD>Format</td>
! <td>
! <select name=format size=1>
! EOP
! ;
!
! my $dbh=C4Connect;
! my $query="Select itemtype,description from itemtypes order by description";
! my $sth=$dbh->prepare($query);
! $sth->execute;
! while (my $data=$sth->fetchrow_hashref){
! if ($data->{'itemtype'} eq $results[0]->{'itemtype'}) {
! print "<option SELECTED value=\"" . $data->{'itemtype'} . "\">" .
$data->{'description'} . "\n";
! } else {
! print "<option value=\"" . $data->{'itemtype'} . "\">" .
$data->{'description'} . "\n";
! }
! }
! $sth->finish;
! $dbh->disconnect;
!
! print <<EOP
! </select>
</td>
***************
*** 129,133 ****
<TD><B>Item Barcode *</B></td>
! <td><input type=text size=20 name=barcode>
</td>
</tr>
--- 150,171 ----
<TD><B>Item Barcode *</B></td>
! <td><input type=text size=20 name=barcode value=
! EOP
! ;
!
! my %systemprefs=systemprefs();
! if ($systemprefs{'autoBarcode'} eq '1') {
! my $dbh=C4Connect;
! my $query="Select barcode from items order by barcode desc";
! my $sth=$dbh->prepare($query);
! $sth->execute;
! my $data=$sth->fetchrow_hashref;
! print $data->{'barcode'}+1;
! $sth->finish;
! $dbh->disconnect;
! }
!
! print <<EOP
! >
</td>
</tr>
***************
*** 201,205 ****
<TD>Invoice Number</td>
<td>$invoice
! <input type=hidden name=invoice value=$invoice>
<TR VALIGN=TOP>
<TD>Notes</td>
--- 239,245 ----
<TD>Invoice Number</td>
<td>$invoice
! <input type=hidden name=invoice value="$invoice">
! </td>
! </tr>
<TR VALIGN=TOP>
<TD>Notes</td>
Index: newbiblio.pl
===================================================================
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=TOP>
! <TD><A HREF="popbox.html" onclick="messenger(600,300,'ITEMTYPES<BR>ART = Art
Print<BR>BCD = CD-ROM from book<BR>CAS = Cassette<BR>CD = Compact disc
(WN)<BR>F = Free Fiction<BR>FVID = Free video<BR>FYA = Young Adult
Fiction<BR>GWB = Get Well Bag<BR>HCVF = Horowhenua Collection Vertical
File<BR>IL = Interloan<BR>JCF = Junior Castle Fiction<BR>JCNF = Junior Castle
Non-fiction<BR>JF = Junior Fiction<BR>JHC = Junior Horowhenua Collection
VF<BR>JIG = Jigsaw puzzle<BR>JK = Junior Kermit<BR>JNF = Junior
Non-Fiction<BR>JPB = Junior Paperbacks<BR>JPC = Junior Picture Book<BR>JPER =
Junior Periodical<BR>JREF = Junior Reference<BR>JVF = Junior Vertical
File<BR>LP = Large Print<BR>MAP = Map<BR>NF = Adult NonFiction<BR>NFLP =
NonFiction LargePrint<BR>NGA = Nga Pukapuka<BR>PAY = Pay Collection<BR>PB =
Pamphlet Box<BR>PER = Periodical<BR>PHOT = Photograph<BR>POS = Junior
Poster<BR>REF = Adult Reference<BR>ROM = CD-Rom<BR>STF = Stack Fiction<BR>STJ =
Stack Junior<BR>STLP = Stack Large Print<BR>STNF = Stack Non-fiction<BR>TB =
Talking Book<BR>TREF = Taonga<BR>VF = Vertical File<BR>VID = Video'); return
false"><b>Format *</b></A></td>
! <td><input type=text size=20 name=format value=$data->{'itemtype'}>
</td>
</tr>
--- 150,174 ----
</tr>
<TR VALIGN=TOP>
! <TD>Format</td>
! <td>
! <select name=format size=1>
! printend
! ;
!
! my $dbh=C4Connect;
! my $query="Select itemtype,description from itemtypes order by description";
! my $sth=$dbh->prepare($query);
! $sth->execute;
! print "<option value=\"\">Please choose:\n";
! while (my $data=$sth->fetchrow_hashref){
! print "<option value=\"" . $data->{'itemtype'} . "\">" .
$data->{'description'} . "\n";
! }
! $sth->finish;
! $dbh->disconnect;
!
! print <<printend
! </select>
!
!
</td>
</tr>
***************
*** 183,187 ****
<TR VALIGN=TOP bgcolor=#ffffcc>
<TD >Item Barcode</td>
! <td><input type=text size=20 name=barcode>
</td>
</tr>
--- 203,224 ----
<TR VALIGN=TOP bgcolor=#ffffcc>
<TD >Item Barcode</td>
! <td><input type=text size=20 name=barcode value=
! printend
! ;
!
! my %systemprefs=systemprefs();
! if ($systemprefs{'autoBarcode'} eq '1') {
! my $dbh=C4Connect;
! my $query="Select barcode from items order by barcode desc";
! my $sth=$dbh->prepare($query);
! $sth->execute;
! my $data=$sth->fetchrow_hashref;
! print $data->{'barcode'}+1;
! $sth->finish;
! $dbh->disconnect;
! }
!
! print <<printend
! >
</td>
</tr>
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-devel] CVS: koha/acqui acquire.pl,1.1.1.1,1.2 newbiblio.pl,1.1.1.1,1.2,
Chris Cornack <=