Subversion Repositories PEEPS

Rev

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

Rev 30 Rev 35
Line 56... Line 56...
56
 
56
 
57
 
57
 
58
print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Policy Details:"),
58
print $h->div ({ class=>"index" }, [$h->p ({ class=>"heading" }, "Policy Details:"),
59
        $h->div ({ class=>"rTable", style=>"min-width: 0%;" }, [
59
        $h->div ({ class=>"rTable", style=>"min-width: 0%;" }, [
60
          $h->div ({ class=>"rTableRow" }, map { [$h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, ucfirst ($_).": ", $coverage->{$_})] } sort byfield grep { exists $FIELDS{$_} } keys %{$coverage})]),
-
 
Line 61... Line 60...
61
          $h->p ($h->input ({ type=>"button", onClick=>"window.location.href='$ENV{HTTP_REFERER}'", value=>"Back"}))
60
          $h->div ({ class=>"rTableRow" }, map { [$h->div ({ class=>"rTableCellr", style=>"font-size: unset;" }, ucfirst ($_).": ", $coverage->{$_})] } sort byfield grep { exists $FIELDS{$_} } keys %{$coverage})]),