# - #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 = "18.11.00.001";
+$VERSION = "18.11.00.002";
sub version {
return $VERSION;
=head2 borrowernumber
data_type: 'integer'
- default_value: 0
is_foreign_key: 1
- is_nullable: 0
+ is_nullable: 1
=head2 accountno
"issue_id",
{ data_type => "integer", is_nullable => 1 },
"borrowernumber",
- {
- data_type => "integer",
- default_value => 0,
- is_foreign_key => 1,
- is_nullable => 0,
- },
+ { data_type => "integer", is_foreign_key => 1, is_nullable => 1 },
"accountno",
{ data_type => "smallint", default_value => 0, is_nullable => 0 },
"itemnumber",
"borrowernumber",
"Koha::Schema::Result::Borrower",
{ borrowernumber => "borrowernumber" },
- { is_deferrable => 1, on_delete => "CASCADE", on_update => "CASCADE" },
+ {
+ is_deferrable => 1,
+ join_type => "LEFT",
+ on_delete => "SET NULL",
+ on_update => "CASCADE",
+ },
);
=head2 itemnumber
);
-# Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-05-16 17:00:24
-# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:pygYYKxFDRLX97PyeUeLvg
+# Created by DBIx::Class::Schema::Loader v0.07042 @ 2018-12-19 16:19:16
+# DO NOT MODIFY THIS OR ANYTHING ABOVE! md5sum:kvBIJshNRsm/HYJBbhm0IA
sub koha_objects_class {
'Koha::Account::Lines';
+++ /dev/null
-$DBversion = 'XXX'; # will be replaced by the RM
-if( CheckVersion( $DBversion ) ) {
-
- my $sth = $dbh->prepare(q|SELECT * FROM INFORMATION_SCHEMA.TABLE_CONSTRAINTS WHERE CONSTRAINT_NAME='accountlines_ibfk_1'|);
- $sth->execute;
- if ($sth->fetchrow_hashref) {
- $dbh->do(q|
- ALTER TABLE accountlines DROP FOREIGN KEY accountlines_ibfk_1;
- |);
- $dbh->do(q|
- ALTER TABLE accountlines CHANGE COLUMN borrowernumber borrowernumber INT(11) DEFAULT NULL;
- |);
- $dbh->do(q|
- ALTER TABLE accountlines ADD CONSTRAINT accountlines_ibfk_borrowers FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE SET NULL ON UPDATE CASCADE;
- |);
- }
-
- SetVersion( $DBversion );
- print "Upgrade to $DBversion done (Bug 21065 - Set ON DELETE SET NULL on accountlines.borrowernumber)\n";
-}
print "Upgrade to $DBversion (Bug 21961 - Fix typo in manage_didyoumean permission)\n";
}
+$DBversion = '18.11.00.002';
+if( CheckVersion( $DBversion ) ) {
+ my $sth = $dbh->prepare(q|SELECT * FROM INFORMATION_SCHEMA.TABLE_CONSTRAINTS WHERE CONSTRAINT_NAME='accountlines_ibfk_1'|);
+ $sth->execute;
+ if ($sth->fetchrow_hashref) {
+ $dbh->do(q|
+ ALTER TABLE accountlines DROP FOREIGN KEY accountlines_ibfk_1;
+ |);
+ $dbh->do(q|
+ ALTER TABLE accountlines CHANGE COLUMN borrowernumber borrowernumber INT(11) DEFAULT NULL;
+ |);
+ $dbh->do(q|
+ ALTER TABLE accountlines ADD CONSTRAINT accountlines_ibfk_borrowers FOREIGN KEY (borrowernumber) REFERENCES borrowers (borrowernumber) ON DELETE SET NULL ON UPDATE CASCADE;
+ |);
+ }
+ SetVersion( $DBversion );
+ print "Upgrade to $DBversion done (Bug 21065 - Set ON DELETE SET NULL on accountlines.borrowernumber)\n";
+}
+
# SEE bug 13068
# if there is anything in the atomicupdate, read and execute it.