741 lines
28 KiB
Perl
741 lines
28 KiB
Perl
|
#!/usr/bin/perl
|
||
|
|
|
||
|
|
print "Content-type: text/html\n\n";
|
||
|
|
|
||
|
|
BEGIN { use lib '/usr/home/cfg' ; require push_inc ; }
|
||
|
|
|
||
|
|
use CGI::Carp qw(fatalsToBrowser);
|
||
|
|
use JSON::Repair ':all';
|
||
|
|
|
||
|
|
require cfg ;
|
||
|
|
|
||
|
|
# my $referer = $ENV{HTTP_REFERER} ; exit unless $referer =~ m/itvadmin/iog ;
|
||
|
|
|
||
|
|
&today;
|
||
|
|
|
||
|
|
#------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
@ARGV = split(/\\*\&/, $ENV{'QUERY_STRING'}); foreach $ARG (@ARGV) { ($par,$val) = split(/\=/,$ARG) ; $param{$par} = $val ; }
|
||
|
|
|
||
|
|
# https://itvadmin.co.za/cgi-bin/scripts/get/get_db_cal_events.pl?start=2024-10-01 00:00:00&end=2024-10-30 00:00:00&debug=1
|
||
|
|
|
||
|
|
our $debug = $param{debug} ; # our $username = 'rory' if $debug == 1 ;
|
||
|
|
|
||
|
|
$param{start} =~ s/T/ /g ; my $param_start = substr($param{start},0,10);
|
||
|
|
$param{end} =~ s/T/ /g ; my $param_end = substr($param{end},0,10);
|
||
|
|
|
||
|
|
# $param{start} = "2025-02-01 00:00:00" ;
|
||
|
|
# $param{end} = "2025-02-28 23:00:00" ;
|
||
|
|
|
||
|
|
#------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
use Date::Calc qw(:all);
|
||
|
|
|
||
|
|
$json = '[' ;
|
||
|
|
|
||
|
|
&db_open_ro ;
|
||
|
|
our $db_ignore_open_close = 1 ; # do one open and one close instead of repeating it
|
||
|
|
&check_session ;
|
||
|
|
&get_db_calendar_events ;
|
||
|
|
&get_db_event_quotes ;
|
||
|
|
# &get_db_leave ;
|
||
|
|
$db_ignore_open_close = 0 ; # do one open and one close instead of repeating it
|
||
|
|
&db_close_conn ;
|
||
|
|
|
||
|
|
chop $json if length $json > 1 ; # $json = substr($json,0,-1) ;
|
||
|
|
$json .= ']' ;
|
||
|
|
|
||
|
|
print $json ;
|
||
|
|
|
||
|
|
exit ;
|
||
|
|
|
||
|
|
#------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub get_db_calendar_events {
|
||
|
|
|
||
|
|
unless ($param{start} && $param{end}) { return ; }
|
||
|
|
|
||
|
|
&db_min_ro('users','id,name,user_type','','','') ;
|
||
|
|
foreach (keys %{$db{users}}) {
|
||
|
|
$user_name{$_} = $db{users}{$_}{name} ;
|
||
|
|
$casual_type{$_} = uc substr($db{users}{$_}{user_type},-1,1) ;
|
||
|
|
}
|
||
|
|
|
||
|
|
&db_min_ro('events','*',"((`startdate` >= '$param_start 00:00:00' AND `startdate` <= '$param_end 23:59:59') OR ('$param_start 23:59:59' >= `startdate` AND '$param_start 00:00:00' <= `enddate`))",'','') ;
|
||
|
|
|
||
|
|
# &db_min_ro('events','*',"enddate >= '$param{start}' AND startdate <= '$param{end}'",'','') ;
|
||
|
|
|
||
|
|
foreach my $id (keys %{$db{events}}) {
|
||
|
|
|
||
|
|
# &common_debug("get_db_leave - $db{events}{$id}{category} -> $db{events}{$id}{title}");
|
||
|
|
|
||
|
|
my $start = $db{events}{$id}{startdate} ; $start =~ s/ /T/g ;
|
||
|
|
my $end = $db{events}{$id}{enddate} ; $end =~ s/ /T/g ;
|
||
|
|
my $cat = $db{events}{$id}{category} ; $uccat = uc $cat ;
|
||
|
|
my $qnr = $db{events}{$id}{event_quote_nr} ;
|
||
|
|
my $uid = $db{events}{$id}{user_id} ;
|
||
|
|
my $title = ucfirst $cat ; $title =~ s/\_/ /g ;
|
||
|
|
|
||
|
|
my $date_start = substr($start,0,10);
|
||
|
|
my $date_end = substr($end,0,10);
|
||
|
|
|
||
|
|
if ($cat eq 'leave') {
|
||
|
|
$color = '#ff00ff' ;
|
||
|
|
my $leave_type = ucfirst $db{events}{$id}{type} ;
|
||
|
|
$title = $leave_type . ' Leave' ;
|
||
|
|
} elsif ($cat eq 'weekend_work') {
|
||
|
|
$start = &cal_set_time($db{events}{$id}{startdate},-24); $start =~ s/ /T/g ;
|
||
|
|
$color = 'purple' ;
|
||
|
|
} elsif ($cat eq 'public_holiday') {
|
||
|
|
$start = substr($db{events}{$id}{startdate},0,10) . 'T00:00:00';
|
||
|
|
$end = substr($db{events}{$id}{enddate},0,10) . 'T23:59:59';
|
||
|
|
$color = 'red' ;
|
||
|
|
} elsif ($cat eq 'available') {
|
||
|
|
$color = '#00FF00' ;
|
||
|
|
} elsif ($cat eq 'unavailable') {
|
||
|
|
$color = '#ff4136' ; # red
|
||
|
|
} elsif ($cat eq 'other') {
|
||
|
|
$color = '#e3c728' ; # yellow
|
||
|
|
# } elsif (substr($usertype,0,6) eq 'casual') {
|
||
|
|
} elsif ($is_operator) {
|
||
|
|
$color = '#efad1d' ; # orange
|
||
|
|
} else {
|
||
|
|
$color = '#3498DB' ;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($qnr) {
|
||
|
|
# $total_casuals_working{$date_start}{$date_end}{$casual_type{$uid}}{$qnr}++ if $cat eq 'available' ; # count casuals subscribed for the event
|
||
|
|
# $subscribed_names{$date_start}{$date_end}{$casual_type{$uid}}{$qnr} .= "$user_name{$uid}, " if $cat eq 'available' ;
|
||
|
|
$total_casuals_working{$date_start}{$date_end}{$qnr}++ if $cat eq 'available' ; # count casuals subscribed for the event
|
||
|
|
$subscribed_names{$date_start}{$date_end}{$qnr} .= "$user_name{$uid}, " if $cat eq 'available' ;
|
||
|
|
}
|
||
|
|
|
||
|
|
# if (substr($usertype,0,6) eq 'casual') {
|
||
|
|
if ($is_operator && $operator_level < 2 && !$is_temp_calibrator) {
|
||
|
|
# next unless $cat eq 'available' or $cat eq 'unavailable' ;
|
||
|
|
if ($qnr) {
|
||
|
|
# $show_available{$casual_type{$uid}}{$qnr}{$uid} = $uccat . ' : ' . $db{events}{$id}{title} ;
|
||
|
|
# $color_available{$casual_type{$uid}}{$qnr}{$uid} = $color ;
|
||
|
|
# print "1. show_available [casual_type =$casual_type{$uid}] [$date_start->$date_end, $qnr, $uid][if ($show_available{$date_start}{$date_end}{$operator{$_}}{$quote_nr}{$userid} and $in_the_past!=1 and $casual_type{$userid} eq $operator{$_})]\n" if $debug ;
|
||
|
|
# $show_available{$date_start}{$date_end}{$casual_type{$uid}}{$qnr}{$uid} = $uccat . ' : ' . $db{events}{$id}{title} ;
|
||
|
|
# $show_available{$date_start}{$date_end}{$casual_type{$uid}}{$qnr}{$uid} = $uccat ;
|
||
|
|
# $color_available{$date_start}{$date_end}{$casual_type{$uid}}{$qnr}{$uid} = $color ;
|
||
|
|
|
||
|
|
$show_available{$date_start}{$date_end}{$qnr}{$uid} = $uccat ;
|
||
|
|
$color_available{$date_start}{$date_end}{$qnr}{$uid} = $color ;
|
||
|
|
}
|
||
|
|
next ;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($cat eq 'available' || $cat eq 'unavailable') { # skip events display
|
||
|
|
next ;
|
||
|
|
}
|
||
|
|
|
||
|
|
my ($s_date,$s_time) = split(/\ /,$db{events}{$id}{startdate}) ; my ($s_ccyy,$s_mm,$s_dd) = split(/\-/,$s_date) ; my $s_txt = Date_to_Text($s_ccyy,$s_mm,$s_dd); my ($s_hr,$s_mn,$s_sc) = split(/\:/,$s_time) ;
|
||
|
|
my ($e_date,$e_time) = split(/\ /,$db{events}{$id}{enddate}) ; my ($e_ccyy,$e_mm,$e_dd) = split(/\-/,$e_date) ; my $e_txt = Date_to_Text($e_ccyy,$e_mm,$e_dd); my ($e_hr,$e_mn,$e_sc) = split(/\:/,$e_time) ;
|
||
|
|
|
||
|
|
my $disp_title = qq($title [$user_name{$db{events}{$id}{user_id}}] $s_txt - $e_txt) ;
|
||
|
|
|
||
|
|
if (($cat eq 'public_holiday') or ($cat eq 'other')) {
|
||
|
|
my $notes = $db{events}{$id}{notes} ; $notes =~ s/"/'/g ;
|
||
|
|
$disp_title = qq($title : $db{events}{$id}{notes}) ;
|
||
|
|
}
|
||
|
|
|
||
|
|
# $disp_title = &fix_json($disp_title) ;
|
||
|
|
|
||
|
|
$disp_title = &common_clean_json_two($disp_title) ;
|
||
|
|
|
||
|
|
$json_ele = qq~{
|
||
|
|
"id": "$id",
|
||
|
|
"title": "$disp_title",
|
||
|
|
"start": "$start",
|
||
|
|
"end": "$end",
|
||
|
|
"color": "$color",
|
||
|
|
"url": "javascript:dlgMdl('/cgi-bin/scripts/dialog/events.pl?$id','$title','','medium-dialog');"
|
||
|
|
}~ ;
|
||
|
|
|
||
|
|
my $json_rep = repair_json($json_ele);
|
||
|
|
|
||
|
|
$json .= qq~$json_rep,~ if $json_rep ;
|
||
|
|
|
||
|
|
# $json .= qq~{
|
||
|
|
# "id": "$id",
|
||
|
|
# "title": "$disp_title",
|
||
|
|
# "start": "$start",
|
||
|
|
# "end": "$end",
|
||
|
|
# "color": "$color",
|
||
|
|
# "url": "javascript:dlgMdl('/cgi-bin/scripts/dialog/events.pl?$id','$title','','medium-dialog');"
|
||
|
|
# },~ ;
|
||
|
|
}
|
||
|
|
|
||
|
|
# [
|
||
|
|
# {
|
||
|
|
# title: 'Conference',
|
||
|
|
# start: '2016-01-11',
|
||
|
|
# end: '2016-01-13'
|
||
|
|
# },
|
||
|
|
|
||
|
|
# ]
|
||
|
|
|
||
|
|
# events: [
|
||
|
|
# {
|
||
|
|
# title: 'Business Lunch',
|
||
|
|
# start: '2016-01-03T13:00:00',
|
||
|
|
# constraint: 'businessHours'
|
||
|
|
# },
|
||
|
|
# {
|
||
|
|
# title: 'Meeting',
|
||
|
|
# start: '2016-01-13T11:00:00',
|
||
|
|
# constraint: 'availableForMeeting', // defined below
|
||
|
|
# color: '#257e4a'
|
||
|
|
# },
|
||
|
|
|
||
|
|
# // areas where "Meeting" must be dropped
|
||
|
|
# {
|
||
|
|
# id: 'availableForMeeting',
|
||
|
|
# start: '2016-01-11T10:00:00',
|
||
|
|
# end: '2016-01-11T16:00:00',
|
||
|
|
# rendering: 'background'
|
||
|
|
# },
|
||
|
|
# {
|
||
|
|
# id: 'availableForMeeting',
|
||
|
|
# start: '2016-01-13T10:00:00',
|
||
|
|
# end: '2016-01-13T16:00:00',
|
||
|
|
# rendering: 'background'
|
||
|
|
# },
|
||
|
|
|
||
|
|
# // red areas where no events can be dropped
|
||
|
|
# {
|
||
|
|
# start: '2016-01-24',
|
||
|
|
# end: '2016-01-28',
|
||
|
|
# overlap: false,
|
||
|
|
# rendering: 'background',
|
||
|
|
# color: '#ff9f89'
|
||
|
|
# },
|
||
|
|
# {
|
||
|
|
# start: '2016-01-06',
|
||
|
|
# end: '2016-01-08',
|
||
|
|
# overlap: false,
|
||
|
|
# rendering: 'background',
|
||
|
|
# color: '#ff9f89'
|
||
|
|
# }
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub get_db_event_quotes {
|
||
|
|
|
||
|
|
unless ($param{'start'} && $param{'end'}) { return ; }
|
||
|
|
|
||
|
|
&db_min_ro('event_systems','id,system_type',"`system_type`='fixed'",'','') ;
|
||
|
|
|
||
|
|
my $table = 'event_quotes' ;
|
||
|
|
|
||
|
|
# if ($is_schools_manager) {
|
||
|
|
# @report_sql_or = () ;
|
||
|
|
# foreach $_orig_id (keys %{$glob_orgids{$userid}}) {
|
||
|
|
# push @report_sql_or, "organisation_ids LIKE '%$_orig_id%'"
|
||
|
|
# }
|
||
|
|
# my $sql_or = join(' OR ',@report_sql_or) ;
|
||
|
|
# push @report_sql, "($sql_or)" ;
|
||
|
|
# }
|
||
|
|
|
||
|
|
if ($is_installation_partner) {
|
||
|
|
@report_sql_or = () ;
|
||
|
|
foreach $_cust_id (keys %{$glob_custids{$userid}}) {
|
||
|
|
push @report_sql_or, "quote_to = '$_cust_id'"
|
||
|
|
}
|
||
|
|
foreach $_reg_id (keys %{$glob_regids{$userid}}) {
|
||
|
|
push @report_sql_or, "region_id = '$_reg_id'"
|
||
|
|
}
|
||
|
|
my $sql_or = join(' OR ',@report_sql_or) ;
|
||
|
|
push @report_sql, "($sql_or)" if $sql_or ;
|
||
|
|
push @report_sql, "quote_accepted='1'" if $is_installation_partner ;
|
||
|
|
} elsif ($is_schools_manager || ($is_operator && $operator_level > 1 && !$is_temp_calibrator)) {
|
||
|
|
@report_sql_or = () ;
|
||
|
|
foreach $_reg_id (keys %{$glob_regids{$userid}}) {
|
||
|
|
push @report_sql_or, "region_id = '$_reg_id'"
|
||
|
|
}
|
||
|
|
my $sql_or = join(' OR ',@report_sql_or) ;
|
||
|
|
push @report_sql, "($sql_or)" if $sql_or ;
|
||
|
|
push @report_sql, "quote_created='1'" if $is_schools_manager ;
|
||
|
|
push @report_sql, "quote_accepted='1'" if $is_operator ;
|
||
|
|
# } elsif (substr($usertype,0,6) eq 'casual') {
|
||
|
|
# } elsif ($is_operator && $operator_level < 2) {
|
||
|
|
} elsif ($is_operator && $operator_level < 2 && !$is_temp_calibrator) {
|
||
|
|
# push @report_sql, "(operator_ids='$userid' OR operator_ids LIKE '%$userid,%' OR operator_ids LIKE '%,$userid%')" ;
|
||
|
|
# push @report_sql, "(operator_ids LIKE '%$userid%')" ;
|
||
|
|
push @report_sql, "(FIND_IN_SET($userid,operator_ids) OR FIND_IN_SET($userid,REPLACE(REPLACE(daily_operator_ids,';',','),'|',',')))" ;
|
||
|
|
push @report_sql, "quote_accepted='1'" ;
|
||
|
|
} else {
|
||
|
|
push @report_sql, "quote_accepted='1'" ;
|
||
|
|
}
|
||
|
|
|
||
|
|
my $srch_where_sql = join(' AND ', @report_sql) ; my $sql_where = ($srch_where_sql) ? "AND $srch_where_sql" : '' ;
|
||
|
|
|
||
|
|
# &db_min_ro($table,'*',"date_to >= '$param{start}' AND date_from <= '$param{end}' $sql_where",'','') ;
|
||
|
|
|
||
|
|
&db_min_ro($table,'id,demo_id,date_from,date_to,ref,quote_nr,type,notes,operator_ids,nr_of_casuals,fixed_system_overall_status,event_system_id_multiple,quote_rejected,quote_completed,quote_accepted,quote_created,quote_pending,daily_operator_ids,times_from,times_to',"((date_to >= '$param{start}' AND date_to <= '$param{end}') OR (date_from >= '$param{start}' AND date_from <= '$param{end}')) $sql_where",'','') ;
|
||
|
|
|
||
|
|
&db_min_ro('analytics_event_bookings','event_quote_id',"event_quote_id<>'0'",'','') ;
|
||
|
|
|
||
|
|
my %analytics_events = () ;
|
||
|
|
|
||
|
|
foreach (keys %{$db{analytics_event_bookings}}) {
|
||
|
|
$analytics_events{$_} = 1 ;
|
||
|
|
}
|
||
|
|
|
||
|
|
# $analytics_events{$event_id}
|
||
|
|
|
||
|
|
# &db_min_ro($table,'*',"date_to >= '$param{start}' AND date_from <= '$param{end}' AND quote_accepted = 1",'','') ;
|
||
|
|
|
||
|
|
# print "get_db_event_quotes [SELECT * FROM event_quotes WHERE ((date_to >= '$param{start}' AND date_to <= '$param{end}') OR (date_from >= '$param{start}' AND date_from <= '$param{end}')) $sql_where]\n" if $debug ;
|
||
|
|
|
||
|
|
@colors = ('#00FF00','#6666FF','#FF33FF','#00FFFF','#2dc8ed','#FF6600','#28b62c') ;
|
||
|
|
|
||
|
|
foreach my $id (keys %{$db{$table}}) {
|
||
|
|
|
||
|
|
my $start = $db{$table}{$id}{date_from} ; $start =~ s/ /T/g ;
|
||
|
|
my $end = $db{$table}{$id}{date_to} ; $end =~ s/ /T/g ;
|
||
|
|
|
||
|
|
my $ref = $db{$table}{$id}{ref} ;
|
||
|
|
my $quote_nr = $db{$table}{$id}{quote_nr} ;
|
||
|
|
my $type = $db{$table}{$id}{type} ;
|
||
|
|
my $notes = $db{$table}{$id}{notes} ; $notes =~ s/\r\n|\n/ - /g; $title =~ s/\t/ /g;
|
||
|
|
# my $operator_ids = $db{$table}{$id}{operator_ids} ;
|
||
|
|
my @operator_ids = split(/\,/,$db{$table}{$id}{operator_ids});
|
||
|
|
# $operator{1} = $db{$table}{$id}{casual_worker} ;
|
||
|
|
$nr_of_casuals{1} = $db{$table}{$id}{nr_of_casuals} ;
|
||
|
|
# $casual_worker{2} = $db{$table}{$id}{casual_worker_2} ;
|
||
|
|
# $nr_of_casuals{2} = $db{$table}{$id}{nr_of_casuals_2} ;
|
||
|
|
|
||
|
|
# if (substr($usertype,0,6) eq 'casual') {
|
||
|
|
|
||
|
|
if ($is_operator && $operator_level < 2 && !$is_temp_calibrator) {
|
||
|
|
my $valid = 0 ;
|
||
|
|
foreach my $_opid (@operator_ids) {
|
||
|
|
$valid = 1 if $_opid == $userid ;
|
||
|
|
}
|
||
|
|
if ($db{$table}{$id}{daily_operator_ids} && !$valid) {
|
||
|
|
|
||
|
|
foreach my $op_ids (split(/\|/,$db{$table}{$id}{daily_operator_ids})) {
|
||
|
|
|
||
|
|
foreach my $_opid (split(";",$op_ids)) {
|
||
|
|
|
||
|
|
$valid = 1 if $_opid == $userid ;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
next unless $valid ;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
# print "1. ok_for_casual [$quote_nr] [operator=$db{$table}{$id}{casual_worker}] [nr_of_casuals=$db{$table}{$id}{nr_of_casuals}] [casual_worker_2=$db{$table}{$id}{casual_worker_2}] [nr_of_casuals_2=$db{$table}{$id}{nr_of_casuals_2}] \n" if $debug ;
|
||
|
|
|
||
|
|
# &common_debug("get_db_event_quotes - $ref -> $start -> $end");
|
||
|
|
|
||
|
|
# print "get_db_event_quotes [$ref -> $start -> $end]\n" if $debug ;
|
||
|
|
|
||
|
|
my $date_start = substr($start,0,10);
|
||
|
|
my $date_end = substr($end,0,10);
|
||
|
|
|
||
|
|
my $ttl_operator_grps = 0 ; for (1 .. 2) { $ttl_operator_grps++ ; }
|
||
|
|
|
||
|
|
my $cnow = $now_ccyymmdd . $now_hour . $now_min . $now_sec ;
|
||
|
|
my $cstart = $start ; $cstart =~ s/T//g ; $cstart =~ s/-//g ; $cstart =~ s/://g ;
|
||
|
|
my $cend = $end ; $cend =~ s/T//g ; $cend =~ s/-//g ; $cend =~ s/://g ;
|
||
|
|
my $in_the_past = 0 ;
|
||
|
|
|
||
|
|
if ($cstart < $cnow && $cend < $cnow) {
|
||
|
|
$color = '#999999' ;
|
||
|
|
$in_the_past = 1 ;
|
||
|
|
} else {
|
||
|
|
$color = '#FF66FF' ;
|
||
|
|
}
|
||
|
|
|
||
|
|
if ($db{$table}{$id}{demo_id}) {
|
||
|
|
$color = 'rgb(255,64,255)' ;
|
||
|
|
} elsif ($analytics_events{$id}) {
|
||
|
|
$color = 'rgb(255,129,0);' ;
|
||
|
|
} elsif ($db{$table}{$id}{quote_completed}) {
|
||
|
|
$color = '#51b529' ; # green
|
||
|
|
} elsif ($db{$table}{$id}{quote_accepted}) {
|
||
|
|
$color = '#51cbf2' ; # blue
|
||
|
|
# $tt_txt = 'Accepted' ;
|
||
|
|
my @fixed_system_overall_statuses = split(/\;/,$db{$table}{$id}{fixed_system_overall_status}) ;
|
||
|
|
my @event_system_ids = split(/\;/,$db{$table}{$id}{event_system_id_multiple}) ;
|
||
|
|
my $event_sys_cnt = 0 ; my $got_some_fixed = 0 ; # my $event_sys_test_status = 0 ; # my $color = '#164473' ; # Dark Blue
|
||
|
|
|
||
|
|
print "1. quote_accepted [fixed_system_overall_status=$db{$table}{$id}{fixed_system_overall_status}] [event_system_id_multiple=$db{$table}{$id}{event_system_id_multiple}] \n" if $debug ;
|
||
|
|
|
||
|
|
foreach my $sys_id (@event_system_ids) {
|
||
|
|
if ($db{event_systems}{$sys_id}{system_type} eq 'fixed') {
|
||
|
|
|
||
|
|
print "1. quote_accepted fixed [event_id=$sys_id] [event_system_id_multiple=$db{$table}{$id}{event_system_id_multiple}] \n" if $debug ;
|
||
|
|
|
||
|
|
# $tt_txt = 'Accepted and tests show All Clear for the Fixed Systems' if $tt_txt eq 'Accepted' ;
|
||
|
|
$color = '#164473' unless $got_some_fixed ; # Dark Blue
|
||
|
|
$got_some_fixed = 1 ;
|
||
|
|
if ($fixed_system_overall_statuses[$event_sys_cnt] == 3) { # Not Clear
|
||
|
|
$color = '#5d09d3' ; # Dark Purple
|
||
|
|
# $tt_txt = 'Accepted but Not Clear on some Fixed Systems' ;
|
||
|
|
} elsif ($fixed_system_overall_statuses[$event_sys_cnt] == 2) { # Sound Issue
|
||
|
|
$color = '#5d092c' ;
|
||
|
|
# $tt_txt = 'Accepted but Sound Issue found on some Fixed Systems' ;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
$event_sys_cnt++;
|
||
|
|
}
|
||
|
|
# if ($got_some_fixed) { $style = "style='background-color:#$fixed_status_color;border-color:#$fixed_status_color'"; }
|
||
|
|
} elsif ($db{$table}{$id}{quote_rejected}) {
|
||
|
|
$color = '#ca0ad3' ; # purple
|
||
|
|
} elsif ($db{$table}{$id}{quote_created}) {
|
||
|
|
$color = '#f6e305' ; # yellow
|
||
|
|
} elsif ($db{$table}{$id}{quote_pending}) {
|
||
|
|
$color = '#eda52d' ; # orange
|
||
|
|
}
|
||
|
|
|
||
|
|
# my $jstitle = 'EVENT: ' . $quote_nr ;
|
||
|
|
my $jstitle = 'EVENT: ' . $ref . ' [' . $quote_nr . ']' ;
|
||
|
|
|
||
|
|
# if (substr($usertype,0,6) eq 'casual') {
|
||
|
|
if ($is_operator && $operator_level < 2 && !$is_temp_calibrator) {
|
||
|
|
|
||
|
|
# %ok_for_casual = () ;
|
||
|
|
$ok_for_casual = 0 ;
|
||
|
|
|
||
|
|
print "1. ok_for_casual [$ok_for_casual] [ttl_operator_grps=$ttl_operator_grps]\n" if $debug ;
|
||
|
|
|
||
|
|
for (1 .. $ttl_operator_grps) {
|
||
|
|
|
||
|
|
print "2. ok_for_casual [$ok_for_casual] [$_] [$operator{$_}]\n" if $debug ;
|
||
|
|
|
||
|
|
# next unless $operator{$_} ;
|
||
|
|
|
||
|
|
# print "2. ok_for_casual [$date_start->$date_end, $quote_nr, $userid][show_available:$show_available{$date_start}{$date_end}{$quote_nr}{$userid} and in_the_past:$in_the_past!=1 and casual_type:$casual_type{$userid} eq operator:$operator{$_})]\n" if $debug ;
|
||
|
|
# print "2. ok_for_casual [in_the_past=$in_the_past]\n" if $debug ;
|
||
|
|
|
||
|
|
# if ($show_available{$date_start}{$date_end}{$operator{$_}}{$quote_nr}{$userid} and $in_the_past!=1 and $casual_type{$userid} eq $operator{$_}) {
|
||
|
|
if ($show_available{$date_start}{$date_end}{$quote_nr}{$userid} and $in_the_past!=1) {
|
||
|
|
$jstitle .= ' [' . $show_available{$date_start}{$date_end}{$quote_nr}{$userid} . ']' ;
|
||
|
|
$color = $color_available{$date_start}{$date_end}{$quote_nr}{$userid} ;
|
||
|
|
$ok_for_casual = 1 ;
|
||
|
|
print "3. ok_for_casual [$ok_for_casual] [$show_available{$date_start}{$date_end}{$quote_nr}{$userid}] [$color] $date_start->$date_end, $quote_nr, $userid \n" if $debug ;
|
||
|
|
# } elsif ($in_the_past!=1 and $casual_type{$userid} eq $operator{$_}) {
|
||
|
|
} elsif ($in_the_past!=1) {
|
||
|
|
$ok_for_casual = 1 ;
|
||
|
|
} else {
|
||
|
|
$color = '#efad1d' ;
|
||
|
|
}
|
||
|
|
|
||
|
|
print "4. ok_for_casual [$ok_for_casual] $operator{$_} = $ok_for_casual{$operator{$_}} \n" if $debug ;
|
||
|
|
last if $ok_for_casual ;
|
||
|
|
}
|
||
|
|
|
||
|
|
print "5. ok_for_casual [$ok_for_casual] \n" if $debug ;
|
||
|
|
next unless $ok_for_casual ;
|
||
|
|
}
|
||
|
|
|
||
|
|
# if ($ref and $show_available{$date_start}{$date_end}{$quote_nr}{$userid} eq '') {
|
||
|
|
# $jstitle .= " [$ref]"
|
||
|
|
# }
|
||
|
|
|
||
|
|
$jstitle =~ s/\'//g ; $jstitle =~ s/ +/ /; $jstitle =~ s/\r\n|\n/ - /g; $jstitle =~ s/\t/ /g;
|
||
|
|
|
||
|
|
my $link = qq~javascript:editEventQuote('$quote_nr');~;
|
||
|
|
|
||
|
|
# for (1 .. $ttl_operator_grps) {
|
||
|
|
# $operators_subscribed{$_} = sprintf("%0.0f",$total_casuals_working{$date_start}{$date_end}{$operator{$_}}{$quote_nr}) ;
|
||
|
|
|
||
|
|
# my $snames = $subscribed_names{$date_start}{$date_end}{$operator{$_}}{$quote_nr} ;
|
||
|
|
# chop $snames ; chop $snames ;
|
||
|
|
# $operator_names{$_} = $snames if $snames ;
|
||
|
|
# }
|
||
|
|
|
||
|
|
@disp_operators = () ; $add_operators = '' ;
|
||
|
|
|
||
|
|
# unless (substr($usertype,0,6) eq 'casual') {
|
||
|
|
if ($glod_user_level > 1) {
|
||
|
|
|
||
|
|
foreach $_opid (@operator_ids) {
|
||
|
|
push @disp_operators, $user_name{$_opid} ;
|
||
|
|
}
|
||
|
|
|
||
|
|
my $operator_names_list = join(", ", @disp_operators) ;
|
||
|
|
$add_operators = ($operator_names_list) ? ' [' . $operator_names_list . ']' : '' ;
|
||
|
|
|
||
|
|
# for (1 .. $ttl_operator_grps) {
|
||
|
|
# # $jstitle .= " [$operators_subscribed{$_}/$nr_of_casuals{$_} casual $operator{$_} subscribed]" if $nr_of_casuals{$_} > 0 ;
|
||
|
|
# # $add_operators .= " [$operator_names{$_} ($operator{$_})]" if $operator_names{$_} and $operator{$_} ;
|
||
|
|
# $add_operators .= " [$operators_subscribed{$_}/$nr_of_casuals{$_} casual $operator{$_} subscribed]" if $operator_names{$_} and $operator{$_} ;
|
||
|
|
# }
|
||
|
|
}
|
||
|
|
|
||
|
|
# if (substr($usertype,0,6) eq 'casual') {
|
||
|
|
# $link = qq~javascript:dlgMdl('/cgi-bin/scripts/dialog/events.pl?event&$quote_nr','$jstitle','','medium-dialog');~;
|
||
|
|
# }
|
||
|
|
|
||
|
|
for (1 .. $ttl_operator_grps) {
|
||
|
|
# if ($operators_subscribed{$_} >= $nr_of_casuals{$_} and $in_the_past!=1 and $show_available{$date_start}{$date_end}{$quote_nr}{$userid} eq '' and $casual_type{$userid} eq $operator{$_}) {
|
||
|
|
if ($operators_subscribed{$_} >= $nr_of_casuals{$_} and $in_the_past!=1 and $show_available{$date_start}{$date_end}{$quote_nr}{$userid} eq '') {
|
||
|
|
# $color = '#ff4136' ; # red
|
||
|
|
# $jstitle .= " [fully SUBSCRIBED for casual $operator{$_}]" ;
|
||
|
|
$jstitle .= " [fully SUBSCRIBED for operators]" ;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
# "title": "CASUALS : $add_operators",
|
||
|
|
# "title": "$ref [$quote_nr] : $add_operators",
|
||
|
|
|
||
|
|
# if ($add_operators) {
|
||
|
|
# # $added_color = ($in_the_past) ? '#999999' : '#00FF00' ;
|
||
|
|
# # $added_color = ($in_the_past) ? '#999999' : '#35e2e2' ;
|
||
|
|
# $added_color = ($in_the_past) ? '#999999' : $color ;
|
||
|
|
# $json .= qq~{
|
||
|
|
# "id": "$id",
|
||
|
|
# "title": "$ref []",
|
||
|
|
# "start": "$start",
|
||
|
|
# "end": "$end",
|
||
|
|
# "color": "$added_color",
|
||
|
|
# "url": "javascript:dlgMdl('/cgi-bin/scripts/dialog/events.pl?event&$quote_nr','$jstitle','','medium-dialog');"
|
||
|
|
# },~ ;
|
||
|
|
# # } elsif ($add_operators eq '' and $operator{$_} eq '') {
|
||
|
|
# } else {
|
||
|
|
# $color = ($color) ? $color : '#efad1d' ;
|
||
|
|
|
||
|
|
# my $cal_title = () ? $ref : ;
|
||
|
|
|
||
|
|
# $added_color = ($in_the_past) ? '#999999' : $color ;
|
||
|
|
my $disp_title = &common_clean_json_two("$ref$add_operators") ;
|
||
|
|
$jstitle = &common_clean_json_two($jstitle) ;
|
||
|
|
$json_ele = qq~{
|
||
|
|
"id": "$id",
|
||
|
|
"title": "$disp_title",
|
||
|
|
"start": "$start",
|
||
|
|
"end": "$end",
|
||
|
|
"color": "$color",
|
||
|
|
"url": "javascript:dlgMdl('/cgi-bin/scripts/dialog/events.pl?event&$quote_nr','$jstitle','','medium-dialog');"
|
||
|
|
}~ ;
|
||
|
|
|
||
|
|
my $json_rep = repair_json($json_ele);
|
||
|
|
|
||
|
|
$json .= qq~$json_rep,~ if $json_rep;
|
||
|
|
|
||
|
|
if ($glod_user_level < 3) { # < 3
|
||
|
|
|
||
|
|
my @operator_ids = split(",",$db{$table}{$id}{operator_ids}) ;
|
||
|
|
|
||
|
|
if (grep { $_ == $userid } @operator_ids) {
|
||
|
|
|
||
|
|
my $start_time = substr($db{$table}{$id}{date_from},11) ;
|
||
|
|
my $start_to = substr($db{$table}{$id}{date_to},11) ;
|
||
|
|
|
||
|
|
$json_ele = qq~{
|
||
|
|
"id": "$id",
|
||
|
|
"title": "On Duty [$start_time TO $start_to]",
|
||
|
|
"start": "$start",
|
||
|
|
"end": "$end",
|
||
|
|
"color": "black"
|
||
|
|
}~ ;
|
||
|
|
|
||
|
|
my $json_rep = repair_json($json_ele);
|
||
|
|
|
||
|
|
$json .= qq~$json_rep,~ if $json_rep;
|
||
|
|
|
||
|
|
} elsif ($db{$table}{$id}{daily_operator_ids}) {
|
||
|
|
|
||
|
|
my ($sy,$sm,$sd) = split("-",$start) ;
|
||
|
|
|
||
|
|
foreach my $sys (split(/\|/,$db{$table}{$id}{daily_operator_ids})) {
|
||
|
|
my $day_cnt = 0 ;
|
||
|
|
foreach my $op (split(/\;/,$sys)) {
|
||
|
|
$day_cnt++ ;
|
||
|
|
$op_days{$day_cnt} = 1 if $op && $op eq $userid ;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
my $start_of_interval = 0 ; my $next_day = 0 ;
|
||
|
|
|
||
|
|
my @times_from = ($db{$table}{$id}{times_from} =~ /(\d+)/g) ? split(/\;/,substr($db{$table}{$id}{date_from},11) . ';' . $db{$table}{$id}{times_from}) : (substr($db{$table}{$id}{date_from},11)) ;
|
||
|
|
my @times_to = ($db{$table}{$id}{times_to} =~ /(\d+)/g) ? split(/\;/,$db{$table}{$id}{times_to} . ';' . substr($db{$table}{$id}{date_to},11)) : (substr($db{$table}{$id}{date_to},11)) ;
|
||
|
|
|
||
|
|
foreach my $day_cnt (sort {$a <=> $b} keys %op_days) {
|
||
|
|
|
||
|
|
next unless $op_days{$day_cnt} ;
|
||
|
|
|
||
|
|
$start_of_interval = $day_cnt unless $start_of_interval ;
|
||
|
|
$next_day = $day_cnt + 1 ;
|
||
|
|
|
||
|
|
if (!$op_days{$next_day} || ($op_days{$next_day} && "$times_from[$next_day-1] TO $times_to[$next_day-1]" ne "$times_from[$day_cnt-1] TO $times_to[$day_cnt-1]")) {
|
||
|
|
|
||
|
|
my ($sy1,$sm1,$sd1) = Add_Delta_Days($sy,$sm,$sd,$start_of_interval-1) ;
|
||
|
|
my ($ey1,$em1,$ed1) = Add_Delta_Days($sy,$sm,$sd,$day_cnt-1) ;
|
||
|
|
|
||
|
|
$sm1 = sprintf("%02d",$sm1) ; $sd1 = sprintf("%02d",$sd1) ; $em1 = sprintf("%02d",$em1) ; $ed1 = sprintf("%02d",$ed1) ;
|
||
|
|
|
||
|
|
$json_ele = qq~{
|
||
|
|
"id": "$id",
|
||
|
|
"title": "On Duty [$times_from[$day_cnt-1] TO $times_to[$day_cnt-1]]",
|
||
|
|
"start": "$sy1-$sm1-$sd1\T$times_from[$start_of_interval-1]",
|
||
|
|
"end": "$ey1-$em1-$ed1\T$times_to[$day_cnt-1]",
|
||
|
|
"color": "black"
|
||
|
|
}~ ;
|
||
|
|
$start_of_interval = 0 ;
|
||
|
|
|
||
|
|
my $json_rep = repair_json($json_ele);
|
||
|
|
|
||
|
|
$json .= qq~$json_rep,~ if $json_rep ;
|
||
|
|
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
# $json .= qq~{
|
||
|
|
# "id": "$id",
|
||
|
|
# "title": "$ref$add_operators",
|
||
|
|
# "start": "$start",
|
||
|
|
# "end": "$end",
|
||
|
|
# "color": "$color",
|
||
|
|
# "url": "javascript:dlgMdl('/cgi-bin/scripts/dialog/events.pl?event&$quote_nr','$jstitle','','medium-dialog');"
|
||
|
|
# },~ ;
|
||
|
|
# }
|
||
|
|
|
||
|
|
# $json .= qq~{
|
||
|
|
# "id": "$id",
|
||
|
|
# "title": "$jstitle",
|
||
|
|
# "start": "$start",
|
||
|
|
# "end": "$end",
|
||
|
|
# "color": "$color",
|
||
|
|
# "url": "$link"
|
||
|
|
# },~ ;
|
||
|
|
}
|
||
|
|
|
||
|
|
} #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
# sub get_db_leave {
|
||
|
|
|
||
|
|
# unless (($param{start}) and ($param{end})) { return ; }
|
||
|
|
|
||
|
|
# &db_min_ro('users','*','','','') ;
|
||
|
|
# foreach my $id (keys %{$db{users}}) { $user_name{$id} = $db{users}{$id}{name} ; }
|
||
|
|
|
||
|
|
# # &db_min_ro('events','*',"`startdate` >= '$param{start} 00:00:00' AND `startdate` <= '$param{end} 23:59:59'",'','') ;
|
||
|
|
# &db_min_ro('events','*',"((`startdate` >= '$param{start} 00:00:00' AND `startdate` <= '$param{end} 23:59:59') OR ('$param{start} 23:59:59' >= `startdate` AND '$param{start} 00:00:00' <= `enddate`))",'','') ;
|
||
|
|
|
||
|
|
# foreach my $id (keys %{$db{events}}) {
|
||
|
|
|
||
|
|
# &common_debug("get_db_leave - $db{events}{$id}{category} -> $db{events}{$id}{title}");
|
||
|
|
|
||
|
|
# unless (($db{events}{$id}{category} eq 'leave') or
|
||
|
|
# ($db{events}{$id}{category} eq 'weekend_work') or
|
||
|
|
# ($db{events}{$id}{category} eq 'public_holiday') or
|
||
|
|
# ($db{events}{$id}{category} eq 'other')) { next; } # don't display birthdays on calendar
|
||
|
|
|
||
|
|
# # if (($username ne 'rory') and ($db{events}{$id}{category} eq 'weekend_work')) { next ; }
|
||
|
|
|
||
|
|
# my $start = $db{events}{$id}{startdate} ; $start =~ s/ /T/g ;
|
||
|
|
# my $end = $db{events}{$id}{enddate} ; $end =~ s/ /T/g ;
|
||
|
|
# # my $title = $db{events}{$id}{title} ;
|
||
|
|
# my $title = ucfirst $db{events}{$id}{category} ; $title =~ s/\_/ /g ;
|
||
|
|
|
||
|
|
# # if ($db{events}{$id}{category} eq 'leave') { $color = '#338e3c' ; my $leave_type = ucfirst $db{events}{$id}{type} ; $title = $leave_type . ' Leave' ; } else { $color = '#3498DB' ; }
|
||
|
|
|
||
|
|
# if ($db{events}{$id}{category} eq 'leave') {
|
||
|
|
# $color = '#ff00ff' ;
|
||
|
|
# my $leave_type = ucfirst $db{events}{$id}{type} ;
|
||
|
|
# $title = $leave_type . ' Leave' ;
|
||
|
|
# }
|
||
|
|
# elsif ($db{events}{$id}{category} eq 'weekend_work') {
|
||
|
|
# $start = &cal_set_time($db{events}{$id}{startdate},-24); $start =~ s/ /T/g ;
|
||
|
|
# # $color = '#fbc808' ;
|
||
|
|
# $color = 'purple' ;
|
||
|
|
# }
|
||
|
|
# elsif ($db{events}{$id}{category} eq 'public_holiday') {
|
||
|
|
# $start = substr($db{events}{$id}{startdate},0,10) . 'T00:00:00';
|
||
|
|
# $end = substr($db{events}{$id}{enddate},0,10) . 'T23:59:59';
|
||
|
|
# $color = 'red' ;
|
||
|
|
# }
|
||
|
|
# elsif ($db{events}{$id}{category} eq 'other') {
|
||
|
|
# $color = '#e3c728' ; # yellow
|
||
|
|
# }
|
||
|
|
# else
|
||
|
|
# {
|
||
|
|
# $color = '#3498DB' ;
|
||
|
|
# # $color = '#ff00ff' ;
|
||
|
|
# # $color = '#fbc808' ;
|
||
|
|
# }
|
||
|
|
|
||
|
|
# my ($s_date,$s_time) = split(/\ /,$db{events}{$id}{startdate}) ; my ($s_ccyy,$s_mm,$s_dd) = split(/\-/,$s_date) ; my $s_txt = Date_to_Text($s_ccyy,$s_mm,$s_dd); my ($s_hr,$s_mn,$s_sc) = split(/\:/,$s_time) ;
|
||
|
|
# my ($e_date,$e_time) = split(/\ /,$db{events}{$id}{enddate}) ; my ($e_ccyy,$e_mm,$e_dd) = split(/\-/,$e_date) ; my $e_txt = Date_to_Text($e_ccyy,$e_mm,$e_dd); my ($e_hr,$e_mn,$e_sc) = split(/\:/,$e_time) ;
|
||
|
|
|
||
|
|
# my $disp_title = qq($title [$user_name{$db{events}{$id}{user_id}}] $s_txt - $e_txt) ;
|
||
|
|
|
||
|
|
# if (($db{events}{$id}{category} eq 'public_holiday') or ($db{events}{$id}{category} eq 'other')) {
|
||
|
|
# my $notes = $db{events}{$id}{notes} ; $notes =~ s/"/'/g ;
|
||
|
|
# $disp_title = qq($title : $db{events}{$id}{notes}) ; }
|
||
|
|
|
||
|
|
# $disp_title = &fix_json($disp_title) ;
|
||
|
|
|
||
|
|
# # "title": "$title [$user_name{$db{events}{$id}{user_id}}] $s_hr:$s_mn on $s_txt - $e_hr:$e_mn on $e_txt ",
|
||
|
|
|
||
|
|
# $json .= qq({
|
||
|
|
# "id": "$id",
|
||
|
|
# "title": "$disp_title",
|
||
|
|
# "start": "$start",
|
||
|
|
# "end": "$end",
|
||
|
|
# "color": "$color",
|
||
|
|
# "url": "javascript:dlgMdl('/cgi-bin/scripts/dialog/events.pl?$id','$title','','medium-dialog');"
|
||
|
|
# },) ;
|
||
|
|
# }
|
||
|
|
|
||
|
|
# } #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
# sub fix_json {
|
||
|
|
|
||
|
|
# my ($json) = @_ ;
|
||
|
|
|
||
|
|
# $json =~ s/\r\n|\n/ - /g;
|
||
|
|
# $json =~ s/\t/ /g;
|
||
|
|
# $json =~ s/"/'/g;
|
||
|
|
# $json =~ s/\&/\&/g;
|
||
|
|
|
||
|
|
# return ($json) ;
|
||
|
|
|
||
|
|
# } #------------------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
sub cal_set_time {
|
||
|
|
|
||
|
|
my ($datetime,$hr_diff) = @_ ; # 2015-10-06 17:35:39
|
||
|
|
|
||
|
|
unless ($hr_diff) { $hr_diff = 1 ; }
|
||
|
|
|
||
|
|
my ($date,$time) = split(/ /,$datetime) ;
|
||
|
|
|
||
|
|
my $dy = substr($date,0,4) ;
|
||
|
|
my $dm = substr($date,5,2) ;
|
||
|
|
my $dd = substr($date,8,2) ;
|
||
|
|
|
||
|
|
my ($th,$tm,$ts) = split(/:/,$time) ;
|
||
|
|
|
||
|
|
my ($syear,$smonth,$sday,$shour,$smin,$ssec) = Add_Delta_DHMS($dy,$dm,$dd,$th,$tm,$ts,0,$hr_diff,0,0); # add 1 hour
|
||
|
|
|
||
|
|
$smonth = sprintf("%02s", $smonth) ;
|
||
|
|
$sday = sprintf("%02s", $sday) ;
|
||
|
|
$shour = sprintf("%02s", $shour) ;
|
||
|
|
$smin = sprintf("%02s", $smin) ;
|
||
|
|
$ssec = sprintf("%02s", $ssec) ;
|
||
|
|
|
||
|
|
return("$syear-$smonth-$sday $shour:$smin:$ssec");
|
||
|
|
|
||
|
|
} #-------------------------------------------------------------------------------
|
||
|
|
|
||
|
|
# use db ;
|
||
|
|
# use db_min ;
|
||
|
|
use common ;
|
||
|
|
use session ;
|
||
|
|
use today ;
|
||
|
|
|
||
|
|
1;
|