View | Details | Raw Unified | Return to bug 14515
Collapse All | Expand All

(-)a/C4/Reserves.pm (-10 / +51 lines)
Lines 149-154 BEGIN { Link Here
149
149
150
    AddReserve($branch,$borrowernumber,$biblionumber,$bibitems,$priority,$resdate,$expdate,$notes,$title,$checkitem,$found)
150
    AddReserve($branch,$borrowernumber,$biblionumber,$bibitems,$priority,$resdate,$expdate,$notes,$title,$checkitem,$found)
151
151
152
Adds reserve and generates HOLDPLACED message.
153
154
The following tables are available witin the HOLDPLACED message:
155
156
    branches
157
    borrowers
158
    biblio
159
    biblioitems
160
    items
161
152
=cut
162
=cut
153
163
154
sub AddReserve {
164
sub AddReserve {
Lines 215-224 sub AddReserve { Link Here
215
            letter_code => 'HOLDPLACED',
225
            letter_code => 'HOLDPLACED',
216
            branchcode => $branch,
226
            branchcode => $branch,
217
            tables => {
227
            tables => {
218
                'branches'  => $branch_details,
228
                'branches'    => $branch_details,
219
                'borrowers' => $borrower,
229
                'borrowers'   => $borrower,
220
                'biblio'    => $biblionumber,
230
                'biblio'      => $biblionumber,
221
                'items'     => $checkitem,
231
                'biblioitems' => $biblionumber,
232
                'items'       => $checkitem,
222
            },
233
            },
223
        ) ) {
234
        ) ) {
224
235
Lines 1934-1939 sub _Findgroupreserve { Link Here
1934
Sends a notification to the patron that their hold has been filled (through
1945
Sends a notification to the patron that their hold has been filled (through
1935
ModReserveAffect, _not_ ModReserveFill)
1946
ModReserveAffect, _not_ ModReserveFill)
1936
1947
1948
The letter code for this notice may be found using the following query:
1949
1950
    select distinct letter_code
1951
    from message_transports
1952
    inner join message_attributes using (message_attribute_id)
1953
    where message_name = 'Hold_Filled'
1954
1955
This will probably sipmly be 'HOLD', but because it is defined in the database,
1956
it is subject to addition or change.
1957
1958
The following tables are availalbe witin the notice:
1959
1960
    branches
1961
    borrowers
1962
    biblio
1963
    biblioitems
1964
    reserves
1965
    items
1966
1937
=cut
1967
=cut
1938
1968
1939
sub _koha_notify_reserve {
1969
sub _koha_notify_reserve {
Lines 1966-1975 sub _koha_notify_reserve { Link Here
1966
        module => 'reserves',
1996
        module => 'reserves',
1967
        branchcode => $reserve->{branchcode},
1997
        branchcode => $reserve->{branchcode},
1968
        tables => {
1998
        tables => {
1969
            'branches'  => $branch_details,
1999
            'branches'       => $branch_details,
1970
            'borrowers' => $borrower,
2000
            'borrowers'      => $borrower,
1971
            'biblio'    => $biblionumber,
2001
            'biblio'         => $biblionumber,
1972
            'reserves'  => $reserve,
2002
            'biblioitems'    => $biblionumber,
2003
            'reserves'       => $reserve,
1973
            'items', $reserve->{'itemnumber'},
2004
            'items', $reserve->{'itemnumber'},
1974
        },
2005
        },
1975
        substitute => { today => output_pref( { dt => dt_from_string, dateonly => 1 } ) },
2006
        substitute => { today => output_pref( { dt => dt_from_string, dateonly => 1 } ) },
Lines 2303-2309 sub GetReserveId { Link Here
2303
2334
2304
  ReserveSlip($branchcode, $borrowernumber, $biblionumber)
2335
  ReserveSlip($branchcode, $borrowernumber, $biblionumber)
2305
2336
2306
  Returns letter hash ( see C4::Letters::GetPreparedLetter ) or undef
2337
Returns letter hash ( see C4::Letters::GetPreparedLetter ) or undef
2338
2339
The letter code will be RESERVESLIP, and the following tables are
2340
available within the slip:
2341
2342
    reserves
2343
    branches
2344
    borrowers
2345
    biblio
2346
    biblioitems
2347
    items
2307
2348
2308
=cut
2349
=cut
2309
2350
Lines 2327-2332 sub ReserveSlip { Link Here
2327
            'branches'    => $reserve->{branchcode},
2368
            'branches'    => $reserve->{branchcode},
2328
            'borrowers'   => $reserve->{borrowernumber},
2369
            'borrowers'   => $reserve->{borrowernumber},
2329
            'biblio'      => $reserve->{biblionumber},
2370
            'biblio'      => $reserve->{biblionumber},
2371
            'biblioitems' => $reserve->{biblionumber},
2330
            'items'       => $reserve->{itemnumber},
2372
            'items'       => $reserve->{itemnumber},
2331
        },
2373
        },
2332
    );
2374
    );
2333
- 

Return to bug 14515