d659526b5a
This commit is generated using: % perl misc/devel/tidy.pl *within* ktd, to get the same version of perltidy than what will be used by our CI (currently v20230309). Signed-off-by: Katrin Fischer <katrin.fischer@bsz-bw.de>
42 lines
812 B
Perl
42 lines
812 B
Perl
package C4::Patroncards::Layout;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use base qw(C4::Creators::Layout);
|
|
|
|
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;
|