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

(-)a/C4/Acquisition.pm (-19 / +15 lines)
Lines 30-35 use C4::Contract; Link Here
30
use C4::Debug;
30
use C4::Debug;
31
use C4::Bookseller qw(GetBookSellerFromId);
31
use C4::Bookseller qw(GetBookSellerFromId);
32
use C4::Templates qw(gettemplate);
32
use C4::Templates qw(gettemplate);
33
use Koha::DateUtils qw( dt_from_string output_pref );
33
34
34
use Time::localtime;
35
use Time::localtime;
35
use HTML::Entities;
36
use HTML::Entities;
Lines 1268-1302 sub NewOrder { Link Here
1268
1269
1269
1270
1270
    # if these parameters are missing, we can't continue
1271
    # if these parameters are missing, we can't continue
1271
    for my $key (qw/basketno quantity biblionumber budget_id/) {
1272
    for my $key ( qw( basketno quantity biblionumber budget_id ) ) {
1272
        croak "Mandatory parameter $key missing" unless $orderinfo->{$key};
1273
        croak "Cannot insert order: Mandatory parameter $key is missing" unless $orderinfo->{$key};
1273
    }
1274
    }
1274
1275
1275
    $orderinfo->{'entrydate'} ||= C4::Dates->new()->output("iso");
1276
    $orderinfo->{entrydate} ||= output_pref({ dt => dt_from_string, dateformat => 'iso'});
1276
    if (!$orderinfo->{quantityreceived}) {
1277
    $orderinfo->{quantityreceived} ||= 0;
1277
        $orderinfo->{quantityreceived} = 0;
1278
    }
1279
1278
1280
    # get only the columns of Aqorder
1279
    # get only the columns of Aqorder
1281
    my $schema = Koha::Database->new()->schema;
1280
    my $schema = Koha::Database->new()->schema;
1282
    my $columns = ' '.join(' ', $schema->source('Aqorder')->columns).' ';
1281
    my $columns = ' '.join(' ', $schema->source('Aqorder')->columns).' ';
1283
    my $new_order = { map { $columns =~ / $_ / ? ($_ => $orderinfo->{$_}) : () } keys(%$orderinfo) };
1282
    my $new_order = { map { $columns =~ / $_ / ? ($_ => $orderinfo->{$_}) : () } keys(%$orderinfo) };
1284
1283
1285
    my $rs = $schema->resultset('Aqorder');
1284
    my $order = $schema->resultset('Aqorder')->create($new_order);
1286
    my $ordernumber = $rs->create($new_order)->id;
1285
    my $ordernumber = $order->id;
1287
    if (not $new_order->{parent_ordernumber}) {
1286
1288
        my $sth = $dbh->prepare("
1287
    unless ( $new_order->{parent_ordernumber} ) {
1289
            UPDATE aqorders
1288
        $order->update({ parent_ordernumber => $ordernumber });
1290
            SET parent_ordernumber = ordernumber
1291
            WHERE ordernumber = ?
1292
        ");
1293
        $sth->execute($ordernumber);
1294
    }
1289
    }
1295
    return ( $new_order->{'basketno'}, $ordernumber );
1290
1291
    return $ordernumber;
1296
}
1292
}
1297
1293
1298
1294
1299
1295
1296
1300
#------------------------------------------------------------#
1297
#------------------------------------------------------------#
1301
1298
1302
=head3 NewOrderItem
1299
=head3 NewOrderItem
Lines 1535-1542 q{SELECT * FROM aqorders WHERE biblionumber=? AND aqorders.ordernumber=?}, Link Here
1535
        $order->{'rrp'} = $rrp;
1532
        $order->{'rrp'} = $rrp;
1536
        $order->{ecost} = $ecost;
1533
        $order->{ecost} = $ecost;
1537
        $order->{'orderstatus'} = 'complete';
1534
        $order->{'orderstatus'} = 'complete';
1538
        my $basketno;
1535
        $new_ordernumber = NewOrder($order);
1539
        ( $basketno, $new_ordernumber ) = NewOrder($order);
1540
1536
1541
        if ($received_items) {
1537
        if ($received_items) {
1542
            foreach my $itemnumber (@$received_items) {
1538
            foreach my $itemnumber (@$received_items) {
Lines 1934-1940 sub TransferOrder { Link Here
1934
    delete $order->{parent_ordernumber};
1930
    delete $order->{parent_ordernumber};
1935
    $order->{'basketno'} = $basketno;
1931
    $order->{'basketno'} = $basketno;
1936
    my $newordernumber;
1932
    my $newordernumber;
1937
    (undef, $newordernumber) = NewOrder($order);
1933
    $newordernumber = NewOrder($order);
1938
1934
1939
    $query = q{
1935
    $query = q{
1940
        UPDATE aqorders_items
1936
        UPDATE aqorders_items
(-)a/acqui/addorder.pl (-1 / +1 lines)
Lines 275-281 if ( $orderinfo->{quantity} ne '0' ) { Link Here
275
        ModOrder( $orderinfo);
275
        ModOrder( $orderinfo);
276
    }
276
    }
277
    else { # else, it's a new line
277
    else { # else, it's a new line
278
        @$orderinfo{qw(basketno ordernumber )} = NewOrder($orderinfo);
278
        $orderinfo->{ordernumber} = NewOrder($orderinfo);
279
    }
279
    }
280
280
281
    # now, add items if applicable
281
    # now, add items if applicable
(-)a/acqui/addorderiso2709.pl (-1 / +1 lines)
Lines 256-262 if ($op eq ""){ Link Here
256
256
257
        # remove uncertainprice flag if we have found a price in the MARC record
257
        # remove uncertainprice flag if we have found a price in the MARC record
258
        $orderinfo{uncertainprice} = 0 if $orderinfo{listprice};
258
        $orderinfo{uncertainprice} = 0 if $orderinfo{listprice};
259
        my ( $basketno, $ordernumber ) = NewOrder( \%orderinfo );
259
        my $ordernumber = NewOrder( \%orderinfo );
260
260
261
        # 4th, add items if applicable
261
        # 4th, add items if applicable
262
        # parse the item sent by the form, and create an item just for the import_record_id we are dealing with
262
        # parse the item sent by the form, and create an item just for the import_record_id we are dealing with
(-)a/t/db_dependent/Acquisition.t (-5 / +5 lines)
Lines 151-160 my ( $biblionumber4, $biblioitemnumber4 ) = AddBiblio( MARC::Record->new, '' ); Link Here
151
my ( $mandatoryparams, $return_error, $basketnum );
151
my ( $mandatoryparams, $return_error, $basketnum );
152
152
153
# returns undef and croaks if basketno, quantity, biblionumber or budget_id is missing
153
# returns undef and croaks if basketno, quantity, biblionumber or budget_id is missing
154
eval { ( $basketnum, $ordernumbers[0] ) = C4::Acquisition::NewOrder() };
154
eval { $ordernumbers[0] = C4::Acquisition::NewOrder() };
155
$return_error = $@;
155
$return_error = $@;
156
ok(
156
ok(
157
    ( !( defined $basketnum || defined $ordernumbers[0] ) )
157
    ( ! defined $ordernumbers[0] )
158
      && ( defined $return_error ),
158
      && ( defined $return_error ),
159
    "NewOrder with no params returns undef and croaks"
159
    "NewOrder with no params returns undef and croaks"
160
);
160
);
Lines 170-180 foreach my $mandatoryparams_key (@mandatoryparams_keys) { Link Here
170
    my %test_missing_mandatoryparams = %$mandatoryparams;
170
    my %test_missing_mandatoryparams = %$mandatoryparams;
171
    delete $test_missing_mandatoryparams{$mandatoryparams_key};
171
    delete $test_missing_mandatoryparams{$mandatoryparams_key};
172
    eval {
172
    eval {
173
        ( $basketnum, $ordernumbers[0] ) =
173
        $ordernumbers[0] =
174
          C4::Acquisition::NewOrder( \%test_missing_mandatoryparams );
174
          C4::Acquisition::NewOrder( \%test_missing_mandatoryparams );
175
    };
175
    };
176
    $return_error = $@;
176
    $return_error = $@;
177
    my $expected_error = "Mandatory parameter $mandatoryparams_key missing";
177
    my $expected_error = "Cannot insert order: Mandatory parameter $mandatoryparams_key is missing";
178
    ok(
178
    ok(
179
        ( !( defined $basketnum || defined $ordernumbers[0] ) )
179
        ( !( defined $basketnum || defined $ordernumbers[0] ) )
180
          && ( index( $return_error, $expected_error ) >= 0 ),
180
          && ( index( $return_error, $expected_error ) >= 0 ),
Lines 283-289 for ( 0 .. 4 ) { Link Here
283
      values %{ $order_content[$_]->{num} };
283
      values %{ $order_content[$_]->{num} };
284
    @ocontent{ keys %{ $order_content[$_]->{str} } } =
284
    @ocontent{ keys %{ $order_content[$_]->{str} } } =
285
      values %{ $order_content[$_]->{str} };
285
      values %{ $order_content[$_]->{str} };
286
    ( undef, $ordernumbers[$_] ) = C4::Acquisition::NewOrder( \%ocontent );
286
    $ordernumbers[$_] = C4::Acquisition::NewOrder( \%ocontent );
287
    $order_content[$_]->{str}->{ordernumber} = $ordernumbers[$_];
287
    $order_content[$_]->{str}->{ordernumber} = $ordernumbers[$_];
288
}
288
}
289
289
(-)a/t/db_dependent/Acquisition/CancelReceipt.t (-2 / +2 lines)
Lines 44-50 my ($biblionumber, $biblioitemnumber) = AddBiblio(MARC::Record->new, ''); Link Here
44
my $itemnumber = AddItem({}, $biblionumber);
44
my $itemnumber = AddItem({}, $biblionumber);
45
45
46
t::lib::Mocks::mock_preference('AcqCreateItem', 'receiving');
46
t::lib::Mocks::mock_preference('AcqCreateItem', 'receiving');
47
my ( undef, $ordernumber ) = C4::Acquisition::NewOrder(
47
my $ordernumber = C4::Acquisition::NewOrder(
48
    {
48
    {
49
        basketno => $basketno1,
49
        basketno => $basketno1,
50
        quantity => 2,
50
        quantity => 2,
Lines 73-79 my $itemnumber1 = AddItem({}, $biblionumber); Link Here
73
my $itemnumber2 = AddItem({}, $biblionumber);
73
my $itemnumber2 = AddItem({}, $biblionumber);
74
t::lib::Mocks::mock_preference('AcqCreateItem', 'ordering');
74
t::lib::Mocks::mock_preference('AcqCreateItem', 'ordering');
75
t::lib::Mocks::mock_preference('AcqItemSetSubfieldsWhenReceiptIsCancelled', '7=9'); # notforloan is mapped with 952$7
75
t::lib::Mocks::mock_preference('AcqItemSetSubfieldsWhenReceiptIsCancelled', '7=9'); # notforloan is mapped with 952$7
76
( undef, $ordernumber ) = C4::Acquisition::NewOrder(
76
$ordernumber = C4::Acquisition::NewOrder(
77
    {
77
    {
78
        basketno => $basketno1,
78
        basketno => $basketno1,
79
        quantity => 2,
79
        quantity => 2,
(-)a/t/db_dependent/Acquisition/GetBasketsInfosByBookseller.t (-2 / +2 lines)
Lines 39-45 my ($biblionumber1, $biblioitemnumber1) = AddBiblio(MARC::Record->new, ''); Link Here
39
my ($biblionumber2, $biblioitemnumber2) = AddBiblio(MARC::Record->new, '');
39
my ($biblionumber2, $biblioitemnumber2) = AddBiblio(MARC::Record->new, '');
40
my ($biblionumber3, $biblioitemnumber3) = AddBiblio(MARC::Record->new, '');
40
my ($biblionumber3, $biblioitemnumber3) = AddBiblio(MARC::Record->new, '');
41
41
42
( undef, $ordernumber1 ) = C4::Acquisition::NewOrder(
42
$ordernumber1 = C4::Acquisition::NewOrder(
43
    {
43
    {
44
        basketno => $basketno,
44
        basketno => $basketno,
45
        quantity => 2,
45
        quantity => 2,
Lines 48-54 my ($biblionumber3, $biblioitemnumber3) = AddBiblio(MARC::Record->new, ''); Link Here
48
    }
48
    }
49
);
49
);
50
50
51
( undef, $ordernumber2 ) = C4::Acquisition::NewOrder(
51
$ordernumber2 = C4::Acquisition::NewOrder(
52
    {
52
    {
53
        basketno => $basketno,
53
        basketno => $basketno,
54
        quantity => 4,
54
        quantity => 4,
(-)a/t/db_dependent/Acquisition/GetOrdersByBiblionumber.t (-3 / +3 lines)
Lines 39-45 my $budget = C4::Budgets::GetBudget( $budgetid ); Link Here
39
my ($ordernumber1, $ordernumber2, $ordernumber3);
39
my ($ordernumber1, $ordernumber2, $ordernumber3);
40
my ($biblionumber1, $biblioitemnumber1) = AddBiblio(MARC::Record->new, '');
40
my ($biblionumber1, $biblioitemnumber1) = AddBiblio(MARC::Record->new, '');
41
my ($biblionumber2, $biblioitemnumber2) = AddBiblio(MARC::Record->new, '');
41
my ($biblionumber2, $biblioitemnumber2) = AddBiblio(MARC::Record->new, '');
42
( undef, $ordernumber1 ) = C4::Acquisition::NewOrder(
42
$ordernumber1 = C4::Acquisition::NewOrder(
43
    {
43
    {
44
        basketno => $basketno,
44
        basketno => $basketno,
45
        quantity => 24,
45
        quantity => 24,
Lines 48-54 my ($biblionumber2, $biblioitemnumber2) = AddBiblio(MARC::Record->new, ''); Link Here
48
    }
48
    }
49
);
49
);
50
50
51
( undef, $ordernumber2 ) = C4::Acquisition::NewOrder(
51
$ordernumber2 = C4::Acquisition::NewOrder(
52
    {
52
    {
53
        basketno => $basketno,
53
        basketno => $basketno,
54
        quantity => 42,
54
        quantity => 42,
Lines 57-63 my ($biblionumber2, $biblioitemnumber2) = AddBiblio(MARC::Record->new, ''); Link Here
57
    }
57
    }
58
);
58
);
59
59
60
( undef, $ordernumber3 ) = C4::Acquisition::NewOrder(
60
$ordernumber3 = C4::Acquisition::NewOrder(
61
    {
61
    {
62
        basketno => $basketno,
62
        basketno => $basketno,
63
        quantity => 4,
63
        quantity => 4,
(-)a/t/db_dependent/Acquisition/Invoices.t (-3 / +3 lines)
Lines 53-59 $bibrec1->append_fields( Link Here
53
my ($biblionumber1, $biblioitemnumber1) = AddBiblio($bibrec1, '');
53
my ($biblionumber1, $biblioitemnumber1) = AddBiblio($bibrec1, '');
54
my ($biblionumber2, $biblioitemnumber2) = AddBiblio(MARC::Record->new, '');
54
my ($biblionumber2, $biblioitemnumber2) = AddBiblio(MARC::Record->new, '');
55
my ($biblionumber3, $biblioitemnumber3) = AddBiblio(MARC::Record->new, '');
55
my ($biblionumber3, $biblioitemnumber3) = AddBiblio(MARC::Record->new, '');
56
( undef, $ordernumber1 ) = C4::Acquisition::NewOrder(
56
$ordernumber1 = C4::Acquisition::NewOrder(
57
    {
57
    {
58
        basketno => $basketno,
58
        basketno => $basketno,
59
        quantity => 2,
59
        quantity => 2,
Lines 62-68 my ($biblionumber3, $biblioitemnumber3) = AddBiblio(MARC::Record->new, ''); Link Here
62
    }
62
    }
63
);
63
);
64
64
65
( undef, $ordernumber2 ) = C4::Acquisition::NewOrder(
65
$ordernumber2 = C4::Acquisition::NewOrder(
66
    {
66
    {
67
        basketno => $basketno,
67
        basketno => $basketno,
68
        quantity => 1,
68
        quantity => 1,
Lines 71-77 my ($biblionumber3, $biblioitemnumber3) = AddBiblio(MARC::Record->new, ''); Link Here
71
    }
71
    }
72
);
72
);
73
73
74
( undef, $ordernumber3 ) = C4::Acquisition::NewOrder(
74
$ordernumber3 = C4::Acquisition::NewOrder(
75
    {
75
    {
76
        basketno => $basketno,
76
        basketno => $basketno,
77
        quantity => 1,
77
        quantity => 1,
(-)a/t/db_dependent/Acquisition/OrderFromSubscription.t (-1 / +1 lines)
Lines 57-63 ok($basketno = NewBasket($booksellerid, 1), "NewBasket( $booksellerid , 1 ) re Link Here
57
my $cost = 42.00;
57
my $cost = 42.00;
58
my $subscription = GetSubscription( $subscriptionid );
58
my $subscription = GetSubscription( $subscriptionid );
59
my $ordernumber;
59
my $ordernumber;
60
( $basketno, $ordernumber ) = NewOrder({
60
$ordernumber = NewOrder({
61
    biblionumber => $subscription->{biblionumber},
61
    biblionumber => $subscription->{biblionumber},
62
    entrydate => '01-01-2013',
62
    entrydate => '01-01-2013',
63
    quantity => 1,
63
    quantity => 1,
(-)a/t/db_dependent/Acquisition/TransferOrder.t (-1 / +1 lines)
Lines 54-60 my $budget = C4::Budgets::GetBudget( $budgetid ); Link Here
54
my ($biblionumber, $biblioitemnumber) = AddBiblio(MARC::Record->new, '');
54
my ($biblionumber, $biblioitemnumber) = AddBiblio(MARC::Record->new, '');
55
my $itemnumber = AddItem({}, $biblionumber);
55
my $itemnumber = AddItem({}, $biblionumber);
56
56
57
my ( undef, $ordernumber ) = C4::Acquisition::NewOrder(
57
my $ordernumber = C4::Acquisition::NewOrder(
58
    {
58
    {
59
        basketno => $basketno1,
59
        basketno => $basketno1,
60
        quantity => 2,
60
        quantity => 2,
(-)a/t/db_dependent/Acquisition/close_reopen_basket.t (-2 / +2 lines)
Lines 44-50 my ($biblionumber1, $biblioitemnumber1) = AddBiblio(MARC::Record->new, ''); Link Here
44
my ($biblionumber2, $biblioitemnumber2) = AddBiblio(MARC::Record->new, '');
44
my ($biblionumber2, $biblioitemnumber2) = AddBiblio(MARC::Record->new, '');
45
45
46
my ($ordernumber1, $ordernumber2);
46
my ($ordernumber1, $ordernumber2);
47
( undef, $ordernumber1 ) = C4::Acquisition::NewOrder(
47
$ordernumber1 = C4::Acquisition::NewOrder(
48
    {
48
    {
49
        basketno => $basketno,
49
        basketno => $basketno,
50
        quantity => 24,
50
        quantity => 24,
Lines 53-59 my ($ordernumber1, $ordernumber2); Link Here
53
    }
53
    }
54
);
54
);
55
55
56
( undef, $ordernumber2 ) = C4::Acquisition::NewOrder(
56
$ordernumber2 = C4::Acquisition::NewOrder(
57
    {
57
    {
58
        basketno => $basketno,
58
        basketno => $basketno,
59
        quantity => 42,
59
        quantity => 42,
(-)a/t/db_dependent/Bookseller.t (-18 / +17 lines)
Lines 127-135 is_deeply( \@booksellers, \@tab, Link Here
127
my @bookseller1 = C4::Bookseller::GetBookSeller( $sample_supplier1->{name} );
127
my @bookseller1 = C4::Bookseller::GetBookSeller( $sample_supplier1->{name} );
128
#FIXME : if there is 0 basket, GetBookSeller returns 1 as basketcount
128
#FIXME : if there is 0 basket, GetBookSeller returns 1 as basketcount
129
#is( $bookseller1[0]->{basketcount}, 0, 'Supplier1 has 0 basket' );
129
#is( $bookseller1[0]->{basketcount}, 0, 'Supplier1 has 0 basket' );
130
my $sample_basket1 =
130
my $basketno1 =
131
  C4::Acquisition::NewBasket( $id_supplier1, 'authorisedby1', 'basketname1' );
131
  C4::Acquisition::NewBasket( $id_supplier1, 'authorisedby1', 'basketname1' );
132
my $sample_basket2 =
132
my $basketno2 =
133
  C4::Acquisition::NewBasket( $id_supplier1, 'authorisedby2', 'basketname2' );
133
  C4::Acquisition::NewBasket( $id_supplier1, 'authorisedby2', 'basketname2' );
134
@bookseller1 = C4::Bookseller::GetBookSeller( $sample_supplier1->{name} );
134
@bookseller1 = C4::Bookseller::GetBookSeller( $sample_supplier1->{name} );
135
is( $bookseller1[0]->{basketcount}, 2, 'Supplier1 has 2 baskets' );
135
is( $bookseller1[0]->{basketcount}, 2, 'Supplier1 has 2 baskets' );
Lines 290-311 my $id_supplier3 = C4::Bookseller::AddBookseller($sample_supplier3); Link Here
290
my $id_supplier4 = C4::Bookseller::AddBookseller($sample_supplier4);
290
my $id_supplier4 = C4::Bookseller::AddBookseller($sample_supplier4);
291
291
292
#Add 2 baskets
292
#Add 2 baskets
293
my $sample_basket3 =
293
my $basketno3 =
294
  C4::Acquisition::NewBasket( $id_supplier3, 'authorisedby3', 'basketname3',
294
  C4::Acquisition::NewBasket( $id_supplier3, 'authorisedby3', 'basketname3',
295
    'basketnote3' );
295
    'basketnote3' );
296
my $sample_basket4 =
296
my $basketno4 =
297
  C4::Acquisition::NewBasket( $id_supplier4, 'authorisedby4', 'basketname4',
297
  C4::Acquisition::NewBasket( $id_supplier4, 'authorisedby4', 'basketname4',
298
    'basketnote4' );
298
    'basketnote4' );
299
299
300
#Modify the basket to add a close date
300
#Modify the basket to add a close date
301
my $basket1info = {
301
my $basket1info = {
302
    basketno     => $sample_basket1,
302
    basketno     => $basketno1,
303
    closedate    => $today,
303
    closedate    => $today,
304
    booksellerid => $id_supplier1
304
    booksellerid => $id_supplier1
305
};
305
};
306
306
307
my $basket2info = {
307
my $basket2info = {
308
    basketno     => $sample_basket2,
308
    basketno     => $basketno2,
309
    closedate    => $daysago5,
309
    closedate    => $daysago5,
310
    booksellerid => $id_supplier2
310
    booksellerid => $id_supplier2
311
};
311
};
Lines 315-326 my $dur10 = DateTime::Duration->new( days => -10 ); Link Here
315
$dt_today2->add_duration($dur10);
315
$dt_today2->add_duration($dur10);
316
my $daysago10 = output_pref({ dt => $dt_today2, dateformat => 'iso', timeformat => '24hr', dateonly => 1 });
316
my $daysago10 = output_pref({ dt => $dt_today2, dateformat => 'iso', timeformat => '24hr', dateonly => 1 });
317
my $basket3info = {
317
my $basket3info = {
318
    basketno  => $sample_basket3,
318
    basketno  => $basketno3,
319
    closedate => $daysago10,
319
    closedate => $daysago10,
320
};
320
};
321
321
322
my $basket4info = {
322
my $basket4info = {
323
    basketno  => $sample_basket4,
323
    basketno  => $basketno4,
324
    closedate => $today,
324
    closedate => $today,
325
};
325
};
326
ModBasket($basket1info);
326
ModBasket($basket1info);
Lines 351-360 is(scalar(@subscriptions), 1, 'search for subscriptions by location'); Link Here
351
351
352
#Add 4 orders
352
#Add 4 orders
353
my ( $ordernumber1, $ordernumber2, $ordernumber3, $ordernumber4 );
353
my ( $ordernumber1, $ordernumber2, $ordernumber3, $ordernumber4 );
354
my ( $basketno1,    $basketno2,    $basketno3,    $basketno4 );
354
$ordernumber1 = C4::Acquisition::NewOrder(
355
( $basketno1, $ordernumber1 ) = C4::Acquisition::NewOrder(
356
    {
355
    {
357
        basketno         => $sample_basket1,
356
        basketno         => $basketno1,
358
        quantity         => 24,
357
        quantity         => 24,
359
        biblionumber     => $biblionumber,
358
        biblionumber     => $biblionumber,
360
        budget_id        => $id_budget,
359
        budget_id        => $id_budget,
Lines 370-378 my ( $basketno1, $basketno2, $basketno3, $basketno4 ); Link Here
370
        datereceived     => '01-06-2013'
369
        datereceived     => '01-06-2013'
371
    }
370
    }
372
);
371
);
373
( $basketno2, $ordernumber2 ) = C4::Acquisition::NewOrder(
372
$ordernumber2 = C4::Acquisition::NewOrder(
374
    {
373
    {
375
        basketno       => $sample_basket2,
374
        basketno       => $basketno2,
376
        quantity       => 20,
375
        quantity       => 20,
377
        biblionumber   => $biblionumber,
376
        biblionumber   => $biblionumber,
378
        budget_id      => $id_budget,
377
        budget_id      => $id_budget,
Lines 386-394 my ( $basketno1, $basketno2, $basketno3, $basketno4 ); Link Here
386
        ecost          => 10,
385
        ecost          => 10,
387
    }
386
    }
388
);
387
);
389
( $basketno3, $ordernumber3 ) = C4::Acquisition::NewOrder(
388
$ordernumber3 = C4::Acquisition::NewOrder(
390
    {
389
    {
391
        basketno       => $sample_basket3,
390
        basketno       => $basketno3,
392
        quantity       => 20,
391
        quantity       => 20,
393
        biblionumber   => $biblionumber,
392
        biblionumber   => $biblionumber,
394
        budget_id      => $id_budget,
393
        budget_id      => $id_budget,
Lines 402-410 my ( $basketno1, $basketno2, $basketno3, $basketno4 ); Link Here
402
        ecost          => 11,
401
        ecost          => 11,
403
    }
402
    }
404
);
403
);
405
( $basketno4, $ordernumber4 ) = C4::Acquisition::NewOrder(
404
$ordernumber4 = C4::Acquisition::NewOrder(
406
    {
405
    {
407
        basketno         => $sample_basket4,
406
        basketno         => $basketno4,
408
        quantity         => 20,
407
        quantity         => 20,
409
        biblionumber     => $biblionumber,
408
        biblionumber     => $biblionumber,
410
        budget_id        => $id_budget,
409
        budget_id        => $id_budget,
Lines 604-610 isnt( exists( $suppliers{$id_supplier4} ), 1, "Supplier4 hasnt late orders" ); Link Here
604
603
605
#Basket1 closedate -> $daysago10
604
#Basket1 closedate -> $daysago10
606
$basket1info = {
605
$basket1info = {
607
    basketno  => $sample_basket1,
606
    basketno  => $basketno1,
608
    closedate => $daysago10,
607
    closedate => $daysago10,
609
};
608
};
610
ModBasket($basket1info);
609
ModBasket($basket1info);
(-)a/t/db_dependent/Budgets.t (-3 / +2 lines)
Lines 304-310 my $item_quantity = 2; Link Here
304
my $number_of_orders_to_move = 0;
304
my $number_of_orders_to_move = 0;
305
for my $infos (@order_infos) {
305
for my $infos (@order_infos) {
306
    for ( 1 .. $infos->{pending_quantity} ) {
306
    for ( 1 .. $infos->{pending_quantity} ) {
307
        my ( undef, $ordernumber ) = C4::Acquisition::NewOrder(
307
        my $ordernumber = C4::Acquisition::NewOrder(
308
            {
308
            {
309
                basketno           => $basketno,
309
                basketno           => $basketno,
310
                biblionumber       => $biblionumber,
310
                biblionumber       => $biblionumber,
Lines 326-332 for my $infos (@order_infos) { Link Here
326
        $number_of_orders_to_move++;
326
        $number_of_orders_to_move++;
327
    }
327
    }
328
    for ( 1 .. $infos->{spent_quantity} ) {
328
    for ( 1 .. $infos->{spent_quantity} ) {
329
        my ( undef, $ordernumber ) = C4::Acquisition::NewOrder(
329
        my $ordernumber = C4::Acquisition::NewOrder(
330
            {
330
            {
331
                basketno           => $basketno,
331
                basketno           => $basketno,
332
                biblionumber       => $biblionumber,
332
                biblionumber       => $biblionumber,
333
- 

Return to bug 12827