View | Details | Raw Unified | Return to bug 20727
Collapse All | Expand All

(-)a/installer/data/mysql/updatedatabase.pl (-3 / +1 lines)
Lines 46-52 use MARC::Record; Link Here
46
use MARC::File::XML ( BinaryEncoding => 'utf8' );
46
use MARC::File::XML ( BinaryEncoding => 'utf8' );
47
47
48
use File::Path qw[remove_tree]; # perl core module
48
use File::Path qw[remove_tree]; # perl core module
49
use File::Spec;
50
use File::Slurp;
49
use File::Slurp;
51
50
52
# FIXME - The user might be installing a new database, so can't rely
51
# FIXME - The user might be installing a new database, so can't rely
Lines 11772-11778 $dbh->do(q{ Link Here
11772
    WHERE COALESCE(permanent,0)=0 AND dir='koha_upload'
11771
    WHERE COALESCE(permanent,0)=0 AND dir='koha_upload'
11773
});
11772
});
11774
11773
11775
my $tmp= File::Spec->tmpdir.'/koha_upload';
11774
my $tmp = C4::Context->temporary_directory . '/koha_upload';
11776
remove_tree( $tmp ) if -d $tmp;
11775
remove_tree( $tmp ) if -d $tmp;
11777
11776
11778
    print "Upgrade to $DBversion done (Bug 14893 - Separate temporary storage per instance in Upload.pm)\n";
11777
    print "Upgrade to $DBversion done (Bug 14893 - Separate temporary storage per instance in Upload.pm)\n";
11779
- 

Return to bug 20727