WebSVN – VORC – Diff – /trunk/site/schedule/view_shift.pl

 #!/usr/bin/perl
+# Redirect error messages to a log of my choosing. (it's annoying to filter for errors in the shared env)
+my $error_log_path = $ENV{SERVER_NAME} eq "volunteers.rollercon.com" ? "/home3/rollerco/logs/" : "/tmp/";
+close STDERR;
+open STDERR, '>>', $error_log_path.'vorc_error.log' or warn "Failed to open redirected logfile ($0): $!";
+#warn "Redirecting errors to ${error_log_path}vorc_error.log";
 use strict;
 use cPanelUserConfig;
 use WebDB;
 use HTML::Tiny;
 use RollerCon;
 use CGI qw/param header start_html url/;
 my $h = HTML::Tiny->new( mode => 'html' );
 my %F;
-my $cookie_string = authenticate (5) || die;
+my $cookie_string = authenticate (RollerCon::USER) || die;
 our ($EML, $PWD, $LVL) = split /&/, $cookie_string;
 my $user = getUser ($EML);
 sub fieldOrder {
 	$FIELDS{$a}->[1] <=> $FIELDS{$b}->[1];
+}
+sub saveForm {
+  error ("ERROR: Only SysAdmins can change shifts.") unless $LVL >= RollerCon::ADMIN;
 sub saveForm {
   my $FTS = shift;
   my $dbh = WebDB::connect ();
 	$dbh->disconnect ();	 # stored into database successfully.
 	return $FTS->{id};
+}
+sub delete_item {
+  error ("ERROR: Only SysAdmins can delete shifts.") unless $LVL >= RollerCon::ADMIN;
 sub delete_item {
   my $X = shift;
   my $dbh = WebDB::connect ();
   $dbh->do ("delete from $DBTable where $primary = ?", undef, $X->{$primary});
   $dbh->disconnect ();
 sub display_form  {
   my $R = shift;
   my $view = shift // "";
 	my $actionbutton;
+  $view = "View" unless $LVL >= RollerCon::ADMIN;
   if ($view eq "POSTSAVE" and $R->{$primary} eq "NEW") {
       print &formField ("Cancel", "Back", "POSTSAVE");
       return;
 	  $dbh->disconnect ();
 	  # did we find a record?
+	  error ("Cannot find a database entry for '$R->{$primary}'") unless defined $F{$DBFields[0]};
+    # If the DB returns a null value, HTML::Tiny doesn't like it, so make sure nulls are converted to empty strings.
+    map { $F{$_} = "" unless $F{$_} } @DBFields;
-	  error ("Cannot find a database entry for '$R->{$primary}'") unless defined $F{$DBFields[0]};
+    ## Check to make sure the user can actually see the shift
-    if ($user->{dept}->{$F{dept}} < 3 and $LVL < 5) {
+    if ($user->{department}->{$F{dept}} < RollerCon::USER and $LVL < RollerCon::ADMIN) {
-  	  error ("You're not a $DepartmentNames->{$F{dept}} Manager!");
+  	  error ("You're not a volunteer in the $DepartmentNames->{$F{dept}} department!");
+    }
       $actionbutton .= formField ("Cancel");
     } else {
       # We're just looking at it...
       print $h->p ("Viewing Shift: $R->{$primary}...");
       $F{$DBFields[0]} .= $h->input ({ type=>"hidden", name=>$DBFields[0], value=> $F{$DBFields[0]} });
+      use DateTime;
+      my $now = DateTime->now (time_zone => 'America/Los_Angeles');
+     	my ($yyyy, $mm, $dd) = split /\-/, $F{date};
+    	my $cutoff = DateTime->new(
+            year => $yyyy,
+            month => $mm,
+            day => $dd,
+            hour => 5,
+            minute => 0,
+            second => 0,
+            time_zone => 'America/Los_Angeles'
+      );
+     	if (!$F{assignee_id}) {
+     	  $F{assignee_id} = "OPEN";
+     		if (signUpEligible ($ORCUSER, \%F, "vol") and $now < $cutoff) {
+     			# SIGN UP
+     			$F{assignee_id} .= " | <A HREF='#' onClick=\"event.stopPropagation(); window.open('make_shift_change.pl?change=add&RCid=$RCid&id=$R->{$primary}','Confirm Shift Change','resizable,height=260,width=370'); return false;\">[SIGN UP]</a>";
+     		}
+     		if ($user->{department}->{$F{dept}} >= RollerCon::LEAD or $LVL >= RollerCon::ADMIN) {
+     			# ADD USER
+     			$F{assignee_id} .= " | <A HREF='#' onClick=\"event.stopPropagation(); window.open('make_shift_change.pl?change=lookup&RCid=$RCid&id=$R->{$primary}','Confirm Shift Change','resizable,height=260,width=370'); return false;\">[ADD USER]</a>";
+     		}
+     	} elsif (($F{assignee_id} == $RCid and $F{type} ne "selected" and $now < $cutoff) or $user->{department}->{$F{dept}} >= RollerCon::LEAD or $LVL >= RollerCon::ADMIN) {
+     	  my $temp = $h->a ({ href=>"/schedule/view_user.pl?RCid=$F{assignee_id}" }, getUserDerbyName ($F{assignee_id}));
+     		# DROP
+     		$temp .= " | <A HREF='#' onClick=\"event.stopPropagation(); if (confirm('Really? You want to drop this person from the shift?')==true) { window.open('make_shift_change.pl?change=del&RCid=$F{assignee_id}&id=$R->{$primary}','Confirm Shift Change','resizable,height=260,width=370'); return false; }\">[DROP]</a>";
+     		if ($user->{department}->{$F{dept}} >= RollerCon::LEAD or $LVL >= RollerCon::ADMIN) {
+     		  # NO SHOW
+     		  $temp .= " | <A HREF='#' onClick=\"event.stopPropagation(); if (confirm('Really? They were a no show?')==true) { window.open('make_shift_change.pl?noshow=true&change=del&RCid=$F{assignee_id}&id=$R->{$primary}','Confirm Shift Change','resizable,height=260,width=370'); return false; }\">[NO SHOW]</a>";
+     		}
+     		$F{assignee_id} = $temp;
+     	} else {
+     	  $F{assignee_id} = "FILLED";
+     	}
       $F{dept} = $DepartmentNames->{$F{dept}};
-      if ($F{assignee_id}) {
-        my $temp;
-        $temp = getUserDerbyName ($F{assignee_id});
-        $temp .= "&nbsp;".$h->a ({ onClick=>"if (confirm('Really? You want to drop this person from the shift?')==true) { window.open('make_shift_change.pl?change=del&RCid=$F{assignee_id}&id=$R->{$primary}','Confirm Shift Change','resizable,height=260,width=370'); return false; }" }, "[DROP]");
-        $F{assignee_id} = $temp;
-      } else {
-        $F{assignee_id} = $h->a ({ onClick=>"window.open('make_shift_change.pl?change=lookup&id=$R->{$primary}','Confirm Shift Change','resizable,height=260,width=370'); return false;" }, "[ADD USER]");
-      }
       $F{doubletime} = $F{doubletime} ? "TRUE" : "FALSE";
-      $actionbutton = formField ("choice", "Update");
+      $actionbutton = formField ("choice", "Update") unless $F{dept} eq "Coaching" or $LVL < RollerCon::ADMIN;
       if ($view eq "POSTSAVE" or $choice eq "View") {
         $actionbutton .= formField ("Cancel", "Back", "POSTSAVE");
       } else {
         $actionbutton .= formField ("Cancel", "Back");
+      }
+    }
+  } else {
+    error ("No Shift ID provided.") unless $LVL >= RollerCon::ADMIN;
   } else {
     print $h->p ("Adding a new Shift...");
     foreach (@DBFields) {
   print $h->close ("form");
+}
+sub process_form  {
+  error ("ERROR: Only SysAdmins can change shifts.") unless $LVL >= RollerCon::ADMIN;
 sub process_form  {
   my %FORM;
   foreach (keys %FIELDS) {
   	if ($fieldType{$_} =~ /^text/) {
   		$FORM{$_} = WebDB::trim param ($_) // "";
 	my $type = $fieldType{$name} // "button";
   if ($type eq "button") {
 		if ($name eq "Cancel") {
 		  if ($context eq "POSTSAVE") {
-		    return $h->input ({ type=>"button", value => $value ne '' ? $value : "Cancel" , onClick=>"window.location.href = \"manage_shifts.pl\"; return false;" });
+		    return $h->input ({ type=>"button", value => $value ne '' ? $value : "Cancel" , onClick=>"window.location.href = \"shifts.pl\"; return false;" });
 		  } else {
 		    return $h->input ({ type=>"button", value => $value ne '' ? $value : "Cancel" , onClick=>"history.back(); return false;" });
+		  }
 		} else {

Subversion Repositories VORC

(root)/trunk/site/schedule/view_shift.pl – Rev 55 → 56