|
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 |
- |
|
|