Name

LINE —

SYNOPSIS

DESCRIPTION

VARIABLE TYPE

Catalog variable

EXAMPLES

No examples are available at this time. We do consider this a problem and will try to supply some.

NOTES

AVAILABILITY

LINE is available in Interchange versions:

4.6.0-5.7.0 (git-head)

SOURCE

Interchange 5.7.0:

Source: lib/Vend/Payment/GoogleCheckout.pm
Line 490 (context shows lines 480-494 in googlecheckout():399)

if ($gcorequest eq 'post') {
 undef $gcorequest;
my $salestax = $::Values->{tax} || Vend::Interpolate::salestax() || '0.00';
my $shipmode = $::Values->{mv_shipmode} || charge_param('default_shipmode') || 'upsg';
my $shipping = $::Session->{final_shipping} || Vend::Ship::shipping($shipmode) \
 || charge_param('default_shipping') || '0.00';
my $handling = $::Values->{handlingtotal} || Vend::Ship::tag_handling() || '';
     $shipping += $handling;
my $shipmsg  = $::Session->{ship_message};
my $subtotal = $::Values->{amount} || Vend::Interpolate::subtotal();
my $ordertotal = charge_param('amount') || Vend::Interpolate::total_cost();
print "GCO".__LINE__.": tax=$salestax; shipping=$shipping, $::Values->{mv_shipping}; \
 shipmode=$shipmode\n";
my $defaultcountry = charge_param('defaultcountry');
my $defaultstate = charge_param('defaultstate');
my $country  = uc($actual->{country});
            $country  = $defaultcountry unless $country; 

Source: lib/Vend/Payment/GoogleCheckout.pm
Line 504 (context shows lines 494-508 in googlecheckout():399)

          $country  = $defaultcountry unless $country; 
my $state    = uc($actual->{state});
            $state    = $defaultstate unless $state;
my $zip_pattern = $actual->{zip} || $::Values->{zip};
            $zip_pattern =~ /(\S\S\S).*/;
            $zip_pattern = "$1"."*";
  my $taxshipping = 'false';
            $taxshipping = 'true' if (($country =~ /$::Variable->{TAXSHIPPING}/) \
 \
 or ($state =~ /$::Variable->{TAXSHIPPING}/) or ($alwaystaxshipping == '1'));
#::logDebug(":GCO:".__LINE__.": shipping=$::Session->{final_shipping}, \
 \
 $shipping; handling=$handling; taxshipping=$::Variable->{TAXSHIPPING}; \
 \
 country=$country; tx=$taxshipping");
my $stax = Vend::Interpolate::salestax();
print "GCO:".__LINE__.": stax=$stax; mvst=$::Values->{mv_salestax}, $::Values->{salestax}\n";
if ($salestax == '0') { 
        $taxrate = '0.00';
         }
 elsif ($taxshipping eq 'true') { 

Source: lib/Vend/Payment/SagePay.pm
Line 1195 (context shows lines 1185-1199 in sagepay():576)

      $::Values->{mv_payment} = "Processing card $result{CardInfo}";
       $CGI::values{mv_todo} = 'submit';

#::logDebug("SP".__LINE__.": request=$request; tds=$::Scratch->{tds}");
         
         }

   undef $request;
   $::Values->{request} = '';

::logDebug("SP".__LINE__.":result=".::uneval(\%result));

# Now extra logging for backup order and/or log of events
if ($logorder =~ /y|1/) {
#--- write the full basket and address to failsafe file 

Source: lib/Vend/Payment/Worldpay.pm
Line 505 (context shows lines 495-509 in worldpay():433)

   $::Scratch->{orderID} = $orderID;

# Disable order number creation in log_transaction and create it here instead, unless IC is old
if ($::Values->{inv_no}) {
  $purchaseID = $::Values->{inv_no};
    }
else{
# Use temporary number as the initial order number, and only replace upon \
 successful order completion
  $purchaseID = "$tmpPrefix".Vend::Interpolate::tag_counter("$wpcounter");
  $Vend::Session->{mv_order_number} = $::Values->{mv_order_number} = \
 $purchaseID if ($oldic == 1);# prevents early ICs setting order number prior to log_transaction
::logDebug("WP:".__LINE__.": purchaseID=$purchaseID; $Vend::Session->{mv_order_number}");
}
  
  my $cartId = $desc = $::Scratch->{purchaseID} = $purchaseID;


Source: lib/Vend/Payment/PaypalExpress.pm
Line 1147 (context shows lines 1137-1151 in paypalexpress():501)


$basket .= <<EOB;
Item = $itm->{code}, "$itm->{rpDescription}"; Price = $itm->{price}; \
 Qty = $itm->{quantity}; Subtotal = $itm->{subtotal} 
EOB

 my ($dorecurringbilling, $cntr);
 my $rpamount = $itm->{'rpamount_field'} || $itm->{'rpamount'};
  $nonrp = '1' if (! $rpamount); # only run Do request if have standard purchase as well
 if ($rpamount) {
#    $cntr++;
print "PP".__LINE__.": cntr=$cntr; initamount=$itm->{initAmount}; rpAmount=$itm->{rpAmount}; \
 trialAmount=$itm->{trialAmount}\n";  
         $dorecurringbilling = (
          SOAP::Data->name("BillingAgreementDetails" =>
          \SOAP::Data->value(
           SOAP::Data->name("BillingType" => 'RecurringPayments')->type(""),

AUTHORS

Interchange Development Group

SEE ALSO

DocBook! Interchange!