C4/Labels/Profile.pm

   1 package C4::Labels::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 }
  12
  13 __PACKAGE__ =~ m/^C4::(.+)::.+$/;
  14 my $me = $1;
  15
  16 sub new {
  17     my $self = shift;
  18     push @_, "creator", $me;
  19     return $self->SUPER::new(@_);
  20 }
  21
  22 sub save {
  23     my $self = shift;
  24     push @_, "creator", $me;
  25     return $self->SUPER::save(@_);
  26 }
  27
  28 sub retrieve {
  29     my $self = shift;
  30     push @_, "creator", $me;
  31     return $self->SUPER::retrieve(@_);
  32 }
  33
  34 sub delete {
  35     if (ref($_[0])) {
  36         my $self = shift;  # check to see if this is a method call
  37         push @_, "creator", $me;
  38         return $self->SUPER::delete(@_);
  39     }
  40     else {
  41         push @_, "creator", $me;
  42         return __PACKAGE__->SUPER::delete(@_); # XXX: is this too hackish?
  43     }
  44 }
  45
  46 1;