Koha/C4/Patroncards/Profile.pm
Jonathan Druart 3cfedcf238 Bug 16011: $VERSION - Remove empty BEGIN block
perl -p -i -0 -e 's/BEGIN \{\n?\n?\}\n//' **/*.pm

Signed-off-by: Josef Moravec <josef.moravec@gmail.com>
Signed-off-by: Tomas Cohen Arazi <tomascohen@unc.edu.ar>

Signed-off-by: Brendan A Gallagher <brendan@bywatersolutions.com>
2016-03-24 17:20:41 +00:00

44 lines
810 B
Perl

package C4::Patroncards::Profile;
use strict;
use warnings;
use base qw(C4::Creators::Profile);
use autouse 'Data::Dumper' => qw(Dumper);
__PACKAGE__ =~ m/^C4::(.+)::.+$/;
my $me = $1;
sub new {
my $self = shift;
push @_, "creator", $me;
return $self->SUPER::new(@_);
}
sub save {
my $self = shift;
push @_, "creator", $me;
return $self->SUPER::save(@_);
}
sub retrieve {
my $self = shift;
push @_, "creator", $me;
return $self->SUPER::retrieve(@_);
}
sub delete {
if (ref($_[0])) {
my $self = shift; # check to see if this is a method call
push @_, "creator", $me;
return $self->SUPER::delete(@_);
}
else {
push @_, "creator", $me;
return __PACKAGE__->SUPER::delete(@_); # XXX: is this too hackish?
}
}
1;