Re^2: MVC Catalyst Architecture - City, State Zip locator

Thats what I was understanding when looking at the code. To me and a few people who have looked at it - its fine and should be working. Thats why were stumped. It seems there is something fouling it up that isn't obviously apparent. Perhaps something outside the WeilMclain and WeilMclainDB folders. Thank you much for your help with this. I emailed you a bit ago.

Comment on Re^2: MVC Catalyst Architecture - City, State Zip locator

Replies are listed 'Best First'.
Re^3: MVC Catalyst Architecture - City, State Zip locator by Anonymous Monk on Jul 22, 2008 at 16:33 UTC
Problem solved! Here is what changed in the zips.pm `sub get_zip { my ($self, $city, $state) = @_; $cityy= s/\b(\w)(\w)/uc($1).lc($2)/ge for $city; #print "$city"; # return undef unless ($city && $state =~ /^(\d)$/); if (my $zip = $self->single({city_name => $city,state_abbr=>uc($st +ate)},{columns => [qw/zip_code/]})) { return $zip->get_column('zip_code'); } return undef; return $self->single({city_name=>$city,state_abbr=>uc($state)},{co +lumns=>[qw/zip_code/]})->get_column('zip_code'); }` [download] Thank you all for your help!	[reply] [d/l]

Replies are listed 'Best First'.

Re^3: MVC Catalyst Architecture - City, State Zip locator
by Anonymous Monk on Jul 22, 2008 at 16:33 UTC

sub get_zip {
    my ($self, $city, $state) = @_;
$cityy=   s/\b(\w)(\w*)/uc($1).lc($2)/ge for $city;

#print "$city";
#    return undef unless ($city && $state =~ /^(\d*)$/);
    if (my $zip = $self->single({city_name => $city,state_abbr=>uc($st
+ate)},{columns => [qw/zip_code/]})) {
    return $zip->get_column('zip_code');
}
    return undef;
    return $self->single({city_name=>$city,state_abbr=>uc($state)},{co
+lumns=>[qw/zip_code/]})->get_column('zip_code');
}
[download]

[reply]
[d/l]