<html><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; line-break: after-white-space;" class=""><br class=""><div><br class=""><blockquote type="cite" class=""><div class="">On Mar 8, 2018, at 9:33 AM, IC <<a href="mailto:ic@tvcables.co.uk" class="">ic@tvcables.co.uk</a>> wrote:</div><br class="Apple-interchange-newline"><div class=""><div class=""><blockquote type="cite" class="">Hi Andy,<br class=""><br class="">This sounds like an issue with Safe; had you previously done an<br class="">AllowGlobal or similar on the old server that you did not replicate to the<br class="">new setup? The other way to fix this is to write a wrapper global usertag<br class="">or adjust the surrounding ITL to have the [data] tag called as a parse-<br class="">level construct instead of in a [perl] or [calc] block.<br class=""><br class="">David<br class=""></blockquote><br class="">Hi David,<br class=""><br class="">It should be identical to the old server, same interchange.cfg and catalog.cfg and same IC version just newer OS etc<br class=""><br class="">I don't quite understand how to move forward with a global usertag for this, could you elaborate please?<br class=""><br class="">Thanks,<br class="">Andy.<br class=""></div></div></blockquote><br class=""></div><div>You’d have to wrap up the logic that you’re currently dong in ITL into something like this:</div><div><br class=""></div><div>interchange/code/UserTag/foo.tag:</div><div>UserTag foo Routine <<</div><div>sub {</div><div> my $content = ‘';</div><div> # blah blah blah; everything in the [calc] or [perl] block</div><div> $content .= $::Tag->data({…});</div><div> # blah blah blah</div><div> return $content;</div><div>}</div><div>EOF</div><div><br class=""></div>Then calling in the page like:<div class=""><br class=""></div><div class="">[foo]</div><div class=""><br class=""></div><div class="">Before you did that, you should also make sure that a normal [data] interpolation works as expected in the content; you may be able to so something like:</div><div class=""><br class=""></div><div class="">[tmp data_result][data …][/tmp]</div><div class=""><br class=""></div><div class="">[perl]</div><div class=""> # blah blah blah</div><div class=""> return $Scratch->{data_result};</div><div class="">[/perl]</div><div class=""><br class=""></div><div class="">If that works, it’s like an issue with the AllowGlobal (or also could be an issue with Safe using different versions of Perl, like changes in which symbols we need to export in Safe::Hole.)</div><div class=""><br class=""></div><div class="">Best,</div><div class=""><br class=""></div><div class="">David<br class=""><div class="">
<div style="color: rgb(0, 0, 0); letter-spacing: normal; orphans: auto; text-align: start; text-indent: 0px; text-transform: none; white-space: normal; widows: auto; word-spacing: 0px; -webkit-text-stroke-width: 0px; word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;" class="">--<br class="">David Christensen<br class="">End Point Corporation<br class=""><a href="mailto:david@endpoint.com" class="">david@endpoint.com</a><br class="">785-727-1171<br class=""><br class=""><br class=""></div>
</div>
<br class=""></div></body></html>