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

(-)a/C4/Budgets.pm (-3 / +3 lines)
Lines 640-646 sub AddBudget { Link Here
640
    my $id = $resultset->create($budget)->id;
640
    my $id = $resultset->create($budget)->id;
641
641
642
    # Log the addition
642
    # Log the addition
643
    if (C4::Context->preference("AcqLog")) {
643
    if (C4::Context->preference("AcquisitionLog")) {
644
        my $infos = {
644
        my $infos = {
645
            budget_amount => $budget->{budget_amount},
645
            budget_amount => $budget->{budget_amount},
646
            budget_encumb => $budget->{budget_encumb},
646
            budget_encumb => $budget->{budget_encumb},
Lines 664-670 sub ModBudget { Link Here
664
    return unless($result);
664
    return unless($result);
665
665
666
    # Log this modification
666
    # Log this modification
667
    if (C4::Context->preference("AcqLog")) {
667
    if (C4::Context->preference("AcquisitionLog")) {
668
        my $infos = {
668
        my $infos = {
669
            budget_amount_new    => $budget->{budget_amount},
669
            budget_amount_new    => $budget->{budget_amount},
670
            budget_encumb_new    => $budget->{budget_encumb},
670
            budget_encumb_new    => $budget->{budget_encumb},
Lines 696-702 sub DelBudget { Link Here
696
	my $sth         = $dbh->prepare("delete from aqbudgets where budget_id=?");
696
	my $sth         = $dbh->prepare("delete from aqbudgets where budget_id=?");
697
	my $rc          = $sth->execute($budget_id);
697
	my $rc          = $sth->execute($budget_id);
698
    # Log the deletion
698
    # Log the deletion
699
    if (C4::Context->preference("AcqLog")) {
699
    if (C4::Context->preference("AcquisitionLog")) {
700
        logaction(
700
        logaction(
701
            'ACQUISITIONS',
701
            'ACQUISITIONS',
702
            'DELETE_FUND',
702
            'DELETE_FUND',
(-)a/acqui/addorder.pl (-2 / +2 lines)
Lines 315-321 if ( $basket->{is_standing} || $orderinfo->{quantity} ne '0' ) { Link Here
315
    if ( $orderinfo->{ordernumber} ) {
315
    if ( $orderinfo->{ordernumber} ) {
316
        ModOrder($orderinfo);
316
        ModOrder($orderinfo);
317
        # Log the order modification
317
        # Log the order modification
318
        if (C4::Context->preference("AcqLog")) {
318
        if (C4::Context->preference("AcquisitionLog")) {
319
            my $infos = {};
319
            my $infos = {};
320
            foreach my $field(@log_order_fields) {
320
            foreach my $field(@log_order_fields) {
321
                $infos->{$field} = $orderinfo->{$field};
321
                $infos->{$field} = $orderinfo->{$field};
Lines 331-337 if ( $basket->{is_standing} || $orderinfo->{quantity} ne '0' ) { Link Here
331
    else { # else, it's a new line
331
    else { # else, it's a new line
332
        $order->store;
332
        $order->store;
333
        # Log the order creation
333
        # Log the order creation
334
        if (C4::Context->preference("AcqLog")) {
334
        if (C4::Context->preference("AcquisitionLog")) {
335
            my $infos = {};
335
            my $infos = {};
336
            foreach my $field(@log_order_fields) {
336
            foreach my $field(@log_order_fields) {
337
                $infos->{$field} = $orderinfo->{$field};
337
                $infos->{$field} = $orderinfo->{$field};
(-)a/acqui/cancelorder.pl (-1 / +1 lines)
Lines 68-74 if( $action and $action eq "confirmcancel" ) { Link Here
68
            if $messages[0]->message eq 'error_delbiblio';
68
            if $messages[0]->message eq 'error_delbiblio';
69
    } else {
69
    } else {
70
        # Log the cancellation of the order
70
        # Log the cancellation of the order
71
        if (C4::Context->preference("AcqLog")) {
71
        if (C4::Context->preference("AcquisitionLog")) {
72
            logaction('ACQUISITIONS', 'CANCEL_ORDER', $ordernumber);
72
            logaction('ACQUISITIONS', 'CANCEL_ORDER', $ordernumber);
73
        }
73
        }
74
        $template->param(success_cancelorder => 1);
74
        $template->param(success_cancelorder => 1);
(-)a/acqui/finishreceive.pl (-1 / +1 lines)
Lines 193-199 if ($suggestion_id) { Link Here
193
}
193
}
194
194
195
# Log the receipt
195
# Log the receipt
196
if (C4::Context->preference("AcqLog")) {
196
if (C4::Context->preference("AcquisitionLog")) {
197
    my $infos = {
197
    my $infos = {
198
        quantityrec      => $quantityrec,
198
        quantityrec      => $quantityrec,
199
        bookfund         => $bookfund,
199
        bookfund         => $bookfund,
(-)a/acqui/invoice.pl (-3 / +3 lines)
Lines 149-155 elsif ( $op && $op eq 'del_adj' ) { Link Here
149
    my $adjustment_id  = $input->param('adjustment_id');
149
    my $adjustment_id  = $input->param('adjustment_id');
150
    my $del_adj = Koha::Acquisition::Invoice::Adjustments->find( $adjustment_id );
150
    my $del_adj = Koha::Acquisition::Invoice::Adjustments->find( $adjustment_id );
151
    if ($del_adj) {
151
    if ($del_adj) {
152
        if (C4::Context->preference("AcqLog")) {
152
        if (C4::Context->preference("AcquisitionLog")) {
153
            my $infos = {
153
            my $infos = {
154
                invoiceid     => $del_adj->invoiceid,
154
                invoiceid     => $del_adj->invoiceid,
155
                budget_id     => $del_adj->budget_id,
155
                budget_id     => $del_adj->budget_id,
Lines 195-201 elsif ( $op && $op eq 'mod_adj' ) { Link Here
195
            my $new_adj = Koha::Acquisition::Invoice::Adjustment->new($adj);
195
            my $new_adj = Koha::Acquisition::Invoice::Adjustment->new($adj);
196
            $new_adj->store();
196
            $new_adj->store();
197
            # Log this addition
197
            # Log this addition
198
            if (C4::Context->preference("AcqLog")) {
198
            if (C4::Context->preference("AcquisitionLog")) {
199
                logaction(
199
                logaction(
200
                    'ACQUISITIONS',
200
                    'ACQUISITIONS',
201
                    'CREATE_INVOICE_ADJUSTMENT',
201
                    'CREATE_INVOICE_ADJUSTMENT',
Lines 208-214 elsif ( $op && $op eq 'mod_adj' ) { Link Here
208
            my $old_adj = Koha::Acquisition::Invoice::Adjustments->find( $adjustment_id[$i] );
208
            my $old_adj = Koha::Acquisition::Invoice::Adjustments->find( $adjustment_id[$i] );
209
            unless ( $old_adj->adjustment == $adjustment[$i] && $old_adj->reason eq $reason[$i] && $old_adj->budget_id == $budget_id[$i] && $old_adj->encumber_open == $e_open{$adjustment_id[$i]} && $old_adj->note eq $note[$i] ){
209
            unless ( $old_adj->adjustment == $adjustment[$i] && $old_adj->reason eq $reason[$i] && $old_adj->budget_id == $budget_id[$i] && $old_adj->encumber_open == $e_open{$adjustment_id[$i]} && $old_adj->note eq $note[$i] ){
210
                # Log this modification
210
                # Log this modification
211
                if (C4::Context->preference("AcqLog")) {
211
                if (C4::Context->preference("AcquisitionLog")) {
212
                    my $infos = {
212
                    my $infos = {
213
                        adjustment        => $adjustment[$i],
213
                        adjustment        => $adjustment[$i],
214
                        reason            => $reason[$i],
214
                        reason            => $reason[$i],
(-)a/admin/aqbudgetperiods.pl (-2 / +1 lines)
Lines 123-129 elsif ( $op eq 'add_validate' ) { Link Here
123
        $$budget_period_hashref{$_}||=0 for qw(budget_period_active budget_period_locked);
123
        $$budget_period_hashref{$_}||=0 for qw(budget_period_active budget_period_locked);
124
        my $status=ModBudgetPeriod($budget_period_hashref);
124
        my $status=ModBudgetPeriod($budget_period_hashref);
125
        # Log the budget modification
125
        # Log the budget modification
126
        if (C4::Context->preference("AcqLog")) {
126
        if (C4::Context->preference("AcquisitionLog")) {
127
            my $diff = 0 - ($budgetperiod_old->{budget_period_total} - $budget_period_hashref->{budget_period_total});
127
            my $diff = 0 - ($budgetperiod_old->{budget_period_total} - $budget_period_hashref->{budget_period_total});
128
            my $infos = {
128
            my $infos = {
129
                budget_period_startdate     => $input->param('budget_period_startdate'),
129
                budget_period_startdate     => $input->param('budget_period_startdate'),
130
- 

Return to bug 24190