Lines 1243-1254
sub ModReserveAffect {
Link Here
|
1243 |
$hold->set_processing(); |
1243 |
$hold->set_processing(); |
1244 |
} else { |
1244 |
} else { |
1245 |
$hold->set_waiting($desk_id); |
1245 |
$hold->set_waiting($desk_id); |
1246 |
_koha_notify_reserve( $hold->reserve_id, $notify_library ) unless $already_on_shelf; |
1246 |
_koha_notify_reserve( $hold->reserve_id ) unless $already_on_shelf; |
1247 |
# Complete transfer if one exists |
1247 |
# Complete transfer if one exists |
1248 |
my $transfer = $hold->item->get_transfer; |
1248 |
my $transfer = $hold->item->get_transfer; |
1249 |
$transfer->receive if $transfer; |
1249 |
$transfer->receive if $transfer; |
1250 |
} |
1250 |
} |
1251 |
|
1251 |
|
|
|
1252 |
_koha_notify_hold_changed( $hold ) if $notify_library; |
1253 |
|
1252 |
_FixPriority( { biblionumber => $biblionumber } ); |
1254 |
_FixPriority( { biblionumber => $biblionumber } ); |
1253 |
my $item = Koha::Items->find($itemnumber); |
1255 |
my $item = Koha::Items->find($itemnumber); |
1254 |
if ( $item->location && $item->location eq 'CART' |
1256 |
if ( $item->location && $item->location eq 'CART' |
Lines 1975-1980
sub _koha_notify_reserve {
Link Here
|
1975 |
} |
1977 |
} |
1976 |
} |
1978 |
} |
1977 |
|
1979 |
|
|
|
1980 |
=head2 _koha_notify_hold_changed |
1981 |
|
1982 |
_koha_notify_hold_changed( $hold_object ); |
1983 |
|
1984 |
=cut |
1985 |
|
1986 |
sub _koha_notify_hold_changed { |
1987 |
my $hold = shift; |
1988 |
|
1989 |
my $patron = $hold->patron; |
1990 |
my $library = $hold->branch; |
1991 |
|
1992 |
my $letter = C4::Letters::GetPreparedLetter( |
1993 |
module => 'reserves', |
1994 |
letter_code => 'HOLD_CHANGED', |
1995 |
branchcode => $hold->branchcode, |
1996 |
substitute => { today => output_pref( dt_from_string ) }, |
1997 |
tables => { |
1998 |
'branches' => $library->unblessed, |
1999 |
'borrowers' => $patron->unblessed, |
2000 |
'biblio' => $hold->biblionumber, |
2001 |
'biblioitems' => $hold->biblionumber, |
2002 |
'reserves' => $hold->unblessed, |
2003 |
'items' => $hold->itemnumber, |
2004 |
}, |
2005 |
); |
2006 |
|
2007 |
return unless $letter; |
2008 |
|
2009 |
my $email = |
2010 |
C4::Context->preference('ExpireReservesAutoFillEmail') |
2011 |
|| $library->branchemail |
2012 |
|| C4::Context->preference('KohaAdminEmailAddress'); |
2013 |
|
2014 |
C4::Letters::EnqueueLetter( |
2015 |
{ |
2016 |
letter => $letter, |
2017 |
borrowernumber => $patron->id, |
2018 |
message_transport_type => 'email', |
2019 |
from_address => $email, |
2020 |
to_address => $email, |
2021 |
} |
2022 |
); |
2023 |
} |
2024 |
|
1978 |
=head2 _ShiftPriority |
2025 |
=head2 _ShiftPriority |
1979 |
|
2026 |
|
1980 |
$new_priority = _ShiftPriority( $biblionumber, $priority ); |
2027 |
$new_priority = _ShiftPriority( $biblionumber, $priority ); |