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 {

}

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

      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+$//;