Bug 18501: Add _set_found_trigger
[koha.git] / C4 / Patroncards / Batch.pm
blob8982fce3861fb8783786f71824de3d4d9c942d47
1 package C4::Patroncards::Batch;
3 use strict;
4 use warnings;
6 use base qw(C4::Creators::Batch);
8 use autouse 'Data::Dumper' => qw(Dumper);
11 __PACKAGE__ =~ m/^C4::(.+)::.+$/;
12 my $me = $1;
14 sub new {
15 my $self = shift;
16 push @_, "creator", $me;
17 return $self->SUPER::new(@_);
20 sub save {
21 my $self = shift;
22 push @_, "creator", $me;
23 return $self->SUPER::save(@_);
26 sub retrieve {
27 my $self = shift;
28 push @_, "creator", $me;
29 return $self->SUPER::retrieve(@_);
32 sub delete {
33 if (ref($_[0])) {
34 my $self = shift; # check to see if this is a method call
35 push @_, "creator", $me;
36 return $self->SUPER::delete(@_);
38 else {
39 push @_, "creator", $me;
40 return __PACKAGE__->SUPER::delete(@_); # XXX: is this too hackish?