C4/Patroncards/Profile.pm

   1 package C4::Patroncards::Profile;
   2
   3 use strict;
   4 use warnings;
   5
   6 use base qw(C4::Creators::Profile);
   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;