[interchange-cvs] interchange - docelic modified 2 files

Fri Jun 10 06:54:33 EDT 2005

User:      docelic
Date:      2005-06-10 10:54:33 GMT
Modified:  lib/Vend/Payment BoA.pm WellsFargo.pm
Log:
- XHTML-compliance:

  - lowercased/quoted HTML tags (all containers, so no ">" vs. "/>" issues)

Revision  Changes    Path
1.12      +2 -2      interchange/lib/Vend/Payment/BoA.pm


rev 1.12, prev_rev 1.11
Index: BoA.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Payment/BoA.pm,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -r1.11 -r1.12

--- BoA.pm	7 Jun 2004 20:59:18 -0000	1.11
+++ BoA.pm	10 Jun 2005 10:54:33 -0000	1.12
@@ -1,6 +1,6 @@
 # Vend::Payment::BoA - Interchange BoA support
 #
-# $Id: BoA.pm,v 1.11 2004/06/07 20:59:18 mheins Exp $
+# $Id: BoA.pm,v 1.12 2005/06/10 10:54:33 docelic Exp $
 #
 # Copyright (C) 2002-2003 Interchange Development Group
 # Copyright (C) 1999-2002 Red Hat, Inc.
@@ -457,7 +457,7 @@
 #::logDebug("BoA post_data response: " . ::uneval($thing) );
 	
 	my %result;
-	my $sep = "<BR>";
+	my $sep = "<br>";
 
 	$page =~ s/\r*<html>.*$//is;
 



1.8       +4 -4      interchange/lib/Vend/Payment/WellsFargo.pm


rev 1.8, prev_rev 1.7
Index: WellsFargo.pm
===================================================================
RCS file: /var/cvs/interchange/lib/Vend/Payment/WellsFargo.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -r1.7 -r1.8
--- WellsFargo.pm	7 Jun 2004 20:59:18 -0000	1.7
+++ WellsFargo.pm	10 Jun 2005 10:54:33 -0000	1.8
@@ -1,6 +1,6 @@
 # Vend::Payment::WellsFargo - Interchange WellsFargo support
 #
-# $Id: WellsFargo.pm,v 1.7 2004/06/07 20:59:18 mheins Exp $
+# $Id: WellsFargo.pm,v 1.8 2005/06/10 10:54:33 docelic Exp $
 #
 # Copyright (C) 2002-2003 Interchange Development Group
 # Copyright (C) 1999-2002 Red Hat, Inc.
@@ -515,7 +515,7 @@
 	
 	my %result;
 
-	my $sep = '<BR>';
+	my $sep = '<br>';
 
 	if ($sale) {
 		$page =~ s/\r*<html>.*$//is;
@@ -584,7 +584,7 @@
 				$result{ioc_reject_description} || 
 				$response_map->{ $result{ioc_response_code} } ||
 				$timeout_error;
-		$msg .= '<p>Please contact customer service or try a different card.';
+		$msg .= '<p>Please contact customer service or try a different card.</p>';
 		$result{MErrMsg} = errmsg($msg);
 		return (%result);
 	}
@@ -626,7 +626,7 @@
 		$result{MStatus} = 'failure';
 		delete $result{'order-id'};
 
-		my $msg = "authorization passed but settlment failed (gateway returned code %s: %s)<p>Please contact customer service or try a different card.";
+		my $msg = "<p>Authorization passed but settlment failed (gateway returned code %s: %s).</p><p>Please contact customer service or try a different card.</p>";
 		$result{MErrMsg} = errmsg($msg, $sale_result{ioc_response_code},
 						$sale_result{ioc_response_desc} ||
 						$response_map->{ $sale_result{ioc_response_code} } ||






