Subversion Repositories PEEPS

Rev

Rev 22 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 22 Rev 28
Line 121... Line 121...
121 
      # extend existing coverage
 121 
      # extend existing coverage
122 
      $dbh->do ("update coverage set end = date_add(end, INTERVAL 1 YEAR) where id = ?", undef, $policy_id);
 122 
      $dbh->do ("update coverage set end = date_add(end, INTERVAL 1 YEAR) where id = ?", undef, $policy_id);
123 
    } else {
 123 
    } else {
124 
      # insert new coverage
 124 
      # insert new coverage
125 
      my ($new_policy_id) = $dbh->selectrow_array ("select max(id)+1 from coverage");
 125 
      my ($new_policy_id) = $dbh->selectrow_array ("select max(id)+1 from coverage");
126 
      $dbh->do ("insert into coverage (id, person_id, policy_id, policy_name, fee, created, start, end, active) values (?, ?, ?, ?, ?, ?, date(?), date_add(date(?), INTERVAL 1 YEAR), ?)", undef,
 126 
      $dbh->do ("insert into coverage (id, person_id, policy_id, policy_name, fee, square_id, created, start, end, active) values (?, ?, ?, ?, ?, ?, ?, date(?), date_add(date(?), INTERVAL 1 YEAR), ?)", undef,
127 
        $new_policy_id,
 127 
        $new_policy_id,
128 
        $user->{id},
 128 
        $user->{id},
129 
        $checkout->{policy_id},
 129 
        $checkout->{policy_id},
130 
        $response->{order}->{line_items}->[0]->{name},
 130 
        $response->{order}->{line_items}->[0]->{name},
131 
        $response->{order}->{tenders}->[0]->{amount_money}->{amount} / 100,
 131 
        $response->{order}->{tenders}->[0]->{amount_money}->{amount} / 100,
- 
 
 132 
        $response->{order}->{tenders}->[0]->{id},
132 
        $response->{order}->{tenders}->[0]->{created_at},
 133 
        $response->{order}->{tenders}->[0]->{created_at},
133 
        $adjusted_created_at,
 134 
        $adjusted_created_at,
134 
        $adjusted_created_at,
 135 
        $adjusted_created_at,
135 
        1
 136 
        1
136 
      );
 137 
      );
Line 154... Line 155...
154 
      # extend existing coverage
 155 
      # extend existing coverage
155 
      $dbh->do ("update org_coverage set end = date_add(end, INTERVAL 1 YEAR) where id = ?", undef, $policy_id);
 156 
      $dbh->do ("update org_coverage set end = date_add(end, INTERVAL 1 YEAR) where id = ?", undef, $policy_id);
156 
    } else {
 157 
    } else {
157 
      # insert new coverage
 158 
      # insert new coverage
158 
      my ($new_policy_id) = $dbh->selectrow_array ("select max(id)+1 from org_coverage");
 159 
      my ($new_policy_id) = $dbh->selectrow_array ("select max(id)+1 from org_coverage");
159 
      $dbh->do ("insert into org_coverage (id, organization_id, policy_id, policy_name, fee, created, start, end, active) values (?, ?, ?, ?, ?, ?, date(?), date_add(date(?), INTERVAL 1 YEAR), ?)", undef,
 160 
      $dbh->do ("insert into org_coverage (id, organization_id, policy_id, policy_name, fee, square_id, created, start, end, active) values (?, ?, ?, ?, ?, ?, ?, date(?), date_add(date(?), INTERVAL 1 YEAR), ?)", undef,
160 
        $new_policy_id,
 161 
        $new_policy_id,
161 
        $checkout->{organization_id},
 162 
        $checkout->{organization_id},
162 
        $checkout->{policy_id},
163 
        $checkout->{policy_id},
163 
        $response->{order}->{line_items}->[0]->{name},
 164 
        $response->{order}->{line_items}->[0]->{name},
164 
        $response->{order}->{tenders}->[0]->{amount_money}->{amount} / 100,
 165 
        $response->{order}->{tenders}->[0]->{amount_money}->{amount} / 100,
- 
 
 166 
        $response->{order}->{tenders}->[0]->{id},
165 
        $response->{order}->{tenders}->[0]->{created_at},
 167 
        $response->{order}->{tenders}->[0]->{created_at},
166 
        $adjusted_created_at,
 168 
        $adjusted_created_at,
167 
        $adjusted_created_at,
 169 
        $adjusted_created_at,
168 
        1
 170 
        1
169 
      );
 171 
      );
Line 187... Line 189...
187 
      # extend existing coverage
 189 
      # extend existing coverage
188 
      $dbh->do ("update org_coverage set end = date_add(end, INTERVAL 1 YEAR) where id = ?", undef, $policy_id);
 190 
      $dbh->do ("update org_coverage set end = date_add(end, INTERVAL 1 YEAR) where id = ?", undef, $policy_id);
189 
    } else {
 191 
    } else {
190 
      # insert new coverage
 192 
      # insert new coverage
191 
      my ($new_policy_id) = $dbh->selectrow_array ("select max(id)+1 from org_coverage");
 193 
      my ($new_policy_id) = $dbh->selectrow_array ("select max(id)+1 from org_coverage");
192 
      $dbh->do ("insert into org_coverage (id, organization_id, policy_id, policy_name, fee, created, start, end, active) values (?, ?, ?, ?, ?, ?, date(?), MAKEDATE(YEAR(CURDATE()), 365), ?)", undef,
 194 
      $dbh->do ("insert into org_coverage (id, organization_id, policy_id, policy_name, fee, square_id, created, start, end, active) values (?, ?, ?, ?, ?, ?, ?, date(?), MAKEDATE(YEAR(CURDATE()), 365), ?)", undef,
193 
        $new_policy_id,
 195 
        $new_policy_id,
194 
        $checkout->{organization_id},
 196 
        $checkout->{organization_id},
195 
        $checkout->{policy_id},
197 
        $checkout->{policy_id},
196 
        $response->{order}->{line_items}->[0]->{name},
 198 
        $response->{order}->{line_items}->[0]->{name},
197 
        $response->{order}->{tenders}->[0]->{amount_money}->{amount} / 100,
 199 
        $response->{order}->{tenders}->[0]->{amount_money}->{amount} / 100,
- 
 
 200 
        $response->{order}->{tenders}->[0]->{id},
198 
        $response->{order}->{tenders}->[0]->{created_at},
 201 
        $response->{order}->{tenders}->[0]->{created_at},
199 
        $adjusted_created_at,
 202 
        $adjusted_created_at,
200 
        1
 203 
        1
201 
      );
 204 
      );
202 
      $policy_id = isLeagueCovered ($user->{id});
 205 
      $policy_id = isLeagueCovered ($user->{id});
Line 214... Line 217...
214 
             "ERROR: Checkout complete, but PEEPS coverage failed to update.");
 217 
             "ERROR: Checkout complete, but PEEPS coverage failed to update.");
215 
    }
 218 
    }
216 
  } elsif ($checkout->{policy_id} eq "4") { # RollerCon
 219 
  } elsif ($checkout->{policy_id} eq "4") { # RollerCon
217 
    # insert new coverage
 220 
    # insert new coverage
218 
    my ($new_policy_id) = $dbh->selectrow_array ("select max(id)+1 from coverage");
 221 
    my ($new_policy_id) = $dbh->selectrow_array ("select max(id)+1 from coverage");
219 
    $dbh->do ("insert into coverage (id, person_id, policy_id, policy_name, fee, created, start, end, active) values (?, ?, ?, ?, ?, ?, ?, ?, ?)", undef,
 222 
    $dbh->do ("insert into coverage (id, person_id, policy_id, policy_name, fee, square_id, created, start, end, active) values (?, ?, ?, ?, ?, ?, ?, ?, ?, ?)", undef,
220 
      $new_policy_id,
 223 
      $new_policy_id,
221 
      $user->{id},
 224 
      $user->{id},
222 
      $checkout->{policy_id},
 225 
      $checkout->{policy_id},
223 
      $response->{order}->{line_items}->[0]->{name},
 226 
      $response->{order}->{line_items}->[0]->{name},
224 
      $response->{order}->{tenders}->[0]->{amount_money}->{amount} / 100,
 227 
      $response->{order}->{tenders}->[0]->{amount_money}->{amount} / 100,
- 
 
 228 
      $response->{order}->{tenders}->[0]->{id},
225 
      $response->{order}->{tenders}->[0]->{created_at},
 229 
      $response->{order}->{tenders}->[0]->{created_at},
226 
      "2026-07-09",
 230 
      "2026-07-09",
227 
      "2026-07-11",
 231 
      "2026-07-11",
228 
      1
 232 
      1
229 
    );
 233 
    );