Subversion Repositories PEEPS

Rev

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

Rev 56 Rev 57
Line 157... Line 157...
157 
  $h->div ({ class => "rTable", style=>"min-width: 0%;" }, [
 157 
  $h->div ({ class => "rTable", style=>"min-width: 0%;" }, [
158 
    map ({ $h->div ({ class => "rTableRow" }, [
 158 
    map ({ $h->div ({ class => "rTableRow" }, [
159 
      $h->div ({class=>"rTableCellr", style=>"font-size: unset;"}, ucfirst ($_).": "),
 159 
      $h->div ({class=>"rTableCellr", style=>"font-size: unset;"}, ucfirst ($_).": "),
160 
      $h->div ({class=>"rTableCellr", style=>"font-size: unset;"}, /fee/ ? '$'.sprintf ('%.2f', $policy->{$_}).' [USD]' : ucfirst ($policy->{$_}))
 160 
      $h->div ({class=>"rTableCellr", style=>"font-size: unset;"}, /fee/ ? '$'.sprintf ('%.2f', $policy->{$_}).' [USD]' : ucfirst ($policy->{$_}))
161 
    ]) } qw/ name type fee /),
 161 
    ]) } qw/ name type fee /),
162 
    isWFTDAMember ($user->{id}) ? $h->div ({ class => "rTableRow" }, [ $h->div ({class=>"rTableCellr", style=>"font-size: unset;"}, "Discount: "), $h->div ({class=>"rTableCellr", style=>"font-size: unset;"}, '$'.sprintf ('-%.2f', $policy->{member_discount}).' [USD] WFTDA Member') ]) : {}
 162 
    (isWFTDAMember ($user->{id}) and $policy->{member_discount}) ? $h->div ({ class => "rTableRow" }, [ $h->div ({class=>"rTableCellr", style=>"font-size: unset;"}, "Discount: "), $h->div ({class=>"rTableCellr", style=>"font-size: unset;"}, '$'.sprintf ('-%.2f', $policy->{member_discount}).' [USD] WFTDA Member') ]) : undef
163 
  ])
 163 
  ])
164 
]);
 164 
]);
Line 165... Line 165...
165 
 
 165 
 
166 
#print $h->h2 ("Policy Details");
 166 
#print $h->h2 ("Policy Details");