Subversion Repositories PEEPS

Rev

Rev 50 | Rev 54 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 50 Rev 53
Line 137... Line 137...
137 
  sendToSquare ($esig, $terms, $policy);
 137 
  sendToSquare ($esig, $terms, $policy);
138 
  exit;
 138 
  exit;
139 
}
 139 
}
Line 140... Line 140...
140 
 
 140 
 
141 
print header (-cookie=>CGI::Cookie->new(-name=>'PEEPSAUTH',-value=>"$cookie_string"));
 141 
print header (-cookie=>CGI::Cookie->new(-name=>'PEEPSAUTH',-value=>"$cookie_string"));
Line 142... Line 142...
142 
printRCHeader("Atttestation");
 142 
printRCHeader("Attestation");
Line 143... Line 143...
143 
 
 143 
 
Line 150... Line 150...
150 
print $h->input ( { type => "hidden", name => "league", value => $league_id } ) unless !$league_id;
 150 
print $h->input ( { type => "hidden", name => "league", value => $league_id } ) unless !$league_id;
Line 151... Line 151...
151 
 
 151 
 
Line -... Line 152...
- 
 
 152 
 
- 
 
 153 
print $h->div ({ class=>"error" }, "&nbsp;", "ERROR: You must agree to each term to continue.") if $terms and $terms < scalar @terms;
- 
 
 154 
 
- 
 
 155 
print $h->div ({ class=>"index" },[
- 
 
 156 
  $h->p ({ class => "heading" }, "Policy Details"),
- 
 
 157 
  $h->div ({ class => "rTable", style=>"min-width: 0%;" }, [
- 
 
 158 
    map ({ $h->div ({ class => "rTableRow" }, [
- 
 
 159 
      $h->div ({class=>"rTableCellr"}, ucfirst ($_).": "),
- 
 
 160 
      $h->div ({class=>"rTableCellr"}, /fee/ ? '$'.sprintf '%.2f', $policy->{$_}.' [USD]' : ucfirst ($policy->{$_}))
- 
 
 161 
    ]) } qw/ name type fee /),
- 
 
 162 
    isWFTDAMember ($user->{id}) ? $h->div ({ class => "rTableRow" }, [ $h->div ({class=>"rTableCellr"}, "Discount: "), $h->div ({class=>"rTableCellr"}, '$'.sprintf ('-%.2f', $policy->{member_discount}).' [USD] WFTDA Member') ]) : {}
152 
 
 163 
  ])
153 
print $h->div ({ class=>"error" }, "&nbsp;", "ERROR: You must agree to each term to continue.") if $terms and $terms < scalar @terms;
 164 
]);
154 
 
 165 
 
155 
print $h->h2 ("Policy Details");
 166 
#print $h->h2 ("Policy Details");
156 
print $h->div ({ style=>"max-width:850px;" }, $h->ul ([$h->li (map { "$_: $policy->{$_}" } keys %{$policy})]));
 167 
#print $h->div ({ style=>"max-width:850px;" }, $h->ul ([$h->li (map { "$_: $policy->{$_}" } keys %{$policy})]));
157 
 
 168 
 
Line 158... Line 169...
158 
print map { $h->div ({ class => "lisp0" }, [
169 
#print $h->ul ([map { $h->li ({ class => "lisp0" }, [
159 
    $h->div ({ class=>"liRight", style=>"margin-right:.5em" }, ucfirst ($_).": "),
 170 
#    $h->div ({ class=>"liRight", style=>"margin-right:.5em" }, ucfirst ($_).": "),