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