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

Bug 14893: Update DB rev (3.22.02.001) 

Signed-off-by: Julian Maurice <julian.maurice@biblibre.com>
This commit is contained in:
Julian Maurice 2016-02-01 17:30:52 +01:00
parent 3ed86a52ea
commit ba626aaa94
3 changed files with 18 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Koha.pm
View File

@ -29,7 +29,7 @@ use vars qw{ $VERSION };
# - #4 : the developer version. The 4th number is the database subversion.
# used by developers when the database changes. updatedatabase take care of the changes itself
# and is automatically called by Auth.pm when needed.
$VERSION = "3.22.02.000";
$VERSION = "3.22.02.001";
sub version {
return $VERSION;

16
installer/data/mysql/atomicupdate/14893_cleanup.perl
View File

@ -1,16 +0,0 @@
# This perl snippet is run from within updatedatabase.pl
# Remove all temporary files from the obsolete koha_upload
# Bug 14893 replaces /tmp/koha_upload by /tmp/[db_name]_upload
# Permanent storage is not affected
use File::Path qw[remove_tree]; # perl core module
use File::Spec;
my $dbh= C4::Context->dbh;
$dbh->do(q|
DELETE FROM uploaded_files
WHERE COALESCE(permanent,0)=0 AND dir='koha_upload'
|);
my $tmp= File::Spec->tmpdir.'/koha_upload';
remove_tree( $tmp ) if -d $tmp;

17
installer/data/mysql/updatedatabase.pl
View File

@ -43,6 +43,9 @@ use Koha::DateUtils;
use MARC::Record;
use MARC::File::XML ( BinaryEncoding => 'utf8' );
use File::Path qw(remove_tree);
use File::Spec;
# FIXME - The user might be installing a new database, so can't rely
# on /etc/koha.conf anyway.
@ -11409,6 +11412,20 @@ if ( CheckVersion($DBversion) ) {
SetVersion($DBversion);
}
$DBversion = "3.22.02.001";
if ( CheckVersion($DBversion) ) {
$dbh->do(q{
DELETE FROM uploaded_files
WHERE COALESCE(permanent,0)=0 AND dir='koha_upload'
});
my $tmp = File::Spec->tmpdir . '/koha_upload';
remove_tree( $tmp ) if -d $tmp;
print "Upgrade to $DBversion done (Bug 14893 - Separate temporary storage per instance in Upload.pm)\n";
SetVersion($DBversion);
}
# DEVELOPER PROCESS, search for anything to execute in the db_update directory
# SEE bug 13068
# if there is anything in the atomicupdate, read and execute it.