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

(-)a/Koha/Acquisition/Order.pm (-3 / +7 lines)
Lines 77-82 sub store { Link Here
77
77
78
    # if these parameters are missing, we can't continue
78
    # if these parameters are missing, we can't continue
79
    for my $key (qw( basketno quantity biblionumber budget_id )) {
79
    for my $key (qw( basketno quantity biblionumber budget_id )) {
80
        next if $key eq 'biblionumber' && ($self->orderstatus // q{}) eq 'cancelled'; # cancelled order might have biblionumber NULL
80
        croak "Cannot insert order: Mandatory parameter $key is missing"
81
        croak "Cannot insert order: Mandatory parameter $key is missing"
81
          unless $self->$key;
82
          unless $self->$key;
82
    }
83
    }
Lines 105-112 sub store { Link Here
105
=head3 cancel
106
=head3 cancel
106
107
107
    $order->cancel(
108
    $order->cancel(
108
        { [ reason        => $reason,
109
        {
109
            delete_biblio => $delete_biblio ]
110
            [
111
                reason        => $reason,
112
                delete_biblio => $delete_biblio
113
            ]
110
        }
114
        }
111
    );
115
    );
112
116
Lines 158-163 sub cancel { Link Here
158
                    payload => { biblio => $biblio, reason => $error }
162
                    payload => { biblio => $biblio, reason => $error }
159
                }
163
                }
160
            ) if $error;
164
            ) if $error;
165
            $self->biblionumber(undef) unless $error; # constraint cleared biblionumber in db already
161
        }
166
        }
162
        else {
167
        else {
163
168
164
- 

Return to bug 32417