gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Revert "Bug 7167: Followup: Removes useless global variables" 

This reverts commit 754392ed88.
This commit is contained in:
Jared Camins-Esakov 2012-12-27 14:02:54 -05:00
parent 66717192f4
commit ed38cd441b
1 changed files with 6 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
C4/Update/Database.pm
View File

@ -41,18 +41,12 @@ C4::Update::Database.pm
=cut
our $dbh = C4::Context->dbh;
my $VERSIONS_PATH = C4::Context->config('intranetdir') . '/installer/data/mysql/versions';
=head2 get_versions_path
my $version;
my $list;
return the path to the version files
=cut
sub get_versions_path {
return C4::Context->config('intranetdir') . '/installer/data/mysql/versions';
}
my $dbh = C4::Context->dbh;
=head2 get_filepath
@ -63,7 +57,7 @@ sub get_versions_path {
sub get_filepath {
my ( $version ) = @_;
my @files = File::Find::Rule->file->name( "$version.sql", "$version.pl" ) ->in( ( get_versions_path() ) );
my @files = File::Find::Rule->file->name( "$version.sql", "$version.pl" ) ->in( ( $VERSIONS_PATH ) );
if ( scalar @files != 1 ) {
die "This version ($version) returned has ".scalar @files." corresponding, need only 1";
@ -175,7 +169,7 @@ sub execute_version {
sub list_versions_available {
my @versions;
my @files = File::Find::Rule->file->name( "*.sql", "*.pl" ) ->in( ( get_versions_path() ) );
my @files = File::Find::Rule->file->name( "*.sql", "*.pl" ) ->in( ( $VERSIONS_PATH ) );
for my $f ( @files ) {
my @file_infos = fileparse( $f, qr/\.[^.]*/ );