|
Lines 124-134
sub store {
Link Here
|
| 124 |
my %updated_columns = $self->_result->get_dirty_columns; |
124 |
my %updated_columns = $self->_result->get_dirty_columns; |
| 125 |
return $self->SUPER::store unless %updated_columns; |
125 |
return $self->SUPER::store unless %updated_columns; |
| 126 |
|
126 |
|
| 127 |
# Retreive the item for comparison if we need to |
127 |
# Retrieve the item for comparison if we need to |
| 128 |
my $pre_mod_item = $self->get_from_storage |
128 |
my $pre_mod_item = ( |
| 129 |
if ( exists $updated_columns{itemlost} |
129 |
exists $updated_columns{itemlost} |
| 130 |
or exists $updated_columns{withdrawn} |
130 |
or exists $updated_columns{withdrawn} |
| 131 |
or exists $updated_columns{damaged} ); |
131 |
or exists $updated_columns{damaged} |
|
|
132 |
) ? $self->get_from_storage : undef; |
| 132 |
|
133 |
|
| 133 |
# Update *_on fields if needed |
134 |
# Update *_on fields if needed |
| 134 |
# FIXME: Why not for AddItem as well? |
135 |
# FIXME: Why not for AddItem as well? |
|
Lines 785-791
sub renewal_branchcode {
Link Here
|
| 785 |
$self->_set_found_trigger |
786 |
$self->_set_found_trigger |
| 786 |
|
787 |
|
| 787 |
Finds the most recent lost item charge for this item and refunds the patron |
788 |
Finds the most recent lost item charge for this item and refunds the patron |
| 788 |
appropriatly, taking into account any payments or writeoffs already applied |
789 |
appropriately, taking into account any payments or writeoffs already applied |
| 789 |
against the charge. |
790 |
against the charge. |
| 790 |
|
791 |
|
| 791 |
Internal function, not exported, called only by Koha::Item->store. |
792 |
Internal function, not exported, called only by Koha::Item->store. |
|
Lines 837-843
sub _set_found_trigger {
Link Here
|
| 837 |
my $patron = Koha::Patrons->find( $accountline->borrowernumber ); |
838 |
my $patron = Koha::Patrons->find( $accountline->borrowernumber ); |
| 838 |
return $self |
839 |
return $self |
| 839 |
unless $patron; # Patron has been deleted, nobody to credit the return to |
840 |
unless $patron; # Patron has been deleted, nobody to credit the return to |
| 840 |
# FIXME Should not we notify this somehwere |
841 |
# FIXME Should not we notify this somewhere |
| 841 |
|
842 |
|
| 842 |
my $account = $patron->account; |
843 |
my $account = $patron->account; |
| 843 |
|
844 |
|
| 844 |
- |
|
|