[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/acqui newbiblio.pl,1.8,1.9
From: |
Andrew Arensburger |
Subject: |
[Koha-cvs] CVS: koha/acqui newbiblio.pl,1.8,1.9 |
Date: |
Sat, 05 Oct 2002 17:01:08 -0700 |
Update of /cvsroot/koha/koha/acqui
In directory usw-pr-cvs1:/tmp/cvs-serv19124
Modified Files:
newbiblio.pl
Log Message:
Use C4::Context->preference, rather than getting all system
preferences and picking out only what's needed.
Index: newbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/newbiblio.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** newbiblio.pl 5 Oct 2002 09:55:27 -0000 1.8
--- newbiblio.pl 6 Oct 2002 00:01:05 -0000 1.9
***************
*** 232,237 ****
;
! my %systemprefs=systemprefs();
! if ($systemprefs{'autoBarcode'} eq '1') {
my $dbh = C4::Context->dbh;
my $query="Select barcode from items order by barcode desc";
--- 232,239 ----
;
! my $auto_barcode = C4::Context->preference("autoBarcode") || 0;
! # See whether barcodes should be automatically allocated.
! # Defaults to 0, meaning "no".
! if ($auto_barcode eq '1') {
my $dbh = C4::Context->dbh;
my $query="Select barcode from items order by barcode desc";
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/acqui newbiblio.pl,1.8,1.9,
Andrew Arensburger <=