Lines 9732-9743
sub ExecDBRev {
Link Here
|
9732 |
$rv = 1; |
9732 |
$rv = 1; |
9733 |
} elsif( $file =~ /\.pl$/ ) { |
9733 |
} elsif( $file =~ /\.pl$/ ) { |
9734 |
#Run perl script |
9734 |
#Run perl script |
|
|
9735 |
my $dbh = C4::Context->dbh; |
9736 |
$dbh->{RaiseError} = 1; |
9735 |
$rv = do $atomicupd->{location}. "/$file"; |
9737 |
$rv = do $atomicupd->{location}. "/$file"; |
9736 |
if( !$rv ) { |
9738 |
if( !$rv ) { |
9737 |
print "ERROR: $@\n" if $@; |
9739 |
print "ERROR: $@\n" if $@; |
9738 |
print "ERROR: $!\n" if $! && !$@; |
9740 |
print "ERROR: $!\n" if $! && !$@; |
9739 |
$rv = 1 if !$! && !$@; #apparently, the file does not end with 1; |
9741 |
$rv = 1 if !$! && !$@; #apparently, the file does not end with 1; |
9740 |
} |
9742 |
} |
|
|
9743 |
$dbh->{RaiseError} = 0; |
9741 |
} elsif( $file =~ /\.sql$/ ) { |
9744 |
} elsif( $file =~ /\.sql$/ ) { |
9742 |
#Run sql file via installer |
9745 |
#Run sql file via installer |
9743 |
my $installer = C4::Installer->new(); |
9746 |
my $installer = C4::Installer->new(); |
9744 |
- |
|
|