next unless $_ =~ /\.sql$/; # skip non SQL files

    next unless $_ =~ /\.sql$/; # skip non SQL files

    # open and read file;

    # open and read file;

    open FILE, "<",  C4::Context->config('intranetdir') . '/installer/data/mysql/db_update/'.$_ or die "ERROR, impossible to open $_";

    open FILE, "<",  C4::Context->config('intranetdir') . '/installer/data/mysql/db_update/'.$_ or die "ERROR, impossible to open $_";

    while ( <FILE> ) {

    while ( <FILE> ) {

        my $line = $_;

        my $line = $_;

        $line =~ s/\n//g;

        $line =~ s/\n//g;

        $dbh->do($line) if $line;

        $dbh->do($line) if $line;

    }

    }

}

}