WebSVN – ORC – /trunk/site/schedule/announcer_shifts.pl

#!/usr/bin/perl

#if ($ENV{SHELL}) { die "This script shouldn't be executed from the command line!\n"; }

#use strict;
use CGI qw/param cookie header start_html url/;
use HTML::Tiny;
use tableViewer;
use RollerCon;
our $h = HTML::Tiny->new( mode => 'html' );
use DateTime;
use DateTime::Duration;
my $now = DateTime->now;

my $cookie_string = authenticate (1) || die;
# Add checking to make sure they're in this department
our ($EML, $PWD, $LVL) = split /&/, $cookie_string;
my $user = getUser ($EML);
$user->{department} = convertDepartments $user->{department};

if ($user->{department}->{"ANN"} < 1 or $LVL < 4) {
        print header(-cookie=>$RCAUTH_cookie);
        printRCHeader("Unauthorized Page");
        print $h->div ({ class=>"error" }, "You're not an Announcer");
        print $h->div ("Your user account is not registered as an Announcer, so you can't see these shifts.  It's possible that your access is still being reviewed.  Please be patient.");
        print $h->a ({ href=>"/" }, "[Go Home]");
        print $h->close ("html");
        exit;   
}

my $username = $h->a ({ href=>"/schedule/manage_user.pl?submit=View&RCid=$user->{RCid}" }, $user->{derby_name});
my $RCid = $user->{RCid};
my $RCAUTH_cookie = CGI::Cookie->new(-name=>'RCAUTH',-value=>"$cookie_string",-expires=>"+30m");
#my $YEAR = 1900 + (localtime)[5]; #which year of data to display, default to current
my $YEAR = "2019";
my @addToWhereClause = ("year(date) = '$YEAR'", "type = 'announcer'");

#$LVL = 1;

my $pageTitle = "Announcer Shifts";
my $prefscookie = "ashiftscookie";
our $DBTABLE = 'v_shift_announcer';
my %COLUMNS = (
# colname   =>  [qw(DisplayName       N    type     status)],   status ->  static | default | <blank>
        id                                               => [qw(ID           5    number            )],
        date                                     => [qw(Date        10    date      default )],
        dayofweek                        => [qw(Day         15    select            )],
        time                                     => [qw(Time        20    text      default )],
        volhours       => [qw(VolHours    23    number            )],
        track                                    => [qw(Track       25    select    default )],
        teams                                    => [qw(Teams       30    text      default )],
        level                                    => [qw(Level       35    select    default )],
        restrictions   => [qw(Rs          40    select            )],
        gtype                                    => [qw(Type        45    select    default )],
        notes                            => [qw(Notes       50    text              )],
        role                                     => [qw(Role        55    select            )],
        tla                                              => [qw(TLA         60    select    default )],
        name                                     => [qw(Position    65    text              )],
        type                                     => [qw(Class       70    select    default )],
        RCid                                     => [qw(RCid        75    number            )],
        derby_name     => [qw(Assignee    80    select    default )]
);

if ($user->{department}->{"ANN"} > 1) {
# Add:
#               real_name                        RealName
#               email                                    Email
  $COLUMNS{'real_name'} = [qw(RealName    85    text)];
  $COLUMNS{'email'}     = [qw(Email       90    text)];
}

my $stylesheet = "/style.css";
my $homeURL = '/';
my @pagelimitoptions = ("All", 5, 10, 25);

# If we need to modify line item values, create a subroutine named "modify_$columnname"
#    It will receive a hashref to the object lineitem (RETURN the modified field at the end of the function!)

sub modify_derby_name {
  my $t = shift;  

  if ($user->{department}->{"ANN"} < 2 and $t->{derby_name} and $t->{RCid} != $RCid and $LVL < 5) {
    $t->{derby_name} = "FILLED";
  }
  
        my ($yyyy, $mm, $dd) = split /\-/, $t->{date};
        my $cutoff = DateTime->new(
        year => $yyyy,
        month => $mm,
        day => $dd,
        hour => 5,
        minute => 0,
        second => 0,
        time_zone => 'America/Los_Angeles'
  );

        if (($t->{RCid} == $RCid and $t->{gtype} !~ /^selected/ and $now < $cutoff) or ($t->{derby_name} and ($user->{department}->{"ANN"} >= 2 or $LVL >= 5))) {
                # DROP
                $t->{derby_name} = "$t->{derby_name} <A HREF='#' onClick=\"window.open('make_shift_change.pl?change=del&RCid=$t->{RCid}&id=$t->{id}&role=$t->{role}','Confirm Shift Change','resizable,height=260,width=370'); return false;\">[DROP]</a>";
                if ($user->{department}->{"ANN"} >= 2 or $LVL > 4) {
                  # NO SHOW
                  $t->{derby_name} .= " | <A HREF='#' onClick=\"if (confirm('Really? They were a no show?')==true) { window.open('make_shift_change.pl?noshow=true&change=del&RCid=$t->{RCid}&id=$t->{id}&role=$t->{role}','Confirm Shift Change','resizable,height=260,width=370'); return false; }\">[NO SHOW]</a>";
                }
        } elsif (!$t->{derby_name}) {
                if (signUpEligible ($ORCUSER, $t) and $now < $cutoff) {
                        # SIGN UP
                        $t->{derby_name} = "<A HREF='#' onClick=\"window.open('make_shift_change.pl?change=add&RCid=$RCid&id=$t->{id}&role=$t->{role}','Confirm Shift Change','resizable,height=260,width=370'); return false;\">[SIGN UP]</a>";
                }
                if ($user->{department}->{"ANN"} >= 2 or $LVL > 4) {
                        # ADD USER
                        $t->{derby_name} ? $t->{derby_name} .= " | " : {};
                        $t->{derby_name} .= "<A HREF='#' onClick=\"window.open('make_shift_change.pl?change=lookup&RCid=$RCid&id=$t->{id}&role=$t->{role}','Confirm Shift Change','resizable,height=260,width=370'); return false;\">[ADD USER]</a>";
                }
        }
        return $t->{derby_name};
}





# Ideally, nothing below this comment needs to change
#-------------------------------------------------------------------------------


our %NAME              = map  { $_ => $COLUMNS{$_}->[0] } keys %COLUMNS;
our %colOrderHash      = map  { $_ => $COLUMNS{$_}->[1] } keys %COLUMNS;
our %colFilterTypeHash = map  { $_ => $COLUMNS{$_}->[2] } keys %COLUMNS;
our @staticFields      = sort byfield grep { $COLUMNS{$_}->[3] eq 'static' } keys %COLUMNS;
our @defaultFields     = sort byfield grep { defined $COLUMNS{$_}->[3] } keys %COLUMNS;
#our @defaultFields     = grep { $COLUMNS{$_}->[3] eq 'default' or inArray ($_, \@staticFields) } keys %COLUMNS;

our @allFields = sort byfield keys %NAME;
our @displayFields = ();
our @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
        
        if ((/^filter/) and ($FORM{$_} ne '')) {        # Build a set of filters to apply
                my ($filter,$field) = split /-/, $_;            
                $FILTER->{$field} = $FORM{$_};
        }       elsif ($FORM{$_} eq "true")     {               # Compile list of fields to display
          if ($_ ne "shiftinclude") {
                  push @displayFields, $_;
                }
  }
}


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}.'&'.$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 aut0load on by default.
        } 
}

# let's just make sure the columns are in the right order (and there aren't any missing)
@displayFields = 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 = map { filter ($_, $FILTER->{$_}) } grep { defined $FILTER->{$_} } @displayFields;
push @whereClause, @addToWhereClause;

                                                        #  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 @ProductList = @{ getData (\@displayFields, \@whereClause, $DBTABLE, $FORM{sortby}, $curpage, $pagelimit) };
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}) {
  exportExcel (\@ProductList, "RC_Officiating_Shifts");
  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 $signedOnAs = $username ? "Welcome, $username. ".$h->a ({ href=>"index.pl", onClick=>"document.cookie = 'RCAUTH=; expires=Thu, 01 Jan 1970 00:00:01 GMT; path=/';return true;" }, "[Log Out]") : "You are not signed in.";

# Set some cookie stuff...
my $path = `dirname $ENV{REQUEST_URI}`; chomp $path; $path .= '/' unless $path eq "/";
my $queryCookie = cookie(-NAME=>$prefscookie,
                        -VALUE=>"$QUERY_STRING",
                        -PATH=>"$path",
                        -EXPIRES=>'+365d');

# Print the header
print header (-cookie=> [ $queryCookie, $RCAUTH_cookie ] );

#       print "<!-- FORM \n\n";                         # Debug code to dump the FORM to a html comment
#       print "I'm catching updates!!!\n\n";
#       foreach $key (sort (keys %FORM))                #       Must be done after the header is written!
#               { print "\t$key:  $FORM{$key}\n"; }
#       print "--> \n\n";
#       
# 
#       print "<!-- ENV \n\n";                          # Debug code to dump the ENV to a html comment
#       foreach $key (sort (keys %ENV))                 #       Must be done after the header is written!
#               { print "\t$key:  $ENV{$key}\n"; }
#       print "--> \n\n";
# 
#       print "\n\n\n\n<!-- $QUERY_STRING --> \n\n\n\n";


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

# 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 ",
    ]);
  $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=>"Apply Changes", onClick=>"submit(); return false;" });
  $sortby = $h->select ({ name=>"sortby" }, [ map { $FORM{sortby} eq $_ ? $h->option ({ value=>$_, selected=>[] }, $NAME{$_}) : $h->option ({ value=>$_ }, $NAME{$_}) } @displayFields ]);
}

my $SIChecked;
if ($FORM{shiftinclude}) {
  $SIChecked = $h->input ({ type=>"checkbox", name=>"shiftinclude", value=>"true", checked=>[], onClick=>'submit();' });
} else {
  $SIChecked = $h->input ({ type=>"checkbox", name=>"shiftinclude", value=>"true", onClick=>'submit();' });
}



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;

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

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,
      "Show my shifts: ", $SIChecked
    ])
  ]);
}

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

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

my @tmptitlerow;
foreach my $f (@displayFields)  {  # Print the Column headings
  if (inArray ($f, \@staticFields)) {
    push @tmptitlerow, $h->div ({ class=>'rTableHead' }, [ $h->input ({ type=>"hidden", name=>$f, value=>"true" }), $NAME{$f} ]);
  } 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} ]);
    } 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} ]);      
    }
  }
}

# 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)       {
          print $h->div ({ class=>'rTableRow highlighted' }, [ map { $h->div ({ class=>'rTableCell' }, exists &{"modify_".$_} ? &{"modify_".$_} ($t) : $t->{$_}) } @displayFields ]);
  }
  print $h->hr ({ width=>"500%" });
}


# Print the things
foreach my $t (@ProductList)    {
  if ($t->{RCid} eq $ORCUSER->{RCid}) {
          print $h->div ({ class=>'rTableRow highlighted' }, [ map { $h->div ({ class=>'rTableCell' }, exists &{"modify_".$_} ? &{"modify_".$_} ($t) : $t->{$_}) } @displayFields ]);
  } else {
          print $h->div ({ class=>'rTableRow shaded' }, [ map { $h->div ({ class=>'rTableCell' }, exists &{"modify_".$_} ? &{"modify_".$_} ($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, ">>");
  }
}

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 noone\@gmail.com",
        $h->br,
        "Displaying: ", $h->select ({ name=>"year", onchange=>"Req.submit();" }, [ @yearoptions ])
      ])
    ]),
    $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->br; # print $h->br;
#print $h->h5 ("$x Record(s) Displayed");
#print $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,
#  "This page was displayed on $now",
#  $h->br,
#  "Please direct questions, problems, and concerns to noone\@gmail.com"
#]);


print $h->close('form');
print $h->close('html');
Subversion Repositories ORC

(root)/trunk/site/schedule/announcer_shifts.pl – Rev 7
