|
Lines 27-34
sub Get {
Link Here
|
| 27 |
my ( $self, $branchcode, $categorycode, $itemtype, $rule_name ) = @_; |
27 |
my ( $self, $branchcode, $categorycode, $itemtype, $rule_name ) = @_; |
| 28 |
|
28 |
|
| 29 |
$branchcode = undef if $branchcode eq q{} or $branchcode eq q{*}; |
29 |
$branchcode = undef if $branchcode eq q{} or $branchcode eq q{*}; |
| 30 |
$categorycode = undef if $categorycode eq q{} or $branchcode eq q{*}; |
30 |
$categorycode = undef if $categorycode eq q{} or $categorycode eq q{*}; |
| 31 |
$itemtype = undef if $itemtype eq q{} or $branchcode eq q{*}; |
31 |
$itemtype = undef if $itemtype eq q{} or $itemtype eq q{*}; |
| 32 |
|
32 |
|
| 33 |
my $rule = Koha::CirculationRules->get_effective_rule( |
33 |
my $rule = Koha::CirculationRules->get_effective_rule( |
| 34 |
{ |
34 |
{ |
|
Lines 46-53
sub Search {
Link Here
|
| 46 |
my ( $self, $branchcode, $categorycode, $itemtype, $rule_name ) = @_; |
46 |
my ( $self, $branchcode, $categorycode, $itemtype, $rule_name ) = @_; |
| 47 |
|
47 |
|
| 48 |
$branchcode = undef if $branchcode eq q{} or $branchcode eq q{*}; |
48 |
$branchcode = undef if $branchcode eq q{} or $branchcode eq q{*}; |
| 49 |
$categorycode = undef if $categorycode eq q{} or $branchcode eq q{*}; |
49 |
$categorycode = undef if $categorycode eq q{} or $categorycode eq q{*}; |
| 50 |
$itemtype = undef if $itemtype eq q{} or $branchcode eq q{*}; |
50 |
$itemtype = undef if $itemtype eq q{} or $itemtype eq q{*}; |
| 51 |
|
51 |
|
| 52 |
my $rule = Koha::CirculationRules->search( |
52 |
my $rule = Koha::CirculationRules->search( |
| 53 |
{ |
53 |
{ |
| 54 |
- |
|
|