X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=rt%2Fshare%2Fhtml%2FElements%2FCalendarSlotSchedule;h=f12b4a6bebefee7e3988dacfe3dfa2addcec7dc0;hb=b8fa095812b8ad74263a2d4a25caa97871d7d34b;hp=88202d417507693a3905cf3f7f2d9f1132b1dbe7;hpb=9f1a3b2bd30562d52fa9d2d0c7afab08f5efff41;p=freeside.git diff --git a/rt/share/html/Elements/CalendarSlotSchedule b/rt/share/html/Elements/CalendarSlotSchedule index 88202d417..f12b4a6be 100644 --- a/rt/share/html/Elements/CalendarSlotSchedule +++ b/rt/share/html/Elements/CalendarSlotSchedule @@ -1,93 +1,191 @@ <%ARGS> - $Date => undef, - @Tickets => () - $slots => $default_slots, - $sday => undef, - $tod_row => undef, - $timestep => $default_timestep, - @username => () + $Date => undef + @Tickets => () + $slots => $default_slots + $sday => undef + $tod_row => undef + $timestep => $default_timestep + @username => () + $LengthMin => $default_timestep + $custnum => undef + $pkgnum => undef + $RedirectToBasics => 0 %ARGS> -<%SHARED> -my @slots = ( [], [], [], [], [], [], [] ); -%SHARED> -% #for my $t ( @{ $Tickets{$date->strftime("%F")} } ) { -% for my $t (@Tickets) { -% -% my($sm, $sh) = ($t->StartsObj->Localtime('user'))[1,2]; -% my $starts = $sh*60 + $sm; -% -% if ( RTx::Calendar::LocalDate($t->StartsObj->Unix) eq $Date->strftime('%F') #today -% && $starts >= $tod_row && $starts < ($tod_row + $timestep) ) { -% #then we're a new entry, find a slot for us -% my $s = 0; -% while ( ref($slots[$sday]->[$s]) ) { $s++ } -% $slots[$sday]->[$s] = [ $t->Id, $t ]; -% } -% -% my($dm, $dh) = ($t->DueObj->Localtime('user'))[1,2]; -% my $due = $dh*60 + $dm; -% -% if ( RTx::Calendar::LocalDate($t->DueObj->Unix) eq $Date->strftime('%F') #today -% && $due <= $tod_row && $due > ($tod_row + $timestep ) ) { -% #then find our slot and remove us -% @{ $slots[$sday] } = -% map { (!ref($_) || $_->[0] != $t->Id) ? $_ : '' } -% @{ $slots[$sday] }; -% } +% my $scheduling = ($custnum && $LengthMin) ? 1 : 0; +% foreach my $username ( @username ) { % -% } +% my %schedule = UserDaySchedule( username => $username, +% 'date' => $Date->strftime('%F'), +% Tickets => \@Tickets, +% ); +% +% my $bgcolor = '#666666'; +% my $border = '1px solid #555555'; +% my $label_time = ''; +% my $label_title = ''; +% my $selectable = 0; # can we schedule a new appointment +% my $ticketid = 0; +% my $draggable_length = 0; +% my $droppable = 0; # can we reschedule an appointment here +% my $cells = 0; # total cell count for appointment +% my $offset = 0; # position of cell in appointment +% +% #white out available times +% foreach my $avail ( @{ $schedule{'avail'} } ) { +% my( $start, $end ) = @$avail; +% next if $start >= ($tod_row+$timestep) || $end <= $tod_row; +% $bgcolor = '#FFFFFF'; +% $border = '1px solid #D7D7D7'; +% $selectable = 1 +% if $LengthMin <= $end - $tod_row #the slot is long enough +% && ! grep { $_ > $tod_row && $LengthMin > $_ - $tod_row } +% map $_->[0], values %{ $schedule{'scheduled'} }; +% } +% +% #block out / show / color code existing appointments +% my $maxstarts = 0; +% foreach my $id ( keys %{ $schedule{'scheduled'} } ) { +% +% my( $starts, $due, $col, $t ) = @{ $schedule{'scheduled'}->{$id} }; +% +% # misleading loop--at most one id should pass this test +% next if $starts >= ($tod_row+$timestep) || $due <= $tod_row; % -% pop @{ $slots[$sday] } while @{ $slots[$sday] } && !ref($slots[$sday]->[-1]); +% # but, if for any reason a scheduling conflict occurs, +% # use the later starting one to minimize UI conflicts-- +% # not to imply that this scenario has been tested or should ever happen!!! +% next if $starts < $maxstarts; +% $maxstarts = $starts; % -% #now display: +% $ticketid = $id; +% $bgcolor = '#'.$col; +% $border = '1px solid #D7D7D7'; +% # can't schedule a new appointment +% $selectable = 0; +% # but can reschedule a ticket overlapping its old slot (filtered by can_drop) +% $droppable = 1 unless $scheduling; +% $draggable_length = $due - $starts; +% $cells = int( ($due-$starts) / $timestep ); +% $cells++ if ($due-$starts) % $timestep; % -% if ( scalar(@{$slots[$sday]}) > $slots ) { -% #overflow situation, eek... could be handled better, how? +% #false laziness w/misc/xmlhttp-ticket-update.html & CalendarDaySchedule +% my %hash = $m->comp('/Ticket/Elements/Customers', Ticket => $t); +% my @cust_main = values( %{$hash{cust_main}} ); +% +% #false laziness w/xmlhttp-ticket-update.html +% $label_time = FS::sched_avail::pretty_time($starts). '-'. +% FS::sched_avail::pretty_time($due); +% $label_title = $cust_main[0]->_FreesideURILabel; +% #'install for custname XX miles away'; #XXX placeholder/more +% +% $offset = int( ($tod_row - $starts) / $timestep ); +% $offset++ if ($tod_row - $starts) % $timestep; +% } +% +% my $td_id = 'td_'. $Date->epoch. '_'. $tod_row. '_'. $username; -