projects
/
freeside.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
missing commit from nms auto-addition fixes, RT#15536
[freeside.git]
/
httemplate
/
misc
/
xmlhttp-cust_main-censustract.html
diff --git
a/httemplate/misc/xmlhttp-cust_main-censustract.html
b/httemplate/misc/xmlhttp-cust_main-censustract.html
index
9d588d7
..
97b7f5a
100644
(file)
--- a/
httemplate/misc/xmlhttp-cust_main-censustract.html
+++ b/
httemplate/misc/xmlhttp-cust_main-censustract.html
@@
-36,23
+36,33
@@
if ( $sub eq 'censustract' ) {
my $content = $res->content;
my $p = new HTML::TokeParser \$content;
my $viewstate;
my $content = $res->content;
my $p = new HTML::TokeParser \$content;
my $viewstate;
+ my $eventvalidation;
while (my $token = $p->get_tag('input') ) {
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 {
my($zip5, $zip4) = split('-',$arg{zip});
} else {
my($zip5, $zip4) = split('-',$arg{zip});
+ $arg{year} ||= '2011';
+ #ugh workaround a mess at ffiec
+ $arg{year} = " $arg{year}" if $arg{year} ne '2011';
my @ffiec_args = (
__VIEWSTATE => $viewstate,
my @ffiec_args = (
__VIEWSTATE => $viewstate,
+ __EVENTVALIDATION => $eventvalidation,
ddlbYear => $arg{year},
ddlbYear => $arg{year},
+ ddlbYear => '2011', #' 2009',
txtAddress => $arg{address},
txtCity => $arg{city},
ddlbState => $arg{state},
txtAddress => $arg{address},
txtCity => $arg{city},
ddlbState => $arg{state},
@@
-62,6
+72,7
@@
if ( $sub eq 'censustract' ) {
warn join("\n", @ffiec_args )
if $DEBUG;
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;
$res = $ua->request( POST( $url, \@ffiec_args ) );
warn $res->as_string
if $DEBUG > 1;
@@
-74,6
+85,7
@@
if ( $sub eq 'censustract' ) {
my @id = qw( MSACode StateCode CountyCode TractCode );
$content = $res->content;
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 =
$p = new HTML::TokeParser \$content;
my $prefix = 'UcGeoResult11_lb';
my $compare =