[ic] There was an error adding the order to the transaction table. It was: Not a GLOB reference at /opt/interchange-master/lib/Vend/Table/Common.pm line 1080.

[Gert van der Spoel]

Hi,

 

I'm trying to run an Interchange site using interchange-master and I'm
running into issues trying to make an order.

The site is using a pretty standard etc/log_transaction file. 

Finalizing the order results in the following error:

"There was an error adding the order to the transaction table. It was: Not a
GLOB reference at /opt/interchange-master/lib/Vend/Table/Common.pm line
1080."

 

This happens for transaction and orderline tables.

 

Now if I change the lib/VendTable/Common.pm with the following diff then it
does pass:

1080c1080

<                                             open(IN, "+<", \$infile)

---

>                                             open(IN, '+<', $infile)

 

For reference:
https://github.com/interchange/interchange/blob/master/lib/Vend/Table/Common
.pm

 

I don't know if this has anything to do with the newer Perl version or that
there is some other glitch somewhere. As I've kinda been out of Perl for the
past 10 years, I hope someone here with more recent Perl experience could
shine a light on this.

 

Now after making this change it does pass, but then I end up with the next
error:

"import into orderline failed: DBD::mysql::st execute failed: Column
\'store_id\' cannot be null at /opt/interchange-master/lib/Vend/Table/DBI.pm
line 1593, <IN> chunk 2."

 

This seems to be because the following set_row code is not passing on the
correct data:

     NOTES => <<EndOfRoutine,

        while (<IN>) {

            chomp;

                \@fields = ();

                s/\\r?\\n\\r?\\n((?s:.)*)//

                     and \$fields[$idx] = \$1;

                while(s!($codere):[ \\t]*(.*)\\n?!!) {

                     next unless defined \$field_hash->{\$1};

                     \$fields[\$field_hash->{\$1}] = \$2;

                }

                $index

                $numeric_guess

            \$out->set_row(\@fields);

                $numeric_clean

        }

 

Does anybody have any good ideas/pointers why this might be happening?

 

CU,

 

Gert

 

 

 

 

 

 

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://www.icdevgroup.org/pipermail/interchange-users/attachments/20180327/2fbac362/attachment.html>