<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:m="http://schemas.microsoft.com/office/2004/12/omml" xmlns="http://www.w3.org/TR/REC-html40"><head><meta http-equiv=Content-Type content="text/html; charset=us-ascii"><meta name=Generator content="Microsoft Word 15 (filtered medium)"><style><!--
/* Font Definitions */
@font-face
{font-family:"Cambria Math";
panose-1:2 4 5 3 5 4 6 3 2 4;}
@font-face
{font-family:Calibri;
panose-1:2 15 5 2 2 2 4 3 2 4;}
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:11.0pt;
font-family:"Calibri",sans-serif;}
a:link, span.MsoHyperlink
{mso-style-priority:99;
color:#0563C1;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{mso-style-priority:99;
color:#954F72;
text-decoration:underline;}
span.EmailStyle17
{mso-style-type:personal-compose;
font-family:"Calibri",sans-serif;
color:windowtext;}
.MsoChpDefault
{mso-style-type:export-only;}
@page WordSection1
{size:8.5in 11.0in;
margin:1.0in 1.0in 1.0in 1.0in;}
div.WordSection1
{page:WordSection1;}
--></style><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="1026" />
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1" />
</o:shapelayout></xml><![endif]--></head><body lang=EN-US link="#0563C1" vlink="#954F72"><div class=WordSection1><p class=MsoNormal><span lang=NL>Hi,<o:p></o:p></span></p><p class=MsoNormal><span lang=NL><o:p> </o:p></span></p><p class=MsoNormal>I’m trying to run an Interchange site using interchange-master and I’m running into issues trying to make an order.<o:p></o:p></p><p class=MsoNormal>The site is using a pretty standard etc/log_transaction file. <o:p></o:p></p><p class=MsoNormal>Finalizing the order results in the following error:<o:p></o:p></p><p class=MsoNormal>“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.”<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>This happens for transaction and orderline tables.<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>Now if I change the lib/VendTable/Common.pm with the following diff then it does pass:<o:p></o:p></p><p class=MsoNormal>1080c1080<o:p></o:p></p><p class=MsoNormal>< open(IN, "+<", \$infile)<o:p></o:p></p><p class=MsoNormal>---<o:p></o:p></p><p class=MsoNormal>> open(IN, '+<', $infile)<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>For reference: <a href="https://github.com/interchange/interchange/blob/master/lib/Vend/Table/Common.pm">https://github.com/interchange/interchange/blob/master/lib/Vend/Table/Common.pm</a><o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>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.<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>Now after making this change it does pass, but then I end up with the next error:<o:p></o:p></p><p class=MsoNormal>“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.”<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>This seems to be because the following set_row code is not passing on the correct data:<o:p></o:p></p><p class=MsoNormal><span style='font-family:"Courier New"'> NOTES => <<EndOfRoutine,<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Courier New"'> while (<IN>) {<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Courier New"'> chomp;<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Courier New"'> \@fields = ();<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Courier New"'> s/\\r?\\n\\r?\\n((?s:.)*)//<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Courier New"'> and \$fields[$idx] = \$1;<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Courier New"'> while(s!($codere):[ \\t]*(.*)\\n?!!) {<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Courier New"'> next unless defined \$field_hash->{\$1};<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Courier New"'> \$fields[\$field_hash->{\$1}] = \$2;<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Courier New"'> }<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Courier New"'> $index<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Courier New"'> $numeric_guess<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Courier New"'> \$out->set_row(\@fields);<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Courier New"'> $numeric_clean<o:p></o:p></span></p><p class=MsoNormal><span style='font-family:"Courier New"'> }<o:p></o:p></span></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>Does anybody have any good ideas/pointers why this might be happening?<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>CU,<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal>Gert<o:p></o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><o:p> </o:p></p><p class=MsoNormal><o:p> </o:p></p></div></body></html>