Subversion Repositories VORC

  if (url =~ /volhours_report\.pl$/) {

    #  warn "Display the tshirt report...";

    my %bysize = (

      MS  => 1,

      MM  => 2,

      ML  => 3,

      MXL => 4,

      M2X => 5,

      M3X => 6,

      UNK => 7

    );

    my %size_report = map { $_->[0] => $_->[1] } @{ $internalDBH->selectall_arrayref ("select * from v_tshirt_report") };

    use List::Util qw(sum0);

    my $total = sum0 values %size_report;

    my @sizes;

    push @sizes, $h->div ({ class=>"rTableHeading " }, [ $h->div ( { class=>'rTableHead', style=>"white-space:nowrap;padding:3px 5px 7px 5px;font-size:small;" }, "Size Summary", ' ') ]);

    push @sizes, map { $h->div ({ class=>"rTableRow shaded" },

                                 [$h->div ( { class=>'rTableCell', style=> $_ eq "UNK" ? "font-style:italic;" : undef  }, $_, $size_report{$_} )]

                               ) } sort { $bysize{$a} <=> $bysize{$b} } keys %size_report;

    print $h->ul ({ style=>"padding-inline-start:5px;" }, [$h->div ({ class=>"rTable", style=>"min-width:15%;" }, [ @sizes ]), $h->h5 ("($total Total:  1 shirt for 4.75+ hours; 2 shirts for 25+ hours)") ]);

  }