mason/feature/properties.mas

   1 <%args>
   2     $feature
   3 </%args>
   4 <%perl>
   5     # find all featureprops other that Note, which is already taken care of
   6     my @properties = map { [ $_->type->name => $_->value ] }
   7                      grep { $_->type->name ne 'Note' } $feature->featureprops;
   8 </%perl>
   9 % if (@properties) {
  10 <&| /page/info_section.mas,
  11     title => "Feature Properties",
  12     collapsible => 1,
  13 &>
  14 <& /page/columnar_table.mas,
  15     headings => [ "Feature property", "Value"  ],
  16     data     => [ @properties ],
  17 &>
  18 </&>
  19 % }