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 BEGIN {
  11     use version; our $VERSION = qv('1.0.0_1');
  12 }
  13
  14 use constant TEMPLATE_TABLE => 'creator_templates';
  15
  16 __PACKAGE__ =~ m/^C4::(.+)::.+$/;
  17 my $me = $1;
  18
  19 sub new {
  20     my $self = shift;
  21     push @_, "creator", $me;
  22     return $self->SUPER::new(@_);
  23 }
  24
  25 sub retrieve {
  26     my $self = shift;
  27     push @_, "table_name", TEMPLATE_TABLE, "creator", $me;
  28     return $self->SUPER::retrieve(@_);
  29 }
  30
  31 sub delete {
  32     my $self = shift;
  33     push @_, "table_name", TEMPLATE_TABLE, "creator", $me;
  34     return $self->SUPER::delete(@_);
  35 }
  36
  37 sub save {
  38     my $self = shift;
  39     push @_, "table_name", TEMPLATE_TABLE, "creator", $me;
  40     return $self->SUPER::save(@_);
  41 }
  42
  43 1;