Subversion Repositories PEEPS

Rev

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

Rev 54 Rev 56
Line 155... Line 155...
155 
print $h->div ({ class=>"index" },[
 155 
print $h->div ({ class=>"index" },[
156 
  $h->p ({ class => "heading" }, "Policy Details"),
 156 
  $h->p ({ class => "heading" }, "Policy Details"),
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}) ? $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') ]) : {}
163 
  ])
 163 
  ])
164 
]);
 164 
]);