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 {

     $sth = $dbh->prepare("UPDATE transactions SET txtype='GCO - $gco_financial_state', \
 gco_fulfillment_state='$gco_fulfillment_state',gco_timestamp='$gco_timestamp' \
 WHERE gco_order_number='$gco_order_number'");
         }
     $sth->execute() or die errmsg("Cannot update transactions tbl for \
 gco '$gco_order_number'") unless defined $::Values->{mv_order_number};
#::logDebug(":GCO:".__LINE__.": gco_finstate=$gco_financial_state; txtype=$txtype; \
 neworderno=$new_order_no; pID=$purchaseID");     
     }

my ($mailout, $finstatus);

if ($gco_financial_state =~ /PAYMENT_DECLINED/i) {
      $mailout = <<EOM;
Card payment for Google Order number $gco_order_number from $::Variable->{COMPANY}, \
 $order_total, was
declined by your bank. Please use an alternative means of payment if you \
 wish to proceed with this order.
EOM
  $finstatus = "declined by your bank";
  }

if ($gco_financial_state =~ /PAYMENT_DECLINED/i) {
    $mailout = <<EOM;
Card payment for Google Order number $gco_order_number from $::Variable->{COMPANY}, \
 \
 $order_total, was
declined by your bank. Please use an alternative means of payment if you \
 \
 wish to proceed with this order.
EOM
$finstatus = "declined by your bank";
}
elsif ($gco_financial_state =~ /CANCELLED/i) {
    $mailout = <<EOM;
Google Order number $gco_order_number from $::Variable->{COMPANY} has been cancelled.
EOM
  $finstatus = "cancelled";
  }

}

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}};

    ::logError("%s: using logdir %s instead of disallowed %s", __PACKAGE__, \
 $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

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".__LINE__.": 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>

      key => $record->{category},
      title => $record->{category},
      description => undef,
      url => $Tag->area({ search => join "\n", @parms }),
    };
  }
}

if(! $ptitle) {
  $ptitle = $Scratch->{page_title};
  $ptitle =~ s/(\s*\W+\s*)?$Variable->{COMPANY}(\s*\W+\s*)?//;
}

$ptitle =~ s/^\s+//;
$ptitle =~ s/\s+$//;