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

DBRev for Bug 14893 - Separate temporary storage per instance in Upload.pm 

Signed-off-by: Brendan Gallagher <brendan@bywatersolutions.com>
This commit is contained in:
Brendan Gallagher 2016-01-29 17:49:33 +00:00
parent 0c138700b2
commit 9865d34e69
2 changed files with 20 additions and 1 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.23.00.016";
$VERSION = "3.23.00.017";
sub version {
return $VERSION;

19
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]; # perl core module
use File::Spec;
# FIXME - The user might be installing a new database, so can't rely
# on /etc/koha.conf anyway.
@ -11694,6 +11697,22 @@ if ( CheckVersion($DBversion) ) {
SetVersion($DBversion);
}
$DBversion = "3.23.00.017";
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.