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

 my $username = $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];
+if (!$ORCUSER->{MVPid} and $LVL < RollerCon::ADMIN and $ORCUSER->{department}->{MVP} < RollerCon::USER and $ORCUSER->{department}->{COA} < RollerCon::USER) {
+  print header(-cookie=>$RCAUTH_cookie);
+  printRCHeader("Unauthorized Page");
+  print $h->div ({ class=>"error" }, "No Access");
+  print $h->div ("Your user account is not registered to sign up for MVP Classes, so you can't see this page.  It's possible that your access is still being reviewed.  Please be patient.");
+  print $h->a ({ href=>"/schedule/" }, "[Go Home]");
+  print $h->close ("body");
+  print $h->close ("html");
+  exit;
+}
 my $pageTitle = "View MVP Class";
 my $homeURL = "/schedule/";
       $actionbutton = formField ("choice", "Save");
       $actionbutton .= formField ("Cancel");
     } else {
       # We're just looking at it...
       print $h->p ("Viewing Class: $R->{$primary}...");
+      if ($ORCUSER->{MVPid}) {
+        my $dbh = WebDB::connect ();
+        ($F{available}) = $dbh->selectrow_array ("select available from v_class_new where id = ?", undef, $R->{id});
+        $dbh->disconnect;
+        $F{capacity} = $F{available} . " / " . modify_capacity (\%F);
+      }
       $F{$DBFields[0]} .= $h->input ({ type=>"hidden", name=>$DBFields[0], value=> $F{$DBFields[0]} });
       my $coachEditor = ($LVL >= RollerCon::ADMIN or $user->{department}->{MVP} >= RollerCon::MANAGER or $user->{department}->{VCI} >= RollerCon::MANAGER) ? 1 : 0;
       $coachRCid = $F{coach};
       $F{coach} = "";
       foreach (@CoachShifts) {
         my $sr = getShiftRef ($_);
-        $F{coach} .= $h->a ({ href=>"/schedule/view_user.pl?RCid=$sr->{assignee_id}" }, getUserDerbyName ($sr->{assignee_id}));
+        $F{coach} .= $h->a ({ href=>"/schedule/view_coach.pl?RCid=$sr->{assignee_id}" }, getUserDerbyName ($sr->{assignee_id}));
         $F{coach} .= '&nbsp;' . $h->button ({name => "coachchange",  value => "delete_coach:$sr->{assignee_id}"}, "Remove") if $coachEditor;
         $F{coach} .= $h->br;
         push @CoachRCids, $sr->{assignee_id};
+      }
+      }
       $F{assistant} = "";
       foreach (@AsstCoachShifts) {
         my $sr = getShiftRef ($_);
-        $F{assistant} .= $h->a ({ href=>"/schedule/view_user.pl?RCid=$sr->{assignee_id}" }, getUserDerbyName $sr->{assignee_id});
+        $F{assistant} .= $h->a ({ href=>"/schedule/view_coach.pl?RCid=$sr->{assignee_id}" }, getUserDerbyName $sr->{assignee_id});
         $F{assistant} .= '&nbsp;' . $h->button ({name => "coachchange",  value => "delete_assistant:$sr->{assignee_id}"}, "Remove") if $coachEditor;
         $F{assistant} .= $h->br;
         push @AsstCoachRCids, $sr->{assignee_id};
+      }
           $F{assistant} .= select_assistant () . $h->button ({name => "coachchange",  value => "save_assistant"}, "Save");
         } else {
           $F{assistant} .= $h->button ({name => "coachchange",  value => "add_assistant"}, "Add Assistant");
+        }
+      }
       $F{start_time} = convertTime $F{start_time};
       $F{end_time}   = convertTime $F{end_time};
       $actionbutton = formField ("choice", "Update") unless $LVL < RollerCon::ADMIN;
   print $h->p ({ class=>"success" }, "Class successfully saved.");
   display_form ({ $primary=>$FORM{id} }, "POSTSAVE");
+}
+sub modify_capacity {
+  my $t = shift;
+  my $classid = $t->{id};
+  $classid =~ s/^(\d+).*/$1/;
+  use DateTime;
+  my $now = DateTime->now (time_zone => 'America/Los_Angeles');
+  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'
+  );
+  return $t->{capacity} . " | CLOSED" unless $now < $cutoff;
+  my $classkey = join '|', $t->{date}, $t->{start_time}, $t->{location};
+  my $dbh = WebDB::connect;
+  ($t->{signedup}) = $dbh->selectrow_array ("select role from v_class_signup_new where RCid = ? and id = ?", undef, $ORCUSER->{RCid}, $classid );
+  $dbh->disconnect;
+  my $droplink = $h->button ({ onClick=>"if (confirm('Really? You want to drop this class?')==true) { window.open('make_shift_change.pl?change=del&RCid=$ORCUSER->{RCid}&id=$classid&role=$t->{signedup}','Confirm Change','resizable,height=260,width=370'); return false; }" }, "DROP");
+  if (!$t->{available}) {
+    my $full = " | FULL";
+    $full .= '&nbsp;'.$droplink unless !$t->{signedup};
+    return $t->{capacity} . $full;
+  }
+#  $t->{capacity} .= " | Open";
+  $t->{capacity} .= '&nbsp;'.$droplink unless !$t->{signedup};
+  if (findConflict ($ORCUSER->{RCid}, $classid, "class")) {
+    $t->{capacity} .= " | *schedule conflict*" unless $t->{signedup};
+  } elsif (signUpEligible ($ORCUSER, $t, "class")) {
+    # SIGN UP
+    $t->{capacity} .= '&nbsp;'.$h->button ({ onClick=>"event.stopPropagation(); window.open('make_shift_change.pl?change=add&RCid=$ORCUSER->{RCid}&id=$classkey','Confirm Class Change','resizable,height=260,width=370'); return false;" }, "SIGN UP");
+  }
+  return $t->{capacity};
+}
 sub error {
   my $msg = shift;
   print $h->p ({ class=>"error" }, "Error: $msg");

Subversion Repositories VORC

(root)/trunk/site/schedule/view_class.pl – Rev 215 → 222