|
Lines 428-445
with missing files, e.g.
Link Here
|
| 428 |
=cut |
428 |
=cut |
| 429 |
|
429 |
|
| 430 |
sub load_sql { |
430 |
sub load_sql { |
| 431 |
|
|
|
| 432 |
my $self = shift; |
431 |
my $self = shift; |
| 433 |
my $filename = shift; |
432 |
my $filename = shift; |
|
|
433 |
my $error; |
| 434 |
|
434 |
|
| 435 |
my $dbh = $self->{ dbh }; |
435 |
my $dbh = $self->{ dbh }; |
| 436 |
|
436 |
|
| 437 |
my $error = DBIx::RunSQL->run_sql_file( |
437 |
eval { |
| 438 |
dbh => $dbh, |
438 |
DBIx::RunSQL->run_sql_file( |
| 439 |
sql => $filename, |
439 |
dbh => $dbh, |
| 440 |
); |
440 |
sql => $filename, |
| 441 |
|
441 |
); |
| 442 |
$error = ( $error ) ? "ERROR: $filename" : ""; |
442 |
}; |
|
|
443 |
# errors thrown while loading installer data should be logged |
| 444 |
if( $@ ) { |
| 445 |
warn "C4::Installer::load_sql returned the following errors while attempting to load $filename:\n"; |
| 446 |
warn "$@"; |
| 447 |
$error = "Error attempting to load $filename:\n$@"; |
| 448 |
} |
| 443 |
|
449 |
|
| 444 |
return $error; |
450 |
return $error; |
| 445 |
} |
451 |
} |
| 446 |
- |
|
|