Lines 100-105
$dbh->{RaiseError} = 0;
Link Here
|
100 |
my $schema = Koha::Database->schema; |
100 |
my $schema = Koha::Database->schema; |
101 |
$schema->storage->txn_begin; |
101 |
$schema->storage->txn_begin; |
102 |
|
102 |
|
|
|
103 |
$schema->resultset( 'Issue' )->delete_all; |
103 |
$schema->resultset( 'Borrower' )->delete_all; |
104 |
$schema->resultset( 'Borrower' )->delete_all; |
104 |
$schema->resultset( 'BorrowerAttribute' )->delete_all; |
105 |
$schema->resultset( 'BorrowerAttribute' )->delete_all; |
105 |
$schema->resultset( 'BorrowerAttributeType' )->delete_all; |
106 |
$schema->resultset( 'BorrowerAttributeType' )->delete_all; |
Lines 180-186
$schema->resultset( 'Branch' )->delete_all;
Link Here
|
180 |
|
181 |
|
181 |
my $reply = C4::ILSDI::Services::GetPatronInfo( $query ); |
182 |
my $reply = C4::ILSDI::Services::GetPatronInfo( $query ); |
182 |
|
183 |
|
183 |
# Build a structure for comparision: |
184 |
# Build a structure for comparison: |
184 |
my $cmp = { |
185 |
my $cmp = { |
185 |
category_code => $attr_type->{'category_code'}, |
186 |
category_code => $attr_type->{'category_code'}, |
186 |
class => $attr_type->{'class'}, |
187 |
class => $attr_type->{'class'}, |
Lines 193-199
$schema->resultset( 'Branch' )->delete_all;
Link Here
|
193 |
}; |
194 |
}; |
194 |
|
195 |
|
195 |
# Check results: |
196 |
# Check results: |
196 |
is_deeply( $reply->{'attributes'}, [ $cmp ] ); |
197 |
is_deeply( $reply->{'attributes'}, [ $cmp ], 'Test GetPatronInfo - show_attributes parameter' ); |
197 |
} |
198 |
} |
198 |
|
199 |
|
199 |
# Cleanup |
200 |
# Cleanup |
200 |
- |
|
|