taskjuggler 0.0.10 → 0.0.11

data/lib/{TaskScenario.rb → taskjuggler/TaskScenario.rb}

@@ -11,8 +11,8 @@
 # published by the Free Software Foundation.
 #
 
-require 'ScenarioData'
-require 'DataCache'
+require 'taskjuggler/ScenarioData'
+require 'taskjuggler/DataCache'
 
 class TaskJuggler
 
@@ -56,23 +56,13 @@ class TaskJuggler
       @startPropagated = false
       @endPropagated = false
 
-      # Inheriting start or end values is a bit tricky. This should really only
-      # happen if the task is a leaf task and scheduled away from the specified
-      # date. Since the default meachanism inherites all values, we have to
-      # delete the wrong ones again.
-      unless @property.provided('start', @scenarioIdx)
-        @property['start', @scenarioIdx] = nil
-      end
-      unless @property.provided('end', @scenarioIdx)
-        @property['end', @scenarioIdx] = nil
-      end
-
       # Milestones may only have start or end date even when the 'scheduled'
       # attribute is set. For further processing, we need to add the missing
       # date.
       if a('milestone') && a('scheduled')
         @property['end', @scenarioIdx] = a('start') if a('start') && !a('end')
         @property['start', @scenarioIdx] = a('end') if !a('start') && a('end')
+        Log << "Milestone #{@property.fullId}: #{a('start')} -> #{a('end')}"
       end
 
       # Collect the limits of this task and all parent tasks into a single
@@ -136,7 +126,7 @@ class TaskJuggler
         if a('start')
           propagateDate(a('start'), false)
         elsif @property.parent.nil? &&
-          @property.canInheritDate?(@scenarioIdx, false)
+              @property.canInheritDate?(@scenarioIdx, false)
           propagateDate(@project['start'], false)
         end
       end
@@ -145,7 +135,7 @@ class TaskJuggler
         if a('end')
           propagateDate(a('end'), true)
         elsif @property.parent.nil? &&
-          @property.canInheritDate?(@scenarioIdx, true)
+              @property.canInheritDate?(@scenarioIdx, true)
           propagateDate(@project['end'], true)
         end
       end
@@ -325,14 +315,16 @@ class TaskJuggler
 
       a('startsuccs').each do |task, onEnd|
         unless task['forward', @scenarioIdx]
-          task.error(@scenarioIdx, 'onstart_wrong_direction',
-                     'Tasks with on-start dependencies must be ASAP scheduled')
+          task.data[@scenarioIdx].error(
+            'onstart_wrong_direction',
+            'Tasks with on-start dependencies must be ASAP scheduled')
         end
       end
       a('endpreds').each do |task, onEnd|
         if task['forward', @scenarioIdx]
-          task.error(@scenarioIdx, 'onend_wrong_direction',
-                     'Tasks with on-end dependencies must be ALAP scheduled')
+          task.data[@scenarioIdx].error(
+            'onend_wrong_direction',
+            'Tasks with on-end dependencies must be ALAP scheduled')
         end
       end
     end
@@ -536,37 +528,6 @@ class TaskJuggler
               "end date.")
       end
 
-      if !a('fail').empty? || !a('warn').empty?
-        queryAttrs = { 'project' => @project,
-                       'scenarioIdx' => @scenarioIdx,
-                       'property' => @property,
-                       'scopeProperty' => nil,
-                       'start' => @project['start'],
-                       'end' => @project['end'],
-                       'loadUnit' => :days,
-                       'numberFormat' => @project['numberFormat'],
-                       'timeFormat' => @project['timeFormat'],
-                       'currencyFormat' => @project['currencyFormat'] }
-        query = Query.new(queryAttrs)
-        a('fail').each do |expr|
-          if expr.eval(query)
-            error('task_fail_check',
-                  "User defined check failed for task #{@property.fullId} \n" +
-                  "Condition: #{expr.to_s}\n" +
-                  "Result:    #{expr.to_s(query)}")
-          end
-        end
-        a('warn').each do |expr|
-          if expr.eval(query)
-            warning('task_warn_check',
-                    "User defined warning triggered for task " +
-                    "#{@property.fullId} \n" +
-                    "Condition: #{expr.to_s}\n" +
-                    "Result:    #{expr.to_s(query)}")
-          end
-        end
-      end
-
       @errors == 0
     end
 
@@ -918,9 +879,11 @@ class TaskJuggler
 
     # Set a new start or end date and propagate the value to all other
     # task ends that have a direct dependency to this end of the task.
-    def propagateDate(date, atEnd)
+    def propagateDate(date, atEnd, ignoreEffort = false)
       thisEnd = atEnd ? 'end' : 'start'
       otherEnd = atEnd ? 'start' : 'end'
+      #puts "Propagating #{thisEnd} date #{date} of #{@property.fullId} " +
+      #     "#{ignoreEffort ? "ignoring effort" : "" }"
 
       # These flags are just used to avoid duplicate calls of this function
       # during propagateInitialValues().
@@ -948,20 +911,30 @@ class TaskJuggler
             !(a('length') == 0 && a('duration') == 0 && a('effort') == 0 &&
               !a('allocate').empty?)
         @property['scheduled', @scenarioIdx] = true
+        Log << "Task #{@property.fullId} has been scheduled"
       end
 
       # Propagate date to all dependent tasks. Don't do this for start
       # successors or end predecessors if this task is effort based. In this
       # case, the date might still change to align with the first/last
-      # allocation. In these cases, bookResoruce() has to propagate the final
+      # allocation. In these cases, bookResource() has to propagate the final
       # date.
-      unless atEnd && a('effort') > 0
-        a(thisEnd + 'preds').each do |task, onEnd|
+      if atEnd
+        if ignoreEffort || a('effort') == 0
+          a('endpreds').each do |task, onEnd|
+            propagateDateToDep(task, onEnd)
+          end
+        end
+        a('endsuccs').each do |task, onEnd|
           propagateDateToDep(task, onEnd)
         end
-      end
-      unless !atEnd && a('effort') > 0
-        a(thisEnd + 'succs').each do |task, onEnd|
+      else
+        if ignoreEffort || a('effort') == 0
+          a('startsuccs').each do |task, onEnd|
+            propagateDateToDep(task, onEnd)
+          end
+        end
+        a('startpreds').each do |task, onEnd|
           propagateDateToDep(task, onEnd)
         end
       end
@@ -977,9 +950,12 @@ class TaskJuggler
 
       # The date propagation might have completed the date set of the enclosing
       # containter task. If so, we can schedule it as well.
-      @property.parent.scheduleContainer(@scenarioIdx) if !@property.parent.nil?
+      @property.parents.each do |parent|
+        parent.scheduleContainer(@scenarioIdx)
+      end
     end
 
+
     # This function determines if a task can inherit the start or end date
     # from a parent task or the project time frame. +atEnd+ specifies whether
     # the check should be done for the task end (true) or task start (false).
@@ -1001,13 +977,13 @@ class TaskJuggler
       thisEnd, thatEnd = atEnd ? [ 'end', 'start' ] : [ 'start', 'end' ]
       # Return false if we already have a date for this end or if we have a
       # strong dependency for this end.
-      return false if a(thisEnd) || hasStrongDeps(thisEnd)
+      return false if a(thisEnd) || hasStrongDeps(atEnd)
 
       # Containter task can inherit the date if they have no dependencies at
       # this end.
       return true if @property.container?
 
-      hasThatSpec = a(thatEnd) || hasStrongDeps(thatEnd)
+      hasThatSpec = a(thatEnd) || hasStrongDeps(!atEnd)
       hasDurationSpec = hasDurationSpec?
 
       # Check for tasks that have no start and end spec, no duration spec but
@@ -1034,9 +1010,13 @@ class TaskJuggler
       nStart = nil
       nEnd = nil
 
-      @property.children.each do |task|
-        # Abort if a child has not yet been scheduled.
-        return unless task['scheduled', @scenarioIdx]
+      @property.kids.each do |task|
+        # Abort if a child has not yet been scheduled. Since we haven't done
+        # the consistency check yet, we can't rely on start and end being set
+        # if 'scheduled' is set.
+        return if (!task['scheduled', @scenarioIdx] ||
+                   task['start', @scenarioIdx].nil? ||
+                   task['end', @scenarioIdx].nil?)
 
         if nStart.nil? || task['start', @scenarioIdx] < nStart
           nStart = task['start', @scenarioIdx]
@@ -1060,7 +1040,7 @@ class TaskJuggler
         raise "Start (#{a('start')}) and end (#{a('end')}) must be set"
       end
       @property['scheduled', @scenarioIdx] = true
-      Log << "Container task #{@property.fullId}: #{a('start')} -> #{a('end')}"
+      Log << "Container task #{@property.fullId} completed: #{a('start')} -> #{a('end')}"
 
       # If we have modified the start or end date, we need to communicate this
       # new date to surrounding tasks.
@@ -1178,7 +1158,7 @@ class TaskJuggler
       # task A precedes B and they are specified this way:
       # task A: | --> D-
       # task B: -D <-- |
-      if a('start') && endDate > a('start')
+      if a('start') && (endDate.nil? || endDate > a('start'))
         error('weak_end_dep',
               "Task #{@property.fullId} has a too weak end dependencies " +
               "to be scheduled properly.")
@@ -1188,13 +1168,9 @@ class TaskJuggler
     end
 
     def addBooking(booking)
-      if a('booking').empty?
-        # For the first item use the assignment form so that the 'provided'
-        # attribute is set properly.
-        @property['booking', @scenarioIdx] = [ booking ]
-      else
-        @property['booking', @scenarioIdx] << booking
-      end
+      # This append operation will not trigger a copy to sub-scenarios.
+      # Bookings are only valid for the scenario they are defined in.
+      @property['booking', @scenarioIdx] << booking
     end
 
     def query_complete(query)
@@ -1237,7 +1213,7 @@ class TaskJuggler
     def query_effortdone(query)
       # For this query, we always override the query period.
       query.sortable = query.numerical = effort =
-        getEffectiveWork(@project.dateToIdx(@project['start']),
+        getEffectiveWork(@project.dateToIdx(@project['start'], false),
                          @project.dateToIdx(@project['now']),
                          query.scopeProperty)
       query.string = query.scaleLoad(effort)
@@ -1249,11 +1225,9 @@ class TaskJuggler
     # the effort allocated for this resource is taken into account.
     def query_effortleft(query)
       # For this query, we always override the query period.
-      query.start = @project['now']
-      query.end = @project['end']
       query.sortable = query.numerical = effort =
         getEffectiveWork(@project.dateToIdx(@project['now']),
-                         @project.dateToIdx(@project['end']),
+                         @project.dateToIdx(@project['end'], false),
                          query.scopeProperty)
       query.string = query.scaleLoad(effort)
     end
@@ -1377,6 +1351,17 @@ class TaskJuggler
       query.string = status
     end
 
+    def query_inputs(query)
+      inputList = PropertyList.new(@project.tasks, false)
+      inputs(inputList, true)
+      inputList.delete(@property)
+      inputList.setSorting([['start', true, @scenarioIdx],
+                            ['seqno', true, -1 ]])
+      inputList.sort!
+
+      query.assignList(generateTaskList(inputList, query.listMode))
+    end
+
     def query_targets(query)
       targetList = PropertyList.new(@project.tasks, false)
       targets(targetList, true)
@@ -1385,32 +1370,7 @@ class TaskJuggler
                              ['seqno', true, -1 ]])
       targetList.sort!
 
-      list = []
-      targetList.each do |task|
-        date = task['start', @scenarioIdx].to_s(@property.project['timeFormat'])
-        case query.listMode
-        when 1
-          list << "#{task.fullId}"
-        when 2
-          list << "#{task.name}"
-        when 3
-          list << "#{task.name} (#{task.fullId})"
-        when 4
-          list << "#{task.fullId}: #{task.name}"
-        when 5
-          list << "#{task.fullId} (#{date})"
-        when 6
-          list << "#{task.name} (#{date})"
-        when 7, nil
-          list << "#{task.name} (#{task.fullId}) #{date}"
-        when 8
-          list << "#{task.fullId}: #{task.name} #{date}"
-        else
-          error('bad_listmode_qt',
-                "Bad listmode #{query.listMode}. Use 1 - 8.")
-        end
-      end
-      query.assignList(list)
+      query.assignList(generateTaskList(targetList, query.listMode))
     end
 
 
@@ -1424,7 +1384,7 @@ class TaskJuggler
       @dCache.cached(key) do
         allocatedTime = 0.0
         if @property.container?
-          @property.children.each do |task|
+          @property.kids.each do |task|
             allocatedTime += task.getAllocatedTime(@scenarioIdx,
                                                    startIdx, endIdx, resource)
           end
@@ -1455,7 +1415,7 @@ class TaskJuggler
       @dCache.cached(key) do
         workLoad = 0.0
         if @property.container?
-          @property.children.each do |task|
+          @property.kids.each do |task|
             workLoad += task.getEffectiveWork(@scenarioIdx, startIdx, endIdx,
                                               resource)
           end
@@ -1499,7 +1459,7 @@ class TaskJuggler
             il &= @project.collectTimeOffIntervals(iv, minDuration)
           end
         else
-          @property.children.each do |task|
+          @property.kids.each do |task|
             il &= task.collectTimeOffIntervals(@scenarioIdx, iv, minDuration)
           end
         end
@@ -1565,7 +1525,7 @@ class TaskJuggler
       if @property.leaf?
         return resource.allocated?(@scenarioIdx, interval, @property)
       else
-        @property.children.each do |t|
+        @property.kids.each do |t|
           return true if t.hasResourceAllocated?(@scenarioIdx, interval,
                                                  resource)
         end
@@ -1629,9 +1589,9 @@ class TaskJuggler
           # The specified effort has been reached. The task has been fully
           # scheduled now.
           if a('forward')
-            propagateDate(@tentativeEnd, true)
+            propagateDate(@tentativeEnd, true, true)
           else
-            propagateDate(@tentativeStart, false)
+            propagateDate(@tentativeStart, false, true)
           end
           return true
         end
@@ -1648,7 +1608,9 @@ class TaskJuggler
           # For start-end-tasks without allocation, we don't have to do
           # anything but to set the 'scheduled' flag.
           @property['scheduled', @scenarioIdx] = true
-          @property.parent.scheduleContainer(@scenarioIdx) if @property.parent
+          @property.parents.each do |parent|
+            parent.scheduleContainer(@scenarioIdx)
+          end
           return true
         end
 
@@ -1659,7 +1621,9 @@ class TaskJuggler
         if (a('forward') && slot + slotDuration >= a('end')) ||
            (!a('forward') && slot <= a('start'))
           @property['scheduled', @scenarioIdx] = true
-          @property.parent.scheduleContainer(@scenarioIdx) if @property.parent
+          @property.parents.each do |parent|
+            parent.scheduleContainer(@scenarioIdx)
+          end
           return true
         end
       end
@@ -1705,7 +1669,7 @@ class TaskJuggler
       # sure that none of them is already exceeded.
       return unless limitsOk?(date)
 
-      sbIdx = @project.dateToIdx(date)
+      sbIdx = @project.dateToIdx(date, false)
 
       # We first have to make sure that if there are mandatory resources
       # that these are all available for the time slot.
@@ -1772,17 +1736,23 @@ class TaskJuggler
                  !limitsOk?(date, resource)
 
         if r.book(@scenarioIdx, sbIdx, @property)
-
+          # For effort based task we adjust the the start end (as defined by
+          # the scheduling direction) to align with the first booked time
+          # slot.
           if a('effort') > 0 && a('assignedresources').empty?
             if a('forward')
               @property['start', @scenarioIdx] = @project.idxToDate(sbIdx)
+              Log << "Task #{@property.fullId} first assignment: " +
+                     "#{a('start')} -> #{a('end')}"
               a('startsuccs').each do |task, onEnd|
-                task.propagateDate(@scenarioIdx, a('start'), false)
+                task.propagateDate(@scenarioIdx, a('start'), false, true)
               end
             else
               @property['end', @scenarioIdx] = @project.idxToDate(sbIdx + 1)
+              Log << "Task #{@property.fullId} last assignment: " +
+                     "#{a('start')} -> #{a('end')}"
               a('endpreds').each do |task, onEnd|
-                task.propagateDate(@scenarioIdx, a('end'), true)
+                task.propagateDate(@scenarioIdx, a('end'), true, true)
               end
             end
           end
@@ -1846,9 +1816,9 @@ class TaskJuggler
                 "Only forward scheduled tasks may have booking statements.")
         end
         booking.intervals.each do |interval|
-          startIdx = @project.dateToIdx(interval.start)
+          startIdx = @project.dateToIdx(interval.start, false)
           date = interval.start
-          endIdx = @project.dateToIdx(interval.end)
+          endIdx = @project.dateToIdx(interval.end, false)
           tEnd = nil
           startIdx.upto(endIdx - 1) do |idx|
             tEnd = date + slotDuration
@@ -1863,6 +1833,8 @@ class TaskJuggler
               @tentativeEnd = tEnd if @tentativeEnd.nil? || @tentativeEnd < tEnd
               if !scheduled && (a('start').nil? || date < a('start'))
                 @property['start', @scenarioIdx] = date
+                Log << "Task #{@property.fullId} first booking: " +
+                  "#{a('start')} -> #{a('end')}"
               end
 
               unless a('assignedresources').include?(booking.resource)
@@ -1900,6 +1872,18 @@ class TaskJuggler
       !a(thisEnd + 'succs').empty? || !a(thisEnd + 'preds').empty?
     end
 
+    # Return true if this task or any of its parent tasks has at least one
+    # predecessor task.
+    def hasPredecessors
+      t = @property
+      while t
+        return true unless t['startpreds', @scenarioIdx].empty?
+        t = t.parent
+      end
+
+      false
+    end
+
     # Return true if this task or any of its parent tasks has at least one
     # sucessor task.
     def hasSuccessors
@@ -1912,61 +1896,76 @@ class TaskJuggler
       false
     end
 
-    def hasStrongDeps(thisEnd)
+    def hasStrongDeps(atEnd)
       # A dependency that could determine the date on this side of the
       # dependency is a strong dependency. If the scheduling direction of the
       # task on the other side leads away from the dependency point, then the
       # dependency is weak. This date will influence the other date for weak
-      # dependencies.
+      # dependencies. > means ASAP task, < means ALAP task.
       #
-      # +---          SS -> SP> : Weak
-      # |-+           SS -> SP< : Illegal
-      # +-|-          SP -> SS> : Strong
-      #   | +---      SP -> SS< : Illegal
+      #
+      # T2 depends on T1 start
+      #
+      # +---          SS -> S> : Weak
+      # |-+           SS -> S< : Weak
+      # +-|-          SP -> S> : Strong
+      #   | +---      SP -> S< : Strong
       #   +-|
       #     +---
       #
       #
-      # ---+          ES -> SP> : Weak
-      #    |-+        ES -> SP< : Strong
-      # ---+ |        SP -> ES> : Strong
-      #      | +---   SP -> ES< : Weak
+      # T2 depends on T1 end
+      # T1 precedes T2 start
+      #
+      # ---+          ES -> S> : Weak
+      #    |-+        ES -> S< : Strong
+      # ---+ |        SP -> E> : Strong
+      #      | +---   SP -> E< : Weak
       #      +-|
       #        +---
       #
       #
-      # ---+          ES -> EP> : Illegal
-      #    |-+        ES -> EP< : Strong
-      # ---+ |        EP -> ES> : Illegal
-      #     -|-+      EP -> ES< : Weak
-      #      +-|
-      #     ---+
+      # T1 precedes T2 end
+      #
+      #     ---+      ES -> E> : Strong
+      #      +-|      ES -> E< : Strong
+      #     -|-+      EP -> E> : Weak
+      # ---+ |        EP -> E< : Weak
+      #    |-+
+      # ---+
       #
       # All other combinations are illegal and should be caught earlier. So,
       # illegal values can be considered don't care values.
       #
-      # f/t SP> SP< SS> SS< EP> EP< ES> ES<
-      # SP  x   x   S   x   x   x   S   W     Row 1
-      # SS  W   x   x   x   x   x   x   x     Row 2
-      # EP  x   x   x   x   x   x   x   W     Row 3
-      # ES  W   S   x   x   x   S   x   x     Row 4
-      if thisEnd == 'start'
+      # f/t S>  S<  E>  E<
+      # SP  S   S   S   W     Row 1
+      # SS  W   W   x   x     Row 2
+      # EP  x   x   W   W     Row 3
+      # ES  W   S   S   S     Row 4
+      #
+      # If the other end of the dependency already has a date, it's a strong
+      # dependency no matter how it was set.
+      unless atEnd
         # Row 1
         a('startpreds').each do |task, onEnd|
           if (onEnd && (task['forward', @scenarioIdx] ||
-                        task['end', @scenarioIdx])) ||
-             (!onEnd && (task['forward', @scenarioIdx] ||
-                         task['start']))
+                        task['end', @scenarioIdx])) || !onEnd
             return true
           end
         end
+        # Row 2
+        a('startsuccs').each do |task, onEnd|
+          return true if task[onEnd ? 'end' : 'start', @scenarioIdx]
+        end
       else
+        # Row 3
+        a('endpreds').each do |task, onEnd|
+          return true if task[onEnd ? 'end' : 'start', @scenarioIdx]
+        end
         # Row 4
         a('endsuccs').each do |task, onEnd|
-          if (onEnd && (!task['forward', @scenarioIdx] ||
-                        task['end', @scenarioIdx])) ||
-             (!onEnd && (!task['forward', @scenarioIdx] ||
-                         task['start', @scenarioIdx]))
+          if (!onEnd && (!task['forward', @scenarioIdx] ||
+                         task['start', @scenarioIdx])) || onEnd
             return true
           end
         end
@@ -2039,7 +2038,7 @@ class TaskJuggler
       end
 
       @property[depType, @scenarioIdx].each do |dep|
-        if dep.task == depTask && dep != dependency
+        if dep.task == depTask && !dep.equal?(dependency)
           # Remove the broken dependency. It could cause trouble later on.
           @property[depType, @scenarioIdx].delete(dependency)
           error('task_depend_multi',
@@ -2140,7 +2139,7 @@ class TaskJuggler
           # For container task the completion degree is the average of the
           # sub tasks.
           completion = 0.0
-          @property.children.each do |child|
+          @property.kids.each do |child|
             return nil unless (comp = child.calcCompletion(@scenarioIdx))
             completion += comp
           end
@@ -2154,7 +2153,7 @@ class TaskJuggler
         elsif a('effort') > 0
           # Effort based leaf tasks. The completion degree is the percentage
           # of effort that has been done already.
-          done = getEffectiveWork(@project.dateToIdx(a('start')),
+          done = getEffectiveWork(@project.dateToIdx(a('start'), false),
                                   @project.dateToIdx(@project['now']))
           total = @project.convertToDailyLoad(
             a('effort') * @project['scheduleGranularity'])
@@ -2183,6 +2182,39 @@ class TaskJuggler
         end
     end
 
+    # Recursively compile a list of Task properties which depend on the
+    # current task.
+    def inputs(list, includeChildren)
+      # Ignore tasks that we have already included in the list.
+      return if list.include?(@property)
+
+      # A target must be a leaf function that has no direct or indirect
+      # (through parent) following tasks. Only milestones are recognized as
+      # targets.
+      if @property.leaf? && !hasPredecessors && a('milestone')
+        list << @property
+        return
+      end
+
+      a('startpreds').each do |t, onEnd|
+        t.inputs(@scenarioIdx, list, false)
+      end
+
+      # Check for indirect predecessors.
+      if @property.parent
+        @property.parent.inputs(@scenarioIdx, list, false)
+      end
+
+      # Also include targets of child tasks. The recursive iteration of child
+      # tasks is limited to the tested task only. The predecessors are not
+      # iterated.
+      if includeChildren
+        @property.kids.each do |child|
+          child.inputs(@scenarioIdx, list, true)
+        end
+      end
+    end
+
     # Recursively compile a list of Task properties which depend on the
     # current task.
     def targets(list, includeChildren)
@@ -2210,7 +2242,7 @@ class TaskJuggler
       # tasks is limited to the tested task only. The followers are not
       # iterated.
       if includeChildren
-        @property.children.each do |child|
+        @property.kids.each do |child|
           child.targets(@scenarioIdx, list, true)
         end
       end
@@ -2224,7 +2256,7 @@ class TaskJuggler
     def turnover(startIdx, endIdx, account, resource = nil)
       amount = 0.0
       if @property.container?
-        @property.children.each do |child|
+        @property.kids.each do |child|
           amount += child.turnover(@scenarioIdx, startIdx, endIdx, account,
                                    resource)
         end
@@ -2310,6 +2342,35 @@ class TaskJuggler
       "* <nowiki>#{str}</nowiki>"
     end
 
+    def generateTaskList(taskList, mode)
+      list = []
+      taskList.each do |task|
+        date = task['start', @scenarioIdx].to_s(@property.project['timeFormat'])
+        case mode
+        when 1
+          list << "#{task.fullId}"
+        when 2
+          list << "#{task.name}"
+        when 3
+          list << "#{task.name} (#{task.fullId})"
+        when 4
+          list << "#{task.fullId}: #{task.name}"
+        when 5
+          list << "#{task.fullId} (#{date})"
+        when 6
+          list << "#{task.name} (#{date})"
+        when 7, nil
+          list << "#{task.name} (#{task.fullId}) #{date}"
+        when 8
+          list << "#{task.fullId}: #{task.name} #{date}"
+        else
+          error('bad_listmode_qt',
+                "Bad listmode #{mode}. Use 1 - 8.")
+        end
+      end
+      list
+    end
+
   end
 
 end