path: root/etc/log_transaction

#### begin order logging of transaction ID [value mv_transaction_id] #####
[tmp transaction_record]

[comment]
	First we dump the order to a file to track closely if something goes wrong.
[/comment]
[write-relative-file file="orders/session/[value mv_transaction_id]/[data session id].dump" interpolate=1][dump][/write-relative-file]

[comment]
	Now we initialize some stuff. We set the DB to write mode, and set
	some variables to known values.
[/comment]

[tmpn auto_create][/tmpn]
[loop list="transactions orderline inventory userdb"]
[flag type=write table="[loop-code]"]
[/loop]
Total order: [total-cost]
Payment processing...payment_method=[value mv_order_profile]
[set do_payment][/set]
[set do_invoice][/set]

[try]

[comment]
	Handling of payment certificates. We set the temporary total, and the
	amount remaining to be paid by any other payment method.

	At the top, we initialize some variables.
[/comment]

	[tmp tmp_total][total-cost noformat=1][/tmp]
	[set charge_total_message][/set]
	[set pay_cert_total][/set]
	[tmp tmp_remaining][total-cost noformat=1][/tmp]
	[calc]
		$Tag->tmp('certs_to_use') ;
		if($Values->{use_pay_cert}) {
			my @things = split /\0/, $Values->{use_pay_cert};
			$Scratch->{certs_to_use} = join ",", @things;
		}
		elsif($Values->{mv_order_profile} eq 'pay_cert') {
			$Scratch->{certs_to_use} = $Scratch->{pay_cert_code};
		}
		return;
	[/calc]

	[if scratch certs_to_use]
		Redeeming payment certs: [scratch certs_to_use]
		[seti tmp_remaining][pay-cert-redeem
								certs="[scratch certs_to_use]"
								die=1
							][/seti]
		[if scratch tmp_remaining eq '']
			[calc]
				die errmsg("Gift cert authorization failed.") . "\n";
			[/calc]
		[/if]
		Amount remaining: [scratch tmp_remaining]
	[/if]
[/try]

[catch error-set="Payment process" error-scratch="mv_route_failed"]
	There was an error accepting payment: $ERROR$
[/catch]

[goto if="[scratch mv_route_failed]"]

[try]
[if value mv_order_profile eq pay_cert]
	[if scratch tmp_remaining == 0]
		Fully paid by payment cert.
	[else]
		Not enough value on payment cert.
		[calc]
			die("Not enough value on payment certificates.");
		[/calc]
	[/else]
	[/if]
[elsif scratch tmp_remaining == 0]
	Fully paid by payment cert.
[/elsif]
[elsif value mv_order_profile eq postal]
	[comment]Sales order only[/comment]
	Payment: [value name=mv_payment set="Check or Money Order (will call)"]
[/elsif]
[elsif value mv_order_profile eq purchase_order]
	limit=[scratch tmp_climit]
	total=[data session latest_total]
	[perl userdb]
		return unless length($Scratch->{tmp_climit});
		my $limit = $Tag->data( 'userdb', 'credit_limit', $Session->{username});
		my $minus	= $Session->{latest_total};
		$minus = -$minus;
		my $expect	= $limit + $minus;
		Log("Access to userdb worked... limit=$limit minus=$minus expect=$expect");
		$Tag->data(
						'userdb',
						'credit_limit',
						$Session->{username},
						{
							value => $minus,
							increment => 1,
						}
					);
		my $remain = $Tag->data( 'userdb', 'credit_limit', $Session->{username});
		Log("Write to userdb worked...expect='$expect' remain='$remain'");
		if ($expect ne $remain) {
			die errmsg(
				"error setting credit limit! Limit was %s, subtract %s, got %s, expect %s.\n",
				$limit,
				$Session->{latest_total},
				$remain,
				$expect,
				);
		}
		$Scratch->{credit_limit} = $remain;
		return "Credit limit was=$limit\nCredit limit now=$remain\n";
	[/perl]
[/elsif]
[elsif value mv_order_profile eq online_check]
	[if variable MV_ONLINE_CHECK_MODE]
	[calc]
		return if $Scratch->{tmp_total} == $Scratch->{tmp_remaining};
		my $msg = sprintf "Your checking account was charged %.2f", $Scratch->{tmp_remaining};
		$Scratch->{pay_cert_total} = $Scratch->{tmp_total} - $Scratch->{tmp_remaining};
		$Scratch->{charge_total_message} = $msg;
		return "Check will be written for $Scratch->{tmp_remaining}";
	[/calc]
		Online check with payment mode=[var MV_ONLINE_CHECK_MODE]
		[tmp name="charge_succeed"][charge route="[var MV_ONLINE_CHECK_MODE]" amount="[scratch tmp_remaining]" order_id="[value mv_transaction_id]" method="[var MV_ONLINE_CHECK_METHOD]"][/tmp]
		[if scratch charge_succeed]
		[then]
			[set do_invoice]1[/set]
			[set do_payment]1[/set]
			Real-time online check succeeded. ID=[data session payment_id] amount=[scratch tmp_remaining]
		[/then]
		[else]
			Real-time online check FAILED. Reason: [data session payment_error]
			[calc]
				for(qw/
						charge_total_message
						pay_cert_total
				/)
				{
					delete $Scratch->{$_};
				}
				die errmsg(
						"Real-time online check failed. Reason: %s\n",
						errmsg($Session->{payment_error}),
					);
			[/calc]
		[/else]
		[/if]
	[else]
		[set do_invoice]1[/set]
	[/else]
	[/if]
[/elsif]
[elsif value mv_order_profile eq cod]
	[comment] do nothing [/comment]
[/elsif]
[elsif value mv_order_profile eq bank_transfer]
	[comment] do nothing [/comment]
[/elsif]
[elsif variable MV_PAYMENT_MODE]
	[calc]
		return if $Scratch->{tmp_total} == $Scratch->{tmp_remaining};
		my $msg = sprintf "Your credit card was charged %.2f", $Scratch->{tmp_remaining};
		$Scratch->{pay_cert_total} = $Scratch->{tmp_total} - $Scratch->{tmp_remaining};
		$Scratch->{charge_total_message} = $msg;
		return "Credit card will be charged $Scratch->{tmp_remaining}";
	[/calc]
	Charging with payment mode=[var MV_PAYMENT_MODE]
	[tmp name="charge_succeed"][charge route="[var MV_PAYMENT_MODE]" amount="[scratch tmp_remaining]" order_id="[value mv_transaction_id]"][/tmp]
	[if scratch charge_succeed]
	[then]
	[set do_invoice]1[/set]
	[set do_payment]1[/set]
	Real-time charge succeeded. ID=[data session payment_id] amount=[scratch tmp_remaining]
	[/then]
	[else]
	Real-time charge FAILED. Reason: [data session payment_error]
	[calc]
		for(qw/
				charge_total_message
				pay_cert_total
		/)
		{
			delete $Scratch->{$_};
		}
		die errmsg(
				"Real-time charge failed. Reason: %s\n",
				errmsg($Session->{payment_error}),
			);
	[/calc]
	[/else]
	[/if]
[/elsif]

[else]
	Offline credit card [value mv_credit_card_type] [value mv_credit_card_reference].
	Payment: [value name=mv_payment set="credit_card"]
[/else]
[/if]

[calc]
	 $Values->{mv_payment} =~ s/\%c/$Values->{mv_credit_card_type}/g;
	 return;
[/calc]

[/try]

[catch error-scratch="mv_route_failed"]
	There was an error accepting payment: $ERROR$
	[if scratch pay_certs_to_capture]
		voiding pay_cert auth, void id:[pay-cert tid="[scratch pay_certs_to_capture]" void=1]
	[/if]
[/catch]

[goto if="[scratch mv_route_failed]"]

[comment]
	Now we have accepted payment, update the order number.
[/comment]

Set order number in values: [value
						name=mv_order_number
						set="[counter 
								name=`	
										$Session->{current_route}{counter_name}
										|| $Session->{current_route}{counter}
										|| $Config->{OrderCounter}
									`
								sql=`$Session->{current_route}{sql_counter}`
								start=`$Session->{current_route}{first_order_number}`
								date=`$Session->{current_route}{date_counter}`
							]"
					]
Set order number in session: [calc]
						$Session->{mv_order_number} = $Values->{mv_order_number};
					[/calc]

[if type=explicit compare=`
		if($Session->{admin} and $Values->{order_desk_entry}) {
			## This is ordered from admin, don't login
			## We scrub that order_desk_entry value below if not admin
			return 0;
		}
		delete $Values->{order_desk_entry};
		return 1 if ! $Session->{logged_in} or $Session->{login_table} ne 'userdb';
		return 0;
		`]
[try]
	[if session logged_in]
		[userdb function=logout clear=0 clear_cart=0]
	[/if]
	[tmp auto_create]1[/tmp]
	[calcn]
		my $pass = '';
		my @lets = ('A'..'Z', 'a'..'z', '0'..'9');
		$pass .= $lets[ rand @lets ]
			while length($pass) < 8;
		$Tag->tmpn('tmp_pass', $pass);
		return;
	[/calcn]
    [if type=explicit compare=|
        [userdb
            function=new_account
            assign_username=1
            password='[scratch tmp_pass]'
            verify='[scratch tmp_pass]'
        ]
        |]
        [seti mv_autocreate]
            mv_username=[data session username]
            mv_password=[scratch tmp_pass]
        [/seti]
        Auto-created user [seti auto_username][data session username][/seti][scratch auto_username].
    [else]
    Auto-create of user failed. Reason: [data session failure]
    [perl] die errmsg("Auto-create of user failed."); [/perl]
    [/else]
    [/if]
[/try]
[catch error-set="Customer record creation" error-scratch="mv_route_failed"]
There was an error adding you to the customer table.
[/catch]

[/if]

[if value order_desk_entry]
[try]
	[tmpn tmp_compare][/tmpn]
	[tmp tmp_username][data table=userdb col=usernick key="[value customer_id]"][/tmp]
	[if !scratch tmp_username]
		[calcn]
			my $pass = '';
			my @lets = ('A'..'Z', 'a'..'z', '0'..'9');
			$pass .= $lets[ rand @lets ]
				while length($pass) < 8;
			$Tag->tmpn('tmp_pass', $pass);
			return;
		[/calcn]
		[tmp hide_status][userdb
							function=new_account
							no-login=1
							assign-username=1
							password='[scratch tmp_pass]'
							verify='[scratch tmp_pass]'
							profile=autocreate
		][/tmp]
		[tmp tmp_username][data session auto_created_user][/tmp]
		[if scratch hide_status]
			Auto-created user [scratch tmp_username], no login.
			[userdb function=save scratch=NONE username="[scratch tmp_username]" hide=1]
		[/if]
	[/if]
	[value name=usernick set="[scratch tmp_username]" hide=1]
	[value name=customer_id set="[scratch tmp_username]" hide=1]
	[if !value customer_id]
	Auto-create of user failed. Reason: [data session failure]
	[perl] die errmsg("Auto-create of user failed. Reason: %s", $Session->{failure}) [/perl]
	[/if]
[/try]
[catch error-set="Customer record creation" error-scratch="mv_route_failed"]
There was an error adding to the customer table.
[/catch]

[/if]


[comment][perl] Log("Starting report."); [/perl][/comment]

[try]

[if value mv_same_billing]
[loop list="lname fname company address1 address2 city state zip country"]
[tmp tmp_[loop-code]][/tmp]
[/loop]
[else]
[loop list="lname fname company address1 address2 city state zip country phone"]
[tmp tmp_[loop-code]][value name=b_[loop-code] filter="strip mac"][/tmp]
[/loop]
[/else]
[/if]

[if value order_desk_entry]
	[tmp tmp_username][value customer_id][/tmp]
	[tmp tmp_source][value name=salesperson default=ORDER_DESK][/tmp]
	Order desk entry, set next page to: [cgi name=mv_nextpage set="admin/order_view"]
[else]
	[tmp tmp_username][data session username][/tmp]
	[tmp tmp_source][data session source][/tmp]
[/else]
[/if]

[seti total_cost][if scratch pay_cert_total][scratch tmp_remaining][else][total-cost noformat=1][/else][/if][/seti]
Add main order [value mv_order_number] to transactions:
[import table=transactions type=LINE continue=NOTES no-commit=1]
code: [value mv_order_number]
store_id: __STORE_ID__
order_number: [value mv_order_number]
session: [data session id]
username: [scratch tmp_username]
shipmode: [value mv_shipmode] ([shipping-desc])
shipping: [shipping noformat=1]
nitems: [nitems]
subtotal: [subtotal noformat=1]
handling: [handling noformat=1]
salestax: [salestax noformat=1]
total_cost: [scratch total_cost]
fname: [value filter=strip name=fname]
lname: [value filter=strip name=lname]
company: [value filter=strip name=company]
address1: [value filter=strip name=address1]
address2: [value filter=strip name=address2]
city: [value filter=strip name=city]
state: [value name=state filter=strip]
zip: [value name=zip filter=word]
country: [value country]
email: [value name=email filter=strip]
phone_day: [value filter=strip name=phone_day]
phone_night: [value filter=strip name=phone_night]
b_company: [scratch tmp_company]
b_fname: [scratch tmp_fname]
b_lname: [scratch tmp_lname]
b_address1: [scratch tmp_address1]
b_address2: [scratch tmp_address2]
b_city: [scratch tmp_city]
b_state: [scratch tmp_state]
b_zip: [scratch tmp_zip]
b_country: [scratch tmp_country]
b_phone: [scratch tmp_phone]
payment_method: [value mv_payment]
payment_mode: [data session payment_mode]
avs: [calc] ($Session->{payment_result} || {})->{'pop.avs_code'}; [/calc]
order_id: [data session payment_id]
auth_code: [calc] ($Session->{payment_result} || {})->{'pop.auth-code'}; [/calc]
tracking_number:
order_date: [value name=order_date set="[tag time]%Y%m%d %H:%M:%S[/tag]"]
order_ymd: [value name=order_date set="[tag time]%Y%m%d[/tag]"]
order_wday: [value name=order_wday set="[tag time]%u[/tag]"]
status: pending
deleted: 0
archived: 0
complete: 0
comments: [value filter=mac name=gift_note]
affiliate: [scratch tmp_source]
campaign: [value campaign]
parent: __PARENT__
po_number: [value filter=strip name=po_number] 
[if scratch pay_cert_total]pay_cert_total: [scratch pay_cert_total]
pay_cert_ord_total: [total-cost noformat=1][/if]
[/import]
[/try]

[catch error-set="log_orderline_table" error-scratch="mv_route_failed"]
There was an error adding the order to the transaction table. It was: $ERROR$
[/catch]

[goto if="[scratch mv_route_failed]"]

[try]
[if value mv_payment_mode eq purchase_order]
set credit_limit: [seti credit_limit][data
		table=userdb
		col=credit_limit
		key="[data session username]"
		value="-[scratch total_cost]"
		increment=1
	][/seti]
[/if]

[comment]Past transactions entry.[/comment]

[set download_present][/set]

[item-list]Added [item-code] to orderline:
[import table=orderline type=LINE continue=NOTES no-commit=1]
code: [value mv_order_number]-[item-increment]
store_id: __STORE_ID__
order_number: [value mv_order_number]
session: [data session id]
username: [scratch tmp_username]
shipmode: [item-modifier mv_shipmode]
sku: [item-code]
options: [item-filter mac strip][item-options report=1 type=value][/item-filter]
quantity: [item-quantity]
price: [item-discount-price noformat]
subtotal: [item-discount-subtotal noformat]
taxable: [if-item-data !products nontaxable]1[/if-item-data]
mv_mi: [item-modifier mv_mi]
mv_si: [item-modifier mv_si]
mv_mp: [item-modifier mv_mp]
order_date: [value order_date]
affiliate: [scratch tmp_source]
campaign: [value campaign]
status: pending
description: [filter mac][item-description][/filter]
[/import]

[if variable DECREMENT_INVENTORY]Inventory of [item-code] now:
	[data
		table=inventory
		col=quantity
		key="[item-code]"
		increment=1
		value="-[item-quantity]"
	]
[/if]

[comment] Handle purchase of payment certificates [/comment]
[if-item-field gift_cert]
	Issue payment cert=[pay-cert
			issue=1
			no-cookie=1
			amount="[item-subtotal noformat]"
			expires="__GIFT_CERT_PERIOD__"
			item-pointer="[item-param mv_ip]"
	]
[/if-item-field]

[comment] Handle downloadables [/comment]
[if-item-field download]
	[if value mv_payment =~ /credit.*card/i]
		[set download_present]1[/set]
		[userdb
				function=set_file_acl
				mode="expire 7 days"
				location="[item-code]"
		]
	[/if]
[/if-item-field]

[/item-list]

[/try]

[catch
	error-set="log_orderline_table"
	error-scratch="mv_route_failed"
	]
There was an error adding the items to the orderline table: $ERROR$
[/catch]

[goto if="[scratch mv_route_failed]"]

[if variable TRANSACTION_ACCOUNTING_SYSTEM]
[try]
Realtime: [scratch realtime]
Add to SQL-Ledger: [accounting function=create_order_entry do_invoice="[scratch do_invoice]" do_payment="[scratch do_payment]"]
[/try]

[catch
	error-set="log_accounting_xfer"
	error-scratch="mv_route_failed"
	]
There was an error transferring accounting information: $ERROR$
[/catch]

[goto if="[scratch mv_route_failed]"]
[/if]

[try]
[tmpn tmp_user_save]NO[/tmpn]
[tmpn tmp_save][/tmpn]
[if value order_desk_entry]

	[calc]
		## Set this so that we can go to admin/order_view[/comment]
		$CGI->{order} = $Values->{mv_order_number};

		my @funcs;
		#### Commented out until separate functions built
		#for(qw/shipping billing/) {
		#	next if $Values->{"no_save_$_"};
		#	push @funcs, "set_$_";
		#	$Scratch->{tmp_user_save} = '';
		#}
		@funcs = 'save' unless $Values->{no_save};
		$Scratch->{tmp_save} = join(" ", @funcs);
		my $msg = errmsg("Order %s entered for customer %s",
						 $Values->{mv_order_number},
						 $Scratch->{tmp_username},
						);
		$Tag->warnings($msg);
		return;
	[/calc]
	[seti tmp_user_save]
	[loop list="[scratch tmp_save]"]
			[loop-code]=[userdb
							function="[loop-code]"
							profile=default
							username="[scratch tmp_username]"
							scratch=NONE
						] [/loop]
	[/seti]
	[calc]
		$Scratch->{tmp_user_save} =~ s/^\s+//;
		$Scratch->{tmp_user_save} =~ s/\s+$//;
		$Scratch->{tmp_user_save} =~ s/\s+/ /g;
		return;
	[/calc]

[elsif type=explicit compare="[userdb save]"]
[tmpn tmp_user_save]SUCCESS[/tmpn]
[/elsif][/if]
Saved user information to user database: [scratch tmp_user_save]
[if scratch auto_create]
	Logout auto-created user: [userdb function=logout clear=0 clear_cart=0]
	Clear auto-created user's usernick: [calc] delete $Scratch->{usernick}; return 1; [/calc]
[/if]
[/try]

[catch
	error-set="log_userdb_table"
	error-scratch="mv_route_failed"
	]
There was an error updating the user information: $ERROR$
[/catch]
[goto if="[scratch mv_route_failed]"]

[comment]Past add data entry. Capture payment cert if necessary.[/comment]

[if scratch pay_certs_to_capture]
	[pay-cert-redeem capture=1]
[/if]

[comment] 
	Log order to directory suitable for capture by outside process.
[/comment] 
[order-logger]

[comment]Past all transaction log.[/comment]
[/tmp][perl]
	my $out = $Scratch->{transaction_record};
	$out =~ s/^\s+//;
	$out =~ s/^\s+//mg;
	$out =~ s/\s+$//mg;
	$out =~ s/[\r\n]+/\n/;
	$out =~ s/:\n(\d+|yes|succe\w+|fail\w+)\n/: $1\n/ig;
	return $out;
[/perl]
#### end order logging of tid=[value mv_transaction_id], order_number=[value mv_order_number] #####