X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=httemplate%2Fmisc%2Fxmlhttp-cust_main-censustract.html;h=13ebf792c26552bdb3752771f7865985de48828a;hp=9d588d7125ff99544bc5ccd85a30b326f0f36a1b;hb=d830c5362596475cf118d715f707994f9ce69bb6;hpb=a83a000a027d1272e813259d09230d701d84df64

diff --git a/httemplate/misc/xmlhttp-cust_main-censustract.html b/httemplate/misc/xmlhttp-cust_main-censustract.html
index 9d588d712..13ebf792c 100644
--- a/httemplate/misc/xmlhttp-cust_main-censustract.html
+++ b/httemplate/misc/xmlhttp-cust_main-censustract.html
@@ -36,15 +36,20 @@ if ( $sub eq 'censustract' ) {
     my $content = $res->content;
     my $p = new HTML::TokeParser \$content;
     my $viewstate;
+    my $eventvalidation;
     while (my $token = $p->get_tag('input') ) {
-      next unless $token->[1]->{name} eq '__VIEWSTATE';
-      $viewstate = $token->[1]->{value};
-      last;
+      if ($token->[1]->{name} eq '__VIEWSTATE') {
+        $viewstate = $token->[1]->{value};
+      }
+      if ($token->[1]->{name} eq '__EVENTVALIDATION') {
+        $eventvalidation = $token->[1]->{value};
+      }
+      last if $viewstate && $eventvalidation;
     }
 
-    unless ($viewstate) {
+    unless ($viewstate && $eventvalidation) {
 
-      $error = "no __VIEWSTATE found";
+      $error = "either no __VIEWSTATE or __EVENTVALIDATION found";
 
     } else {
 
@@ -52,6 +57,7 @@ if ( $sub eq 'censustract' ) {
 
       my @ffiec_args = (
         __VIEWSTATE => $viewstate,
+        __EVENTVALIDATION => $eventvalidation,
         ddlbYear    => $arg{year},
         txtAddress  => $arg{address},
         txtCity     => $arg{city},  
@@ -62,6 +68,7 @@ if ( $sub eq 'censustract' ) {
       warn join("\n", @ffiec_args )
         if $DEBUG;
 
+      push @{ $ua->requests_redirectable }, 'POST';
       $res = $ua->request( POST( $url, \@ffiec_args ) );
       warn $res->as_string
         if $DEBUG > 1;
@@ -74,6 +81,7 @@ if ( $sub eq 'censustract' ) {
 
         my @id = qw( MSACode StateCode CountyCode TractCode );
         $content = $res->content;
+        warn $res->content if $DEBUG > 1;
         $p = new HTML::TokeParser \$content;
         my $prefix = 'UcGeoResult11_lb';
         my $compare =