Subversion Repositories PEEPS

}

}

sub getPolicyByID {

sub getPolicyByID {

  my $policy = $dbh->selectrow_hashref ("select * from policy where id = ?", undef, $pid);

  my $policy = $dbh->selectrow_hashref ("select * from policy where id = ?", undef, $pid);

  return "" unless $pid =~ /^\d+$/;

  return "" unless $pid =~ /^\d+$/;

  return "" unless !$date or $date =~ /^\d{4}-\d{2}-\d{2}$/;

  return "" unless !$date or $date =~ /^\d{4}-\d{2}-\d{2}$/;

  my $policy_id;

  my $policy_id;

    ($policy_id) = $dbh->selectrow_array ("select id from coverage where person_id = ? and datediff(start, ?) <= 1 and datediff(end, ?) >= 0 and isnull(coverage.terminated) = 1", undef, $pid, $date, $date);

    ($policy_id) = $dbh->selectrow_array ("select id from coverage where person_id = ? and datediff(start, ?) <= 1 and datediff(end, ?) >= 0 and isnull(coverage.terminated) = 1 and policy_id = 1", undef, $pid, $date, $date);

    ($policy_id) = $dbh->selectrow_array ("select id from coverage where person_id = ? and datediff(start, now()) < 1 and datediff(end, now()) >= 0 and isnull(coverage.terminated) = 1", undef, $pid);

    ($policy_id) = $dbh->selectrow_array ("select id from coverage where person_id = ? and datediff(start, now()) < 1 and datediff(end, now()) >= 0 and isnull(coverage.terminated) = 1 and policy_id = 1", undef, $pid);

  }

  }