C4/Patroncards/Template.pm

   1 package C4::Patroncards::Template;
   2
   3 use strict;
   4 use warnings;
   5
   6 use base qw(C4::Creators::Template);
   7
   8 use autouse 'Data::Dumper' => qw(Dumper);
   9
  10
  11 use constant TEMPLATE_TABLE => 'creator_templates';
  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 retrieve {
  23     my $self = shift;
  24     push @_, "table_name", TEMPLATE_TABLE, "creator", $me;
  25     return $self->SUPER::retrieve(@_);
  26 }
  27
  28 sub delete {
  29     my $self = shift;
  30     push @_, "table_name", TEMPLATE_TABLE, "creator", $me;
  31     return $self->SUPER::delete(@_);
  32 }
  33
  34 sub save {
  35     my $self = shift;
  36     push @_, "table_name", TEMPLATE_TABLE, "creator", $me;
  37     return $self->SUPER::save(@_);
  38 }
  39
  40 1;