[ic] CC Info in Transactions, but not in userdb

["Russ Mann" <tech@khouse.org>]

Dear List,

Encrypted CC Info is storing in transactions, but not in the userdb. This is
what I've done:

In etc/log_transaction, this is under the import table line:

mv_credit_card_type: [value name=mv_credit_card_type]
mv_credit_card_exp_month: [value name=mv_credit_card_exp_month]
mv_credit_card_exp_year: [value name=mv_credit_card_exp_year]
mv_credit_card_xref: [value name=mv_credit_card_xref]
mv_credit_card_info: [value filter=mac name=mv_credit_card_info]

And it works - the transactions DB has all this info in it.  However, I also
have this, but it doesn't work.  Any ideas?:

etc/log_entry

Update userdb: [perl table=userdb]
	my $id = $Values->{username} = $Values->{customer_id};
@always = qw/
				company
				fname
				lname
				address1
				address2
				city
				state
				zip
				country
				phone_day
				mv_shipmode
				mv_credit_card_type
				mv_credit_card_exp_month
				mv_credit_card_exp_year
				mv_credit_card_xref
				mv_credit_card_info
				email
				phone_night
				fax_order
				email_copy
				mail_list
/;
@sometimes = qw/
				password
				b_fname
				b_lname
				b_address1
				b_address2
				b_city
				b_state
				b_zip
				b_country
				b_phone
				fax
				credit_limit
/;

	my $db = $Db{userdb};

	if(! $db->record_exists($id)) {
		$db->set_row($id);
		$db->set_field($id, 'password', $Values->{password});
	}

	for(@always) {
		Log("$_: $Values->{$_}");
		$db->set_field($id, $_, $Values->{$_});
	}

	for (@sometimes) {
		Log("$_: $Values->{$_}");
		next unless $Values->{$_} =~ /\S/;
		$db->set_field($id, $_, $Values->{$_});
	}

	return "Updated customer record.";
[/perl]

_______________________________________________
Interchange-users mailing list
Interchange-users@lists.akopia.com
http://lists.akopia.com/mailman/listinfo/interchange-users