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

(-)a/C4/Acquisition.pm (-1 / +1 lines)
Lines 1550-1556 sub SearchOrders { Link Here
1550
    };
1550
    };
1551
1551
1552
    my $userenv = C4::Context->userenv;
1552
    my $userenv = C4::Context->userenv;
1553
    if ( C4::Context->preference("IndependantBranches") ) {
1553
    if ( C4::Context->preference("IndependentBranches") ) {
1554
        if ( ( $userenv ) and ( $userenv->{flags} != 1 ) ) {
1554
        if ( ( $userenv ) and ( $userenv->{flags} != 1 ) ) {
1555
            $query .= q{
1555
            $query .= q{
1556
                AND (
1556
                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