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 3182-3188
sub GetIssuingCharges {
Link Here
|
3182 |
if ( my $item_data = $sth->fetchrow_hashref ) { |
3182 |
if ( my $item_data = $sth->fetchrow_hashref ) { |
3183 |
$item_type = $item_data->{itemtype}; |
3183 |
$item_type = $item_data->{itemtype}; |
3184 |
$charge = $item_data->{rentalcharge}; |
3184 |
$charge = $item_data->{rentalcharge}; |
3185 |
my $branch = C4::Branch::mybranch(); |
3185 |
my $branch = C4::Context::mybranch(); |
3186 |
my $discount_query = q|SELECT rentaldiscount, |
3186 |
my $discount_query = q|SELECT rentaldiscount, |
3187 |
issuingrules.itemtype, issuingrules.branchcode |
3187 |
issuingrules.itemtype, issuingrules.branchcode |
3188 |
FROM borrowers |
3188 |
FROM borrowers |