|
Lines 39-44
use C4::Installer;
Link Here
|
| 39 |
use C4::Dates; |
39 |
use C4::Dates; |
| 40 |
use Koha::Database; |
40 |
use Koha::Database; |
| 41 |
use Koha; |
41 |
use Koha; |
|
|
42 |
use Koha::Items; |
| 42 |
|
43 |
|
| 43 |
use MARC::Record; |
44 |
use MARC::Record; |
| 44 |
use MARC::File::XML ( BinaryEncoding => 'utf8' ); |
45 |
use MARC::File::XML ( BinaryEncoding => 'utf8' ); |
|
Lines 10761-10766
if ( CheckVersion($DBversion) ) {
Link Here
|
| 10761 |
SetVersion ($DBversion); |
10762 |
SetVersion ($DBversion); |
| 10762 |
} |
10763 |
} |
| 10763 |
|
10764 |
|
|
|
10765 |
$DBversion = "3.21.00.XXX"; |
| 10766 |
if ( CheckVersion($DBversion) ) { |
| 10767 |
# Fix return statistic itemtypes |
| 10768 |
my $stats = $schema->resultset('Statistic')->search({ |
| 10769 |
type => 'return', |
| 10770 |
itemtype => undef }); |
| 10771 |
|
| 10772 |
while ( my $stat = $stats->next() ) { |
| 10773 |
|
| 10774 |
my $itemnumber = $stat->itemnumber(); |
| 10775 |
my $itemtype = Koha::Items->find( $itemnumber )->effective_itemtype(); |
| 10776 |
|
| 10777 |
$sth = $dbh->prepare(q{ |
| 10778 |
UPDATE statistics |
| 10779 |
SET itemtype=? |
| 10780 |
WHERE type='return' AND itemnumber=? AND itemtype IS NULL |
| 10781 |
}); |
| 10782 |
$sth->execute( $itemtype, $itemnumber ); |
| 10783 |
} |
| 10784 |
|
| 10785 |
print "Upgrade to $DBversion done (Bug 14598: itemtype is not set on statistics by C4::Circulation::AddReturn)\n"; |
| 10786 |
SetVersion ($DBversion); |
| 10787 |
} |
| 10788 |
|
| 10764 |
# DEVELOPER PROCESS, search for anything to execute in the db_update directory |
10789 |
# DEVELOPER PROCESS, search for anything to execute in the db_update directory |
| 10765 |
# SEE bug 13068 |
10790 |
# SEE bug 13068 |
| 10766 |
# if there is anything in the atomicupdate, read and execute it. |
10791 |
# if there is anything in the atomicupdate, read and execute it. |
| 10767 |
- |
|
|