@@ -, +, @@ do not match --- Koha/EDI.pm | 10 ++++++++++ admin/edi_ean_accounts.pl | 4 ++-- installer/data/mysql/atomicupdate/bug_21417.perl | 7 +++++++ installer/data/mysql/kohastructure.sql | 2 +- .../prog/en/modules/admin/edi_ean_accounts.tt | 1 + 5 files changed, 21 insertions(+), 3 deletions(-) create mode 100644 installer/data/mysql/atomicupdate/bug_21417.perl --- a/Koha/EDI.pm +++ a/Koha/EDI.pm @@ -81,6 +81,16 @@ sub create_edi_order { my $ean_obj = $schema->resultset('EdifactEan')->search($ean_search_keys)->single; + # If no branch specific each can be found, look for a default ean + unless ($ean_obj) { + $ean_obj = $schema->resultset('EdifactEan')->search( + { + ean => $ean, + branchcode => undef, + } + )->single; + } + my $dbh = C4::Context->dbh; my $arr_ref = $dbh->selectcol_arrayref( 'select id from edifact_messages where basketno = ? and message_type = \'QUOTE\'', --- a/admin/edi_ean_accounts.pl +++ a/admin/edi_ean_accounts.pl @@ -68,7 +68,7 @@ else { if ($change) { $schema->resultset('EdifactEan')->find($id)->update( { - branchcode => scalar $input->param('branchcode'), + branchcode => scalar $input->param('branchcode') || undef, description => scalar $input->param('description'), ean => scalar $input->param('ean'), id_code_qualifier => scalar $input->param('id_code_qualifier'), @@ -78,7 +78,7 @@ else { else { my $new_ean = $schema->resultset('EdifactEan')->new( { - branchcode => scalar $input->param('branchcode'), + branchcode => scalar $input->param('branchcode') || undef, description => scalar $input->param('description'), ean => scalar $input->param('ean'), id_code_qualifier => scalar $input->param('id_code_qualifier'), --- a/installer/data/mysql/atomicupdate/bug_21417.perl +++ a/installer/data/mysql/atomicupdate/bug_21417.perl @@ -0,0 +1,7 @@ +$DBversion = 'XXX'; # will be replaced by the RM +if( CheckVersion( $DBversion ) ) { + $dbh->do( "ALTER TABLE edifact_ean MODIFY branchcode VARCHAR(10) NULL DEFAULT NULL" ); + + SetVersion( $DBversion ); + print "Upgrade to $DBversion done (Bug XXXXX - description)\n"; +} --- a/installer/data/mysql/kohastructure.sql +++ a/installer/data/mysql/kohastructure.sql @@ -3735,7 +3735,7 @@ DROP TABLE IF EXISTS edifact_ean; CREATE TABLE IF NOT EXISTS edifact_ean ( ee_id int(11) NOT NULL AUTO_INCREMENT PRIMARY KEY, description VARCHAR(128) NULL DEFAULT NULL, - branchcode VARCHAR(10) NOT NULL REFERENCES branches (branchcode), + branchcode VARCHAR(10) NULL DEFAULT NULL REFERENCES branches (branchcode), ean VARCHAR(15) NOT NULL, id_code_qualifier VARCHAR(3) NOT NULL DEFAULT '14', CONSTRAINT efk_branchcode FOREIGN KEY ( branchcode ) REFERENCES branches ( branchcode ) --- a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/edi_ean_accounts.tt +++ a/koha-tmpl/intranet-tmpl/prog/en/modules/admin/edi_ean_accounts.tt @@ -71,6 +71,7 @@