|
Lines 170-176
System Pref options.
Link Here
|
| 170 |
# |
170 |
# |
| 171 |
sub barcodedecode { |
171 |
sub barcodedecode { |
| 172 |
my ($barcode, $filter) = @_; |
172 |
my ($barcode, $filter) = @_; |
| 173 |
my $branch = C4::Branch::mybranch(); |
173 |
my $branch = C4::Context::mybranch(); |
| 174 |
$filter = C4::Context->preference('itemBarcodeInputFilter') unless $filter; |
174 |
$filter = C4::Context->preference('itemBarcodeInputFilter') unless $filter; |
| 175 |
$filter or return $barcode; # ensure filter is defined, else return untouched barcode |
175 |
$filter or return $barcode; # ensure filter is defined, else return untouched barcode |
| 176 |
if ($filter eq 'whitespace') { |
176 |
if ($filter eq 'whitespace') { |
|
Lines 3290-3296
sub GetIssuingCharges {
Link Here
|
| 3290 |
if ( my $item_data = $sth->fetchrow_hashref ) { |
3290 |
if ( my $item_data = $sth->fetchrow_hashref ) { |
| 3291 |
$item_type = $item_data->{itemtype}; |
3291 |
$item_type = $item_data->{itemtype}; |
| 3292 |
$charge = $item_data->{rentalcharge}; |
3292 |
$charge = $item_data->{rentalcharge}; |
| 3293 |
my $branch = C4::Branch::mybranch(); |
3293 |
my $branch = C4::Context::mybranch(); |
| 3294 |
my $discount_query = q|SELECT rentaldiscount, |
3294 |
my $discount_query = q|SELECT rentaldiscount, |
| 3295 |
issuingrules.itemtype, issuingrules.branchcode |
3295 |
issuingrules.itemtype, issuingrules.branchcode |
| 3296 |
FROM borrowers |
3296 |
FROM borrowers |