gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Glens updates to automatically increment barcode, and to remove hardcoded itemtypes in scripts

This commit is contained in:
rangi 2001-03-12 23:32:47 +00:00
parent 17bf0d8b9d
commit f941988e05
2 changed files with 86 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
acqui/acquire.pl
View File

@ -5,7 +5,8 @@
use C4::Acquisitions;
use C4::Output;
use C4::Database;
use C4::Search;
use CGI;
use strict;
@ -59,7 +60,7 @@ EOP
if ($catview ne 'yes'){
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 "<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
<FONT SIZE=6><em>$results[0]->{'ordernumber'} - Receive Order</em></FONT><br>
@ -87,8 +88,28 @@ Shopping Basket For: $booksellers[0]->{'name'}
</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="$results[0]->{'itemtype'}">
<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>
</tr>
@ -128,7 +149,24 @@ print <<EOP
<TR VALIGN=TOP bgcolor=#ffffcc >
<TD><B>Item Barcode *</B></td>
<td><input type=text size=20 name=barcode>
<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>
@ -200,7 +238,9 @@ Budgeted Cost </td>
<TR VALIGN=TOP bgcolor=#ffffcc>
<TD>Invoice Number</td>
<td>$invoice
<input type=hidden name=invoice value=$invoice>
<input type=hidden name=invoice value="$invoice">
</td>
</tr>
<TR VALIGN=TOP>
<TD>Notes</td>
<td><input type=text size=20 name=notes value="$results[0]->{'notes'}">

43
acqui/newbiblio.pl
View File

@ -6,6 +6,7 @@
use C4::Acquisitions;
use C4::Output;
use C4::Search;
use C4::Database;
use CGI;
use strict;
@ -148,8 +149,27 @@ Shopping Basket For: $booksellers[0]->{'name'}
</td>
</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>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>
<TR VALIGN=TOP>
@ -182,7 +202,24 @@ print <<printend
</tr>
<TR VALIGN=TOP bgcolor=#ffffcc>
<TD >Item Barcode</td>
<td><input type=text size=20 name=barcode>
<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>
</table>