Subversion Repositories VORC

      my $Options = "<OPTION></OPTION>".$categories;

      $Options =~ s/>($FORM{$thing})/ selected>$1/;

      return "<SELECT name=filter-${colName} $onChange>$Options</SELECT>";

  } elsif ($colFilterTypeHash{$colName} eq 'none') {

    return;

  return -1;

}

sub printTablePage {

  my $paramhash = shift;

  my $RCAUTH_cookie = $paramhash->{RCAuth} // "";

  my $pageTitle = $paramhash->{Title};

  my $prefscookie = $paramhash->{Prefs} // "";

    ($prefscookie = lc $pageTitle) =~ s/\s+//g unless $prefscookie;

  my $DBTABLE = $paramhash->{Table};

  my $COLUMNS = $paramhash->{Columns};

  my $defaultWhereClause = $paramhash->{Where} // "";

  my $displayYearSelect = $paramhash->{DisplayYearSelect} // 1;

  my $showMyShiftsOption = $paramhash->{ShowMyShifts} // 0;

  my $highlightShifts = $paramhash->{HighlightShifts} // 0;

  my $headerButton = $paramhash->{HeaderButton} // "";

  my $blockPersonalTime = $paramhash->{PersonalTimeButton} // "";

  use CGI qw/param cookie header start_html url/;

  use HTML::Tiny;

  my $h = HTML::Tiny->new( mode => 'html' );

  my $stylesheet = "/style.css";

  my $homeURL = '/schedule/';

  my @pagelimitoptions = ("All", 5, 10, 25);

  my $YEAR;

  # Extract the column names and build utility variables

  my %NAME              = map  { $_ => $COLUMNS->{$_}->[0] } keys %{$COLUMNS};

  my %colOrderHash      = map  { $_ => $COLUMNS->{$_}->[1] } keys %{$COLUMNS};

  sub byfield { $colOrderHash{$a} <=> $colOrderHash{$b}; }

  our %colFilterTypeHash = map  { $_ => $COLUMNS->{$_}->[2] } keys %{$COLUMNS};

  my @staticFields      = sort byfield grep { $COLUMNS->{$_}->[3] and $COLUMNS->{$_}->[3] eq 'static' } keys %{$COLUMNS};

  my @defaultFields     = sort byfield grep { defined $COLUMNS->{$_}->[3] } keys %{$COLUMNS};

  my @allFields = sort byfield keys %NAME;

  my @displayFields = ();

  my @hideFields = ();

  my $QUERY_STRING;

  my $pagelimit = param ("limit") // $pagelimitoptions[$#pagelimitoptions];

  my $curpage = param ("page") // 1;

  our %FORM;

  my $FILTER;

  foreach (param()) {

    if (/^year$/) {

      $YEAR = param($_);

      next;

    }

    $FORM{$_} = param($_);        # Retrieve all of the FORM data submitted

    #warn "$_: $FORM{$_}";

    if ((/^filter/) and ($FORM{$_} ne '')) {  # Build a set of filters to apply

      my ($filter,$field) = split /-/, $_;    

      $FILTER->{$field} = $FORM{$_} unless notInArray ($field, \@allFields);

    } elsif ($FORM{$_} eq "true")     # Compile list of fields to display

      { push @displayFields, $_ unless /shiftinclude/; }

  }

  if (exists $FORM{autoload}) {     # If the FORM was submitted (i.e. the page is being redisplayed),

                                    #   build the data for the cookie that remembers the page setup

    my $disFields = join ":", @displayFields;

    my $fils = join ":", map { "$_=$FILTER->{$_}" } keys %{$FILTER};

    $QUERY_STRING = $disFields.'&'.$fils.'&'.$FORM{sortby}.'&'.$FORM{autoload};

    $QUERY_STRING .= '&'.$FORM{shiftinclude} unless !$FORM{shiftinclude};

  }

  if (!(exists $FORM{autoload}))  {     # No FORM was submitted...

    if (my $prefs = cookie ($prefscookie) and !defined param ("ignoreCookie"))  { # Check for cookies from previous visits.

      my ($disF, $filts, $sb, $al, $si) = split /&/,$prefs;

      @displayFields = split /:/,$disF;

      foreach my $pair (split /:/, $filts)  {

        my ($key, $value) = split /=/, $pair;

        $FORM{"filter-$key"} = $value;

        $FILTER->{$key} = $value;

      }

      $FORM{sortby} = $sb;

      $FORM{autoload} = $al;

      $FORM{shiftinclude} = $si;

      $QUERY_STRING = $prefs;

    } else {

      @displayFields = @defaultFields; # Otherwise suppply a default list of columns.

      $FORM{autoload} = 1;             # And turn autoload on by default.

    } 

  }

  # let's just make sure the columns are in the right order (and there aren't any missing)

  @displayFields = grep { inArray($_, \@allFields) } sort byfield uniq @displayFields, @staticFields;

  # If the field isn't in the displayFields list, then add it to the hideFields list

  @hideFields = grep { notInArray ($_, \@displayFields) } @allFields;

  # Process any filters provided in the form to pass to the database

  my @whereClause; # = $defaultWhereClause;

  push @whereClause, $defaultWhereClause unless !$defaultWhereClause;

  if ($displayYearSelect) {

    my $yearfield = inArray("date", \@allFields) ? 'year(date)' : "year";  # some pages only use the year, and not a date

    if ($YEAR) {

      push @whereClause, "$yearfield = '$YEAR'";

    } else {

      push @whereClause, "$yearfield = year(now())";

    }

  }

  push @whereClause, map { filter ($_, $FILTER->{$_}) } grep { defined $FILTER->{$_} } @displayFields;

                #  Given the fields to display and the where conditions,

                #   "getData" will return a reference to an array of

                #   hash references of the results.

  my ($data, $datacount) = getData (\@displayFields, \@whereClause, $DBTABLE, $FORM{sortby}, $curpage, $pagelimit);

  my @ProductList = @{ $data };

  my $x = scalar @ProductList; # How many results were returned?

  # If the user is trying to download the Excel file, send it to them and then exit out.

  if ($FORM{excel}) {

    (my $filename = $pageTitle) =~ s/\s+/_/g;

    exportExcel (\@ProductList, $filename);

    exit;

  }

  my @shifts;

  if ($FORM{shiftinclude} eq "true") {

    my @SIWhere = ("year(date) = '$YEAR'");

    push @SIWhere, "RCid = $ORCUSER->{RCid}";

    my ($d, $c) = getData (\@displayFields, \@SIWhere, $DBTABLE, $FORM{sortby});

    @shifts = @{ $d };

  }

  my $username = $h->a ({ href=>"/schedule/view_user.pl?submit=View&RCid=$ORCUSER->{RCid}" }, $ORCUSER->{derby_name});

  my $signedOnAs = $username ? "Welcome, $username. ".$h->input ({ type=>"button", value=>"Log Out", onClick=>"window.location.href='index.pl?LOGOUT';" }) : "You are not signed in.";

  # Set some cookie stuff...

  my $path = `dirname $ENV{SCRIPT_NAME}`; chomp $path; $path .= '/' unless $path eq "/";

  my $queryCookie = cookie(-NAME=>$prefscookie,

        -VALUE=>"$QUERY_STRING",

        -PATH=>"$path",

        -EXPIRES=>'+365d');

  # Print the header

  #------------------

  # Toggle the autoload fields within the table elements 

  our ($onClick, $onChange);   # (also used in scanFunctions)

  my ($radiobutton, $refreshbutton, $sortby);

  if ($FORM{autoload}) {            

    $onClick = "onClick='submit();'";

    $onChange = "onChange='page.value = 1; submit();'";

    $radiobutton = $h->div ({ class=>'autoload' },

      ["Autoload Changes: ",

      $h->input ({ type=>"radio", name=>'autoload', class=>'accent', value=>1, onClick=>'submit();', checked=>[] }), "On ", 

      $h->input ({ type=>"radio", name=>'autoload', class=>'accent', value=>0, onClick=>'submit();' }), "Off ",

      ]);

    $refreshbutton = "";

    $sortby = $h->select ({name=>"sortby", onChange=>'submit();' }, [ map { $FORM{sortby} eq $_ ? $h->option ({ value=>$_, selected=>[] }, $NAME{$_}) : $h->option ({ value=>$_ }, $NAME{$_}) } @displayFields ]);

  } else {

    $onClick = "";

    $onChange = "onChange='page.value = 1;'";

    $radiobutton = $h->div ({ class=>'autoload' }, 

      ["Autoload Changes: ",

      $h->input ({ type=>"radio", name=>'autoload', class=>'accent', value=>1, onClick=>'submit();' }), "On ", 

      $h->input ({ type=>"radio", name=>'autoload', class=>'accent', value=>0, onClick=>'submit();', checked=>[] }), "Off ",

      ]);

    $refreshbutton = $h->input ({ type=>"button", value=>"Refresh", onClick=>"submit(); return false;" });

    $sortby = $h->select ({name=>"sortby" }, [ map { $FORM{sortby} eq $_ ? $h->option ({ value=>$_, selected=>[] }, $NAME{$_}) : $h->option ({ value=>$_ }, $NAME{$_}) } @displayFields ]);

  }

  # "Shift Include" shows a checkbox to include a users shifts at the top of the page

  my $SIChecked;

  if ($showMyShiftsOption) {

    if ($FORM{shiftinclude}) {

      $SIChecked = "Show my shifts: ".$h->input ({ type=>"checkbox", name=>"shiftinclude", value=>"true", checked=>[], onClick=>'submit();' });

    } else {

      $SIChecked = "Show my shifts: ".$h->input ({ type=>"checkbox", name=>"shiftinclude", value=>"true", onClick=>'submit();' });

    }

  }

  # If the block personal time flag is set, include a button to go to that form.

  $SIChecked .= ' '.$h->input ({ type=>"button", value=>"Block Personal Time", onClick=>"window.location.href='personal_time.pl'" }) unless !$blockPersonalTime;

  $SIChecked .= $h->br unless !$SIChecked;

  print start_html (-title => $pageTitle, -style => {'src' => $stylesheet} );

  print $h->open ('form', { action=>url, method=>'POST', name=>'Req' });

  print $h->input ({ type=>"hidden", name=>"excel", value=>0 });

  print $h->div ({ class => "accent pageheader" }, [

    $h->h1 ($pageTitle),

    $h->div ({ class=>"sp0" }, [

      $h->div ({ class=>"spLeft" }, [

        $radiobutton

      ]),

      $h->div ({ class=>"spRight" }, [

        $h->input ({ type=>"button", value=>"Home", onClick=>"window.location.href=".$homeURL }),

        $refreshbutton

      ]),

    ]),

  ]);

  # Print the Hidden fields' check boxes (if there are any)

  my $c = 1;

  my @hiddencheckboxes;

  my @hiddenrows;

  foreach my $field (sort { $NAME{$a} cmp $NAME{$b}; } @hideFields) {

    if ($FORM{autoload}) {

      push @hiddencheckboxes, $h->div ({ class=>'rTableCell quarters nowrap', onClick=>"Req.$field.click();" }, [ $h->input ({ type=>'checkbox', class=>'accent', name=>$field, value=>'true', onClick=>"event.stopPropagation(); submit();" }), $NAME{$field} ]);

    } else {

      push @hiddencheckboxes, $h->div ({ class=>'rTableCell quarters nowrap', onClick=>"Req.$field.checked=!Req.$field.checked;" }, [ $h->input ({ type=>'checkbox', class=>'accent', name=>$field, value=>'true', onClick=>"event.stopPropagation();" }), $NAME{$field} ]);

    }

    if ($c++ % 4 == 0) {

      push @hiddenrows, $h->div ({ class=>'rTableRow' }, [ @hiddencheckboxes ]);

      @hiddencheckboxes = [];

    }

  }

  push @hiddenrows, $h->div ({ class=>'rTableRow' }, [ @hiddencheckboxes ]) unless --$c % 4 == 0;

  if (scalar @hideFields) {

    my @topleft;

    push @topleft, $h->div ({ class=>"nowrap" }, "Hidden Columns:");

    push @topleft, $h->div ({ class=>'rTable' }, [ @hiddenrows ]);

    print $h->div ({ class=>"sp0" }, [

      $h->div ({ class=>"spLeft"  }, [ @topleft ]),

      $h->div ({ class=>"spRight" }, [

        $signedOnAs, $h->br,

        $SIChecked,

      ])

    ]);

  }

  # Print the main table...............................................

  print $h->open ('div', { class=>'rTable' });

  my @tmptitlerow;

  foreach my $f (@displayFields)  {  # Print the Column headings

    my $special_button;

    if ($headerButton) {

      if ($f eq $headerButton->{field}) {

        $special_button = ' '.$headerButton->{button};

      }

    }

    if (inArray ($f, \@staticFields)) {

      push @tmptitlerow, $h->div ({ class=>'rTableHead' }, [ $h->input ({ type=>"hidden", name=>$f, value=>"true" }), $NAME{$f}, $special_button ]);

    } else {

      if ($FORM{autoload}) {

        push @tmptitlerow, $h->div ({ class=>'rTableHead', onClick=>"Req.$f.click();" }, [ $h->input ({ type=>"checkbox", class=>"accent", name=>$f, value=>"true", checked=>[], onClick=>'event.stopPropagation(); submit();' }), $NAME{$f}, $special_button ]);

      } else {

        push @tmptitlerow, $h->div ({ class=>'rTableHead', onClick=>"Req.$f.checked=!Req.$f.checked;" }, [ $h->input ({ type=>"checkbox", class=>"accent", name=>$f, value=>"true", checked=>[], onClick=>"event.stopPropagation();" }), $NAME{$f}, $special_button ]);

      }

    }

  }

  # Print the filter boxes...

  print $h->div ({ class=>'rTableHeading' }, [ @tmptitlerow ], [ map { $h->div ({ class=>'rTableCell filters' }, filter ($_)) } @displayFields ], $h->div ({ class=>"rTableCell" }));

  if ($FORM{shiftinclude}) {  # Include all of the user's shifts at the top

    foreach my $t (@shifts) {

      no strict;

      print $h->div ({ class=>'rTableRow highlighted' }, [ map { $h->div ({ class=>'rTableCell' }, exists &{"modify_".$_} ? &{"modify_".$_} ($t) : $t->{$_} ? $t->{$_} : "") } @displayFields ]);

    }

    print $h->hr ({ width=>"500%" });

  }

  # Print the things

  foreach my $t (@ProductList)  {

    my $shading = ($highlightShifts and $t->{RCid} eq $ORCUSER->{RCid}) ? "highlighted" : "shaded";

    no strict; # 'strict' doesn't like the exists functionality

    my $rowclick = (exists &addRowClick) ? addRowClick ($t) : "";

    print $h->div ({ class=>'rTableRow '.$shading, onClick=>$rowclick }, [ map { $h->div ({ class=>'rTableCell' }, exists &{"modify_".$_} ? &{"modify_".$_} ($t) : $t->{$_} ? $t->{$_} : "") } @displayFields ]);

  }

  print $h->close ('div');

  # close things out................................................

  my $pages = $pagelimit eq "All" ? 1 : int( $datacount / $pagelimit + 0.99 );

  if ($curpage > $pages) { $curpage = $pages; }

  my @pagerange;

  if ($pages <= 5 ) {

    @pagerange = 1 .. $pages;

  } else {  

    if ($curpage <= 3) {

      @pagerange = (1, 2, 3, 4, ">>");

    } elsif ($curpage >= $pages - 2) {

      @pagerange = ("<<", $pages-3, $pages-2, $pages-1, $pages);

    } else {

      @pagerange = ("<<", $curpage-1, $curpage, $curpage+1, ">>");

    }

  }

  my @yearoptions;

  if ($displayYearSelect) {

    my $currentyear;

    foreach (@{&getYears()}) {

      push @yearoptions, $YEAR eq $_ ? $h->option ({ selected=>[] }, $_) : $h->option ($_);

      $currentyear = $_;

    }

    $yearoptions[$#yearoptions] = $h->option ({ selected=>[] }, $currentyear) unless $YEAR;

  }

  print $h->br; # print $h->br;

  print $h->div ({ class=>"sp0" }, [

      $h->div ({ class=>"spLeft" }, [

        $h->div ({ class=>"footer" }, [

          "To bookmark, save, or send this exact view, use the ",

          $h->a ({ href=>'', onClick=>"window.document.Req.method = 'GET'; Req.submit(); return false;" }, "[Full URL]"),

          $h->br,

          "If this page is displaying oddly, ", $h->a ({ href=>url ()."?ignoreCookie=1" }, "[Reset Your View]"),

          $h->br,

          $h->a ({ href=>"", target=>"_new", onClick=>"window.document.Req.excel.value=1; window.document.Req.submit(); window.document.Req.excel.value=0; return false;" }, "[Export Displayed Data as an Excel Document.]"),

          $h->br,

          "This page was displayed on ", currentTime (),

          $h->br,

          "Please direct questions, problems, and concerns to $SYSTEM_EMAIL",

          $displayYearSelect ? $h->br."Displaying: ".$h->select ({ name=>"year", onchange=>"Req.submit();" }, [ @yearoptions ]) : $h->br

        ])

      ]),

      $h->div ({ class=>"spRight" }, [

        $h->h5 ([

                 "$x of $datacount Record". ($x == 1 ? "" : "s") ." Displayed", $h->br,

                 "Sorted by ", $sortby, $h->br,

                 "Displaying ", $h->select ({ name=>"limit", onChange=>"page.value = 1; submit();" }, [ map { $pagelimit == $_ ? $h->option ({ selected=>[] }, $_) : $h->option ($_) } @pagelimitoptions ]), " Per Page", $h->br,

                 ( $pages > 1 ? ( join " ", map { $_ == $curpage ? "<B>$_</b>" :

                                                  $_ eq "<<"     ? $h->a ({ onClick=>qq{Req.page.value=1; Req.submit();} }, "$_") :

                                                  $_ eq ">>"     ? $h->a ({ onClick=>qq{Req.page.value=$pages; Req.submit();} }, "$_") :

                                                                   $h->a ({ onClick=>qq{Req.page.value=$_; Req.submit();} }, "[$_]") } @pagerange ) : "" ), $h->br,

                 $h->input ({ type=>"hidden", name=>"page", value=>$curpage })

        ])

      ]),

  ]);

  print $h->close('form');