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 |
- |
|
|