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

(-)a/C4/Acquisition.pm (-1 / +1 lines)
Lines 1493-1499 sub SearchOrders { Link Here
1493
    };
1493
    };
1494
1494
1495
    my $userenv = C4::Context->userenv;
1495
    my $userenv = C4::Context->userenv;
1496
    if ( C4::Context->preference("IndependantBranches") ) {
1496
    if ( C4::Context->preference("IndependentBranches") ) {
1497
        if ( ( $userenv ) and ( $userenv->{flags} != 1 ) ) {
1497
        if ( ( $userenv ) and ( $userenv->{flags} != 1 ) ) {
1498
            $query .= q{
1498
            $query .= q{
1499
                AND (
1499
                AND (
(-)a/t/db_dependent/lib/KohaTest/Acquisition/GetPendingOrders.pm (-4 / +3 lines)
Lines 8-14 use Test::More; Link Here
8
8
9
use C4::Acquisition;
9
use C4::Acquisition;
10
10
11
=head3 no_orders
11
=head1 no_orders
12
12
13
at first, there should be no orders for our bookseller.
13
at first, there should be no orders for our bookseller.
14
14
Lines 25-31 sub no_orders : Test( 1 ) { Link Here
25
      or diag( Data::Dumper->Dump( [ $orders ], [ 'orders' ] ) );
25
      or diag( Data::Dumper->Dump( [ $orders ], [ 'orders' ] ) );
26
}
26
}
27
27
28
=head3 new_order
28
=head1 new_order
29
29
30
we make an order, then see if it shows up in the pending orders
30
we make an order, then see if it shows up in the pending orders
31
31
Lines 82-88 sub one_new_order : Test( 49 ) { Link Here
82
    for my $field ( @expectedfields ) {
82
    for my $field ( @expectedfields ) {
83
        ok( exists( $firstorder->{ $field } ), "This order has a $field field" );
83
        ok( exists( $firstorder->{ $field } ), "This order has a $field field" );
84
    }
84
    }
85
    
85
86
}
86
}
87
87
88
1;
88
1;
89
- 

Return to bug 10124