|
Lines 2009-2014
possibly records the fact that something happened
Link Here
|
| 2009 |
sub store { |
2009 |
sub store { |
| 2010 |
my ( $self, $attrs ) = @_; |
2010 |
my ( $self, $attrs ) = @_; |
| 2011 |
|
2011 |
|
|
|
2012 |
my $is_new_request = !$self->in_storage; |
| 2012 |
my %updated_columns = $self->_result->get_dirty_columns; |
2013 |
my %updated_columns = $self->_result->get_dirty_columns; |
| 2013 |
|
2014 |
|
| 2014 |
my @holds; |
2015 |
my @holds; |
|
Lines 2049-2054
sub store {
Link Here
|
| 2049 |
); |
2050 |
); |
| 2050 |
} |
2051 |
} |
| 2051 |
|
2052 |
|
|
|
2053 |
return $ret unless $is_new_request; |
| 2054 |
|
| 2055 |
C4::Stats::UpdateStats( |
| 2056 |
{ |
| 2057 |
borrowernumber => $self->borrowernumber // undef, |
| 2058 |
branch => $self->branchcode, |
| 2059 |
categorycode => $self->patron ? $self->patron->categorycode : undef, |
| 2060 |
ccode => undef, |
| 2061 |
illrequest_id => $self->illrequest_id, |
| 2062 |
itemnumber => undef, |
| 2063 |
itemtype => undef, |
| 2064 |
location => undef, |
| 2065 |
type => 'ill_request', |
| 2066 |
} |
| 2067 |
); |
| 2068 |
|
| 2052 |
return $ret; |
2069 |
return $ret; |
| 2053 |
} |
2070 |
} |
| 2054 |
|
2071 |
|
| 2055 |
- |
|
|