bug 8215: (followup) make sure C4::CourseReserves doesn't export anything
[koha.git] / C4 / Patroncards / Batch.pm
1 package C4::Patroncards::Batch;
2
3 use strict;
4 use warnings;
5
6 use base qw(C4::Creators::Batch);
7
8 use autouse 'Data::Dumper' => qw(Dumper);
9
10 BEGIN {
11     use version; our $VERSION = qv('3.07.00.049');
12 }
13
14 __PACKAGE__ =~ m/^C4::(.+)::.+$/;
15 my $me = $1;
16
17 sub new {
18     my $self = shift;
19     push @_, "creator", $me;
20     return $self->SUPER::new(@_);
21 }
22
23 sub save {
24     my $self = shift;
25     push @_, "creator", $me;
26     return $self->SUPER::save(@_);
27 }
28
29 sub retrieve {
30     my $self = shift;
31     push @_, "creator", $me;
32     return $self->SUPER::retrieve(@_);
33 }
34
35 sub delete {
36     if (ref($_[0])) {
37         my $self = shift;  # check to see if this is a method call
38         push @_, "creator", $me;
39         return $self->SUPER::delete(@_);
40     }
41     else {
42         push @_, "creator", $me;
43         return __PACKAGE__->SUPER::delete(@_); # XXX: is this too hackish?
44     }
45 }
46
47 1;