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