Handle bank_transfer in log_transaction

1 files changed, 605 insertions, 0 deletions

diff --git a/etc/log_transaction b/etc/log_transaction
new file mode 100644
index 0000000..5cb8294
--- /dev/null
+++ b/etc/log_transaction
@@ -0,0 +1,605 @@
+#### 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 uc"]
+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] #####