1 package C4::Patroncards::Layout;
6 use base qw(C4::Creators::Layout);
8 use autouse 'Data::Dumper' => qw(Dumper);
13 __PACKAGE__ =~ m/^C4::(.+)::.+$/;
18 push @_, "creator", $me;
19 return $self->SUPER::new(@_);
24 push @_, "creator", $me;
25 return $self->SUPER::save(@_);
30 push @_, "creator", $me;
31 return $self->SUPER::retrieve(@_);
36 my $self = shift; # check to see if this is a method call
37 push @_, "creator", $me;
38 return $self->SUPER::delete(@_);
41 push @_, "creator", $me;
42 return __PACKAGE__->SUPER::delete(@_); # XXX: is this too hackish?