COMPANY — specify company or entity name
Interchange 5.9.0:
Source: lib/Vend/Util.pm
Line 1253 (context shows lines 1243-1257 in readin():1165)
if(-f "$dir/.autoload") { my $status = ::interpolate_html( readfile("$dir/.autoload") ); $status =~ s/\s+//g; undef $level if $status; } $gate = check_gate($file,$dir) if defined $level; } if( defined $level and ! check_security($file, $level, $gate) ){ my $realm = $::Variable->{COMPANY} || $Vend::Cat; if(-f "$try/violation$suffix") { $fn = "$try/violation$suffix"; } else {
Source: lib/Vend/Payment/iTransact.pm
Line 222 (context shows lines 212-226 in itransact():217)
} package Vend::Payment; sub itransact { my ($opt, $amount) = @_; my $user = $opt->{id} || charge_param('id'); my $company = $opt->{company} || "$::Variable->{COMPANY} Order"; my %actual; if($opt->{actual}) { %actual = %{$opt->{actual}};
Source: lib/Vend/Payment/Protx2.pm
Line 569 (context shows lines 559-573 in protx():525)
::logError("%s: using logdir %s instead of disallowed %s", , \ $default_logdir, $logdir); $logdir = $default_logdir; } $logdir = Vend::File::make_absolute_file($logdir); my $logzero = charge_param('logzero') || 'no'; my $available = charge_param('available') || 'no'; my $logempty = $::Values->{logempty} || charge_param('logempty') || 'no'; my $double_pay = $::Values->{double_pay} || charge_param('double_pay') || 'no'; my $findcard = charge_param('find_card_type') || 'no'; # yes for \ auto, page for input, no for IC my $description = charge_param('description') || $::Variable->{COMPANY}; $description = substr($description,0,99); my $applyAVSCV2 = $::Values->{applyavscv2} || charge_param('applyavscv2') || '0'; # if payment is logged as made, raise an error message and exit
Source: lib/Vend/Payment/SagePay.pm
Line 1133 (context shows lines 1123-1137 in sagepay():576)
for my $line (split /\r\n/, $page) { $result{VPSTxID} = $1 if ($line =~ /VPSTxId=(.*)/i); $result{Authorised} = $1 if ($line =~ /^Authorised=(.*)/i); $result{TxAuthNo} = $1 if ($line =~ /VPSAuthCode=(.*)/i); } #::logDebug("SP"..": checkstatus,result=$result{Authorised}; authcode=$result{VPSAuthCode}; \ vtxcode=$vendorTxCode"); unless ($result{Authorised} =~ /YES/i) { my $unknown = <<EOF; ATTENTION: our payment processor has met an unexpected problem and we do not know if payment has been taken or not. Please check back with $::Variable->{COMPANY} on $::Variable->{PHONE}, \ quoting this important reference point: <p> VendorTxCode: $::Session->{sagepay}{vendorTxCode} <p>