koha-dev.rot13.org Git - koha_fer/blob - C4/SIP/ILS/Transaction/Hold.pm

   1 #
   2 # status of a Hold transaction
   3
   4 package ILS::Transaction::Hold;
   5
   6 use warnings;
   7 use strict;
   8
   9 use ILS;
  10 use ILS::Transaction;
  11
  12 our @ISA = qw(ILS::Transaction);
  13
  14 my %fields = (
  15               expiration_date => 0,
  16               pickup_location => undef,
  17               );
  18
  19 sub new {
  20     my $class = shift;;
  21     my $self = $class->SUPER::new();
  22     my $element;
  23
  24     foreach $element (keys %fields) {
  25         $self->{_permitted}->{$element} = $fields{$element};
  26     }
  27
  28     @{$self}{keys %fields} = values %fields;
  29
  30     return bless $self, $class;
  31 }
  32
  33 sub queue_position {
  34     my $self = shift;
  35
  36     return $self->item->hold_queue_position($self->patron->id);
  37 }
  38
  39 1;