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

(-)a/C4/Circulation.pm (-1 / +5 lines)
Lines 825-830 sub CanBookBeIssued { Link Here
825
                ccode          => $item_object->ccode,
825
                ccode          => $item_object->ccode,
826
                categorycode   => $patron->categorycode,
826
                categorycode   => $patron->categorycode,
827
                location       => $item_object->location,
827
                location       => $item_object->location,
828
                interface      => C4::Context->interface,
828
            }
829
            }
829
        );
830
        );
830
        ModDateLastSeen( $item_object->itemnumber ); # FIXME Move to Koha::Item
831
        ModDateLastSeen( $item_object->itemnumber ); # FIXME Move to Koha::Item
Lines 1773-1779 sub AddIssue { Link Here
1773
                    location       => $item_object->location,
1774
                    location       => $item_object->location,
1774
                    borrowernumber => $borrower->{'borrowernumber'},
1775
                    borrowernumber => $borrower->{'borrowernumber'},
1775
                    ccode          => $item_object->ccode,
1776
                    ccode          => $item_object->ccode,
1776
                    categorycode   => $borrower->{'categorycode'}
1777
                    categorycode   => $borrower->{'categorycode'},
1778
                    interface      => C4::Context->interface,
1777
                }
1779
                }
1778
            );
1780
            );
1779
1781
Lines 2407-2412 sub AddReturn { Link Here
2407
        borrowernumber => $borrowernumber,
2409
        borrowernumber => $borrowernumber,
2408
        ccode          => $item->ccode,
2410
        ccode          => $item->ccode,
2409
        categorycode   => $categorycode,
2411
        categorycode   => $categorycode,
2412
        interface      => C4::Context->interface,
2410
    });
2413
    });
2411
2414
2412
    # Send a check-in slip. # NOTE: borrower may be undef. Do not try to send messages then.
2415
    # Send a check-in slip. # NOTE: borrower may be undef. Do not try to send messages then.
Lines 3265-3270 sub AddRenewal { Link Here
3265
                borrowernumber => $borrowernumber,
3268
                borrowernumber => $borrowernumber,
3266
                ccode          => $item_object->ccode,
3269
                ccode          => $item_object->ccode,
3267
                categorycode   => $patron->categorycode,
3270
                categorycode   => $patron->categorycode,
3271
                interface      => C4::Context->interface,
3268
            }
3272
            }
3269
        );
3273
        );
3270
3274
(-)a/C4/Stats.pm (-2 / +5 lines)
Lines 65-71 C<$params> is an hashref whose expected keys are: Link Here
65
    other              : sipmode
65
    other              : sipmode
66
    itemtype           : the type of the item
66
    itemtype           : the type of the item
67
    ccode              : the collection code of the item
67
    ccode              : the collection code of the item
68
    categorycode           : the categorycode of the patron
68
    categorycode       : the categorycode of the patron
69
    interface          : the context this action was taken in
69
70
70
type key is mandatory.
71
type key is mandatory.
71
For types used in C4::Circulation (renew,issue,localuse,return), the following other keys are mandatory:
72
For types used in C4::Circulation (renew,issue,localuse,return), the following other keys are mandatory:
Lines 83-89 sub UpdateStats { Link Here
83
# make some controls
84
# make some controls
84
    return () if ! defined $params;
85
    return () if ! defined $params;
85
# change these arrays if new types of transaction or new parameters are allowed
86
# change these arrays if new types of transaction or new parameters are allowed
86
    my @allowed_keys = qw (type branch amount other itemnumber itemtype borrowernumber ccode location categorycode);
87
    my @allowed_keys = qw (type branch amount other itemnumber itemtype borrowernumber ccode location categorycode interface);
87
    my @allowed_circulation_types = qw (renew issue localuse return onsite_checkout recall);
88
    my @allowed_circulation_types = qw (renew issue localuse return onsite_checkout recall);
88
    my @allowed_accounts_types = qw (writeoff payment);
89
    my @allowed_accounts_types = qw (writeoff payment);
89
    my @circulation_mandatory_keys = qw (type branch borrowernumber itemnumber ccode itemtype);
90
    my @circulation_mandatory_keys = qw (type branch borrowernumber itemnumber ccode itemtype);
Lines 125-130 sub UpdateStats { Link Here
125
    my $location          = exists $params->{location}       ? $params->{location}       : undef;
126
    my $location          = exists $params->{location}       ? $params->{location}       : undef;
126
    my $ccode             = exists $params->{ccode}          ? $params->{ccode}          : '';
127
    my $ccode             = exists $params->{ccode}          ? $params->{ccode}          : '';
127
    my $categorycode      = exists $params->{categorycode}   ? $params->{categorycode}   : undef;
128
    my $categorycode      = exists $params->{categorycode}   ? $params->{categorycode}   : undef;
129
    my $interface         = exists $params->{interface}      ? $params->{interface}      : undef;
128
130
129
    my $dtf = Koha::Database->new->schema->storage->datetime_parser;
131
    my $dtf = Koha::Database->new->schema->storage->datetime_parser;
130
    my $statistic = Koha::Statistic->new(
132
    my $statistic = Koha::Statistic->new(
Lines 140-145 sub UpdateStats { Link Here
140
            borrowernumber => $borrowernumber,
142
            borrowernumber => $borrowernumber,
141
            ccode          => $ccode,
143
            ccode          => $ccode,
142
            categorycode   => $categorycode,
144
            categorycode   => $categorycode,
145
            interface      => $interface,
143
        }
146
        }
144
    )->store;
147
    )->store;
145
148
(-)a/Koha/Account.pm (+1 lines)
Lines 254-259 sub add_credit { Link Here
254
                        type           => lc($credit_type),
254
                        type           => lc($credit_type),
255
                        amount         => $amount,
255
                        amount         => $amount,
256
                        borrowernumber => $self->{patron_id},
256
                        borrowernumber => $self->{patron_id},
257
                        interface      => $interface,
257
                    }
258
                    }
258
                ) if grep { $credit_type eq $_ } ( 'PAYMENT', 'WRITEOFF' );
259
                ) if grep { $credit_type eq $_ } ( 'PAYMENT', 'WRITEOFF' );
259
260
(-)a/Koha/Recalls.pm (-2 / +2 lines)
Lines 173-179 sub add_recall { Link Here
173
                borrowernumber => $recall->patron_id,
173
                borrowernumber => $recall->patron_id,
174
                itemtype       => $item->effective_itemtype,
174
                itemtype       => $item->effective_itemtype,
175
                ccode          => $item->ccode,
175
                ccode          => $item->ccode,
176
                categorycode   => $checkout->patron->categorycode
176
                categorycode   => $checkout->patron->categorycode,
177
                interface      => $interface,
177
            }
178
            }
178
        );
179
        );
179
180
180
- 

Return to bug 30928