From: Jonathan Prykop Date: Wed, 30 Mar 2016 12:41:51 +0000 (-0500) Subject: RT#34237: installer scheduling [major refactor, many bugs fixed] X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=commitdiff_plain;h=653545aa57687de24286d0955a047cb20f6e0c54 RT#34237: installer scheduling [major refactor, many bugs fixed] --- diff --git a/rt/share/html/Elements/CalendarSlotSchedule b/rt/share/html/Elements/CalendarSlotSchedule index b82997be8..c8d3bfaa6 100644 --- a/rt/share/html/Elements/CalendarSlotSchedule +++ b/rt/share/html/Elements/CalendarSlotSchedule @@ -11,6 +11,7 @@ $pkgnum => undef $RedirectToBasics => 0 +% my $scheduling = ($custnum && $LengthMin) ? 1 : 0; % foreach my $username ( @username ) { % % my %schedule = UserDaySchedule( username => $username, @@ -18,20 +19,22 @@ % Tickets => \@Tickets, % ); % -% my $bgcolor = '666666;border-color:#555555'; +% my $bgcolor = '#666666'; +% my $border = '1px solid #555555'; % my $content = ''; -% my $link = ''; -% my $selectable = 0; -% my $draggable_ticketid = 0; +% my $selectable = 0; # can we schedule a new appointment +% my $ticketid = 0; % my $draggable_length = 0; -% my $droppable = 0; -% my $cells = 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'; +% $bgcolor = '#FFFFFF'; +% $border = '1px solid #D7D7D7'; % $selectable = 1 % if $LengthMin <= $end - $tod_row #the slot is long enough % && ! grep { $_ > $tod_row && $LengthMin > $_ - $tod_row } @@ -39,15 +42,23 @@ % } % % #block out / show / color code existing appointments -% #my %line = (); % foreach my $id ( keys %{ $schedule{'scheduled'} } ) { % % my( $starts, $due, $col, $t ) = @{ $schedule{'scheduled'}->{$id} }; % +% # misleading loop--at most one id will pass this test % next if $starts >= ($tod_row+$timestep) || $due <= $tod_row; % -% $bgcolor = $col; +% $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 ( $starts >= $tod_row ) { #first row % @@ -55,35 +66,23 @@ % my %hash = $m->comp('/Ticket/Elements/Customers', Ticket => $t); % my @cust_main = values( %{$hash{cust_main}} ); % -% $content .= ($content?', ':''). #$id. ': '. -% #false laziness w/xmlhttp-ticket-update.html -% FS::sched_avail::pretty_time($starts). '-'. +% #false laziness w/xmlhttp-ticket-update.html +% $content .= FS::sched_avail::pretty_time($starts). '-'. % FS::sched_avail::pretty_time($due). % ': '. $cust_main[0]->_FreesideURILabel; % #'install for custname XX miles away'; #XXX placeholder/more -% $link = qq( view ). -% include('/elements/popup_link.html', -% action=>$RT::WebPath.'/Ticket/ModifyCustomFieldsPopup.html?id='.$id, -% label =>'edit', -% actionlabel => 'Edit appointment', -% height => 436, # better: A + B * (num_custom_fields) -% ); -% $draggable_ticketid = $id; -% $draggable_length = $due - $starts; -% -% $cells = int( ($due-$starts) / $timestep ); -% $cells++ if ($due-$starts) % $timestep; -% -% #} else { -% # $content .= ($content?', ':''). $id; +% +% } else { +% $offset = int( ($tod_row - $starts) / $timestep ); +% $offset++ if ($tod_row - $starts) % $timestep; % } % } % % my $td_id = 'td_'. $Date->epoch. '_'. $tod_row. '_'. $username; - " % if ( $selectable ) { % -% if ( $custnum && $LengthMin ) { +% # Scheduling a new appointment +% if ( $scheduling ) { % % #XXX for now, construct a ticket creation URL % # eventually, do much the same, but say "appointment made", show time @@ -131,39 +131,41 @@ %>" onclick = "window.location.href = '<% $url %>'" % +% # If not scheduling, allow drag-and-drop rescheduling % } else { % $droppable = 1; % } % % } - ><% $content |h %><% $link |n %> + ><% $content |h %> diff --git a/rt/share/html/Search/Schedule.html b/rt/share/html/Search/Schedule.html index 0dbe8c30b..b16f609e5 100644 --- a/rt/share/html/Search/Schedule.html +++ b/rt/share/html/Search/Schedule.html @@ -2,8 +2,57 @@ <& /Search/Calendar.html,