taskjuggler 0.0.2 → 0.0.3

data/lib/Project.rb

@@ -27,6 +27,8 @@ require 'ShiftAssignments'
 require 'WorkingHours'
 require 'ProjectFileParser'
 require 'BatchProcessor'
+require 'Journal'
+require 'KeywordArray'
 
 class TaskJuggler
 
@@ -45,6 +47,7 @@ class TaskJuggler
 
     attr_reader :accounts, :shifts, :tasks, :resources, :scenarios,
                 :reports, :messageHandler
+    attr_accessor :reportContext, :outputDir
 
     # Create a project with the specified +id+, +name+ and +version+.
     # +messageHandler+ is a MessageHandler reference that is used to handle
@@ -53,31 +56,33 @@ class TaskJuggler
     def initialize(id, name, version, messageHandler)
       @messageHandler = messageHandler
       @attributes = {
-        'projectid' => id,
+        'projectid' => id || "prj",
         'projectids' => [ id ],
         'name' => name,
-        'version' => version,
+        'version' => version || "1.0",
         'costAccount' => nil,
         'copyright' => nil,
         'currency' => "EUR",
-        'currencyformat' => RealFormat.new([ '-', '', '', ',', 2 ]),
+        'currencyFormat' => RealFormat.new([ '-', '', '', ',', 2 ]),
         'dailyworkinghours' => 8.0,
         'end' => nil,
         'flags' => [],
+        'journal' => Journal.new,
         'limits' => nil,
-        'loadunit' => :shortauto,
+        'loadUnit' => :shortauto,
+        'navigators' => {},
         'now' => TjTime.now.align(3600),
-        'numberformat' => RealFormat.new([ '-', '', '', '.', 1]),
+        'numberFormat' => RealFormat.new([ '-', '', '', '.', 1]),
         'priority' => 500,
         'rate' => 0.0,
         'revenueAccount' => nil,
-        'scheduleGranularity' => 3600,
-        'shorttimeformat' => "%H:%M",
+        'scheduleGranularity' => Project.maxScheduleGranularity,
+        'shortTimeFormat' => "%H:%M",
         'start' => nil,
-        'timeformat' => "%Y-%m-%d",
+        'timeFormat' => "%Y-%m-%d",
         'timezone' => nil,
         'vacations' => [],
-        'weekstartsmonday' => true,
+        'weekStartsMonday' => true,
         'workinghours' => WorkingHours.new,
         'yearlyworkingdays' => 260.714
       }
@@ -92,109 +97,270 @@ class TaskJuggler
       # definitions to register the attributes with the properties.
       @scenarios = PropertySet.new(self, true)
       attrs = [
-        # ID           Name          Type               Inh.     Scen.  Default
-        [ 'enabled',   'Enabled',    BooleanAttribute,  true,    false, true ],
-        [ 'minslackrate', 'Min. Slack Rate', FloatAttribute, true, false, 0.0 ],
-        [ 'projection', 'Projection Mode', BooleanAttribute, true, false, false ],
-        [ 'strict', 'Strict Bookings', BooleanAttribute, true, false, false ]
+        # ID           Name          Type
+        #     Inh.   Inh.Prj  Scen.  Default
+        [ 'enabled',   'Enabled',    BooleanAttribute,
+              true,  false,   false, true ],
+        [ 'minslackrate', 'Min. Slack Rate', FloatAttribute,
+              true,  false,   false, 1.0 ],
+        [ 'projection', 'Projection Mode', BooleanAttribute,
+              true,  false,   false, false ],
+        [ 'strict', 'Strict Bookings', BooleanAttribute,
+              true, false,    false, false ]
       ]
       attrs.each { |a| @scenarios.addAttributeType(AttributeDefinition.new(*a)) }
 
       @shifts = PropertySet.new(self, true)
       attrs = [
-        # ID           Name            Type               Inher. Scen.  Default
-        [ 'index',     'Index',        FixnumAttribute,   false, false, -1 ],
-        [ 'replace',   'Replace',      BooleanAttribute,  true,  true,  false ],
-        [ 'timezone',  'Time Zone',    StringAttribute,   true,  true,  nil ],
-        [ 'tree',      'Tree Index',   StringAttribute,   false, false, "" ],
-        [ 'vacations', 'Vacations',    IntervalListAttribute, true, true, [] ],
-        [ 'wbs',       'WBS',          StringAttribute,   false, false, "" ],
-        [ 'workinghours', 'Working Hours', WorkingHoursAttribute, true, true,
-          nil ]
+        # ID           Name            Type
+        #     Inh.   Inh.Prj  Scen.  Default
+        [ 'index',     'Index',        FixnumAttribute,
+              false, false,   false, -1 ],
+        [ 'replace',   'Replace',      BooleanAttribute,
+              true,  false,   true,  false ],
+        [ 'timezone',  'Time Zone',    StringAttribute,
+              true,  true,    true,  nil ],
+        [ 'tree',      'Tree Index',   StringAttribute,
+              false, false,   false, "" ],
+        [ 'vacations', 'Vacations',    IntervalListAttribute,
+              true,  true,    true,  [] ],
+        [ 'wbs',       'WBS',          StringAttribute,
+              false, false,   false, "" ],
+        [ 'workinghours', 'Working Hours', WorkingHoursAttribute,
+              true,  true,    true,  nil ]
       ]
       attrs.each { |a| @shifts.addAttributeType(AttributeDefinition.new(*a)) }
 
       @accounts = PropertySet.new(self, true)
       attrs = [
-        # ID           Name            Type               Inher. Scen.  Default
-        [ 'index',     'Index',        FixnumAttribute,   false, false, -1 ],
-        [ 'tree',      'Tree Index',   StringAttribute,   false, false, "" ],
-        [ 'wbs',       'WBS',          StringAttribute,   false, false, "" ]
+        # ID           Name            Type
+        #     Inh.   Inh.Prj  Scen.  Default
+        [ 'index',     'Index',        FixnumAttribute,
+              false, false,   false, -1 ],
+        [ 'tree',      'Tree Index',   StringAttribute,
+              false, false,   false, "" ],
+        [ 'wbs',       'WBS',          StringAttribute,
+              false, false,   false, "" ]
       ]
       attrs.each { |a| @accounts.addAttributeType(AttributeDefinition.new(*a)) }
 
       @resources = PropertySet.new(self, true)
       attrs = [
-        # ID           Name            Type               Inher. Scen.  Default
-        [ 'alloctdeffort', 'Alloctd. Effort', FloatAttribute, false, true, 0.0 ],
-        [ 'criticalness', 'Criticalness', FloatAttribute, false, true, 0.0 ],
-        [ 'duties',    'Duties',       TaskListAttribute, false, true,  [] ],
-        [ 'efficiency','Efficiency',   FloatAttribute,    true,  true, 1.0 ],
-        [ 'effort', 'Total Effort',    FixnumAttribute,   false, true, 0 ],
-        [ 'email',     'Email',        StringAttribute,   true,  false, nil ],
-        [ 'flags',     'Flags',        FlagListAttribute, true,  true,  [] ],
-        [ 'fte',       'FTE',          FloatAttribute,    false,  true, 1.0 ],
-        [ 'headcount', 'Headcount',    FixnumAttribute,   false,  true, 1 ],
-        [ 'index',     'Index',        FixnumAttribute,   false, false, -1 ],
-        [ 'limits',    'Limits',       LimitsAttribute,   true,  true, nil ],
-        [ 'rate',      'Rate',         FloatAttribute,    true,  true, 0.0 ],
-        [ 'shifts',    'Shifts',       ShiftAssignmentsAttribute, true, true,
-          nil ],
-        [ 'timezone',  'Time Zone',    StringAttribute,   true,  true,  nil ],
-        [ 'tree',      'Tree Index',   StringAttribute,   false, false, "" ],
-        [ 'vacations',  'Vacations',   IntervalListAttribute, true, true, [] ],
-        [ 'wbs',       'WBS',          StringAttribute,   false, false, "" ],
-        [ 'workinghours', 'Working Hours', WorkingHoursAttribute, true, true,
-          nil ]
+        # ID           Name            Type
+        #     Inh.   Inh.Prj  Scen.  Default
+        [ 'alloctdeffort', 'Alloctd. Effort', FloatAttribute,
+              false, false,   true,  0.0 ],
+        [ 'criticalness', 'Criticalness', FloatAttribute,
+              false, false,   true,  0.0 ],
+        [ 'duties',    'Duties',       TaskListAttribute,
+              false, false,   true,  [] ],
+        [ 'efficiency','Efficiency',   FloatAttribute,
+              true,  false,   true,  1.0 ],
+        [ 'effort', 'Total Effort',    FixnumAttribute,
+              false, false,   true,  0 ],
+        [ 'email',     'Email',        StringAttribute,
+              true,  false,   false, nil ],
+        [ 'flags',     'Flags',        FlagListAttribute,
+              true,  false,   true,  [] ],
+        [ 'fte',       'FTE',          FloatAttribute,
+              false, false,   true,  1.0 ],
+        [ 'headcount', 'Headcount',    FixnumAttribute,
+              false, false,   true,  1 ],
+        [ 'index',     'Index',        FixnumAttribute,
+              false, false,   false, -1 ],
+        [ 'limits',    'Limits',       LimitsAttribute,
+              true,  true,    true,  nil ],
+        [ 'rate',      'Rate',         FloatAttribute,
+              true,  true,    true,  0.0 ],
+        [ 'shifts',    'Shifts',       ShiftAssignmentsAttribute,
+              true, false,    true,  nil ],
+        [ 'timezone',  'Time Zone',    StringAttribute,
+              true,  false,   true,  nil ],
+        [ 'tree',      'Tree Index',   StringAttribute,
+              false, false,   false, "" ],
+        [ 'vacations',  'Vacations',   IntervalListAttribute,
+              true,  true,    true,  [] ],
+        [ 'wbs',       'WBS',          StringAttribute,
+              false, false,   false, "" ],
+        [ 'workinghours', 'Working Hours', WorkingHoursAttribute,
+              true,  true,    true,  nil ]
       ]
       attrs.each { |a| @resources.addAttributeType(AttributeDefinition.new(*a)) }
 
       @tasks = PropertySet.new(self, false)
       attrs = [
-        # ID           Name            Type               Inher. Scen.  Default
-        [ 'allocate', 'Allocations', AllocationAttribute, true,  true,  [] ],
-        [ 'assignedresources', 'Assigned Resources', ResourceListAttribute, false, true, [] ],
-        [ 'booking',   'Bookings',     BookingListAttribute, false, true, [] ],
-        [ 'charge',    'Charges',      ChargeListAttribute, false, true, [] ],
-        [ 'chargeset', 'Charge Sets',  ChargeSetListAttribute, true, true, [] ],
-        [ 'complete',  'Completion',   FloatAttribute,    false, true,  nil ],
-        [ 'criticalness', 'Criticalness', FloatAttribute, false, true,  0.0 ],
-        [ 'depends',   '-',      DependencyListAttribute, true,  true,  [] ],
-        [ 'duration',  'Duration',     DurationAttribute, false, true,  0 ],
-        [ 'effort',    'Effort',       DurationAttribute, false, true,  0 ],
-        [ 'end',       'End',          DateAttribute,     true,  true,  nil ],
-        [ 'endpreds',  'End Preds.',   TaskListAttribute, false, true,  [] ],
-        [ 'endsuccs',  'End Succs.',   TaskListAttribute, false, true,  [] ],
-        [ 'flags',     'Flags',        FlagListAttribute, true,  true,  [] ],
-        [ 'forward',   'Scheduling',   BooleanAttribute,  true,  true,  true ],
-        [ 'index',     'Index',        FixnumAttribute,   false, false, -1 ],
-        [ 'length',    'Length',       DurationAttribute, false, true,  0 ],
-        [ 'limits',    'Limits',       LimitsAttribute,   false, true,  nil ],
-        [ 'maxend',    'Max. End',     DateAttribute,     true,  true,  nil ],
-        [ 'maxstart',  'Max. Start',   DateAttribute,     true,  true,  nil ],
-        [ 'milestone', 'Milestone',    BooleanAttribute,  false, true,  false ],
-        [ 'minend',    'Min. End',     DateAttribute,     true,  true,  nil ],
-        [ 'minstart',  'Min. Start',   DateAttribute,     true,  true,  nil ],
-        [ 'note',      'Note',         RichTextAttribute, false, false, nil ],
-        [ 'pathcriticalness', 'Path Criticalness', FloatAttribute, false, true, 0.0 ],
-        [ 'precedes',  '-',      DependencyListAttribute, true,  true,  [] ],
-        [ 'priority',  'Priority',     FixnumAttribute,   true,  true,  500 ],
-        [ 'projectid', 'Project ID',   SymbolAttribute,   true,  true,  nil ],
-        [ 'responsible', 'Responsible', ResourceListAttribute, true, true, [] ],
-        [ 'scheduled', 'Scheduled',    BooleanAttribute,  true,  true,  false ],
-        [ 'shifts',     'Shifts',      ShiftAssignmentsAttribute, true, true,
-          nil ],
-        [ 'start',     'Start',        DateAttribute,     true,  true,  nil ],
-        [ 'startpreds', 'Start Preds.', TaskListAttribute, false, true, [] ],
-        [ 'startsuccs', 'Start Succs.', TaskListAttribute, false, true, [] ],
-        [ 'tree',      'Tree Index',   StringAttribute,   false, false, "" ],
-        [ 'wbs',       'WBS',          StringAttribute,   false, false, "" ]
+        # ID           Name            Type
+        #     Inh.   Inh.Prj  Scen.  Default
+        [ 'allocate', 'Allocations',   AllocationAttribute,
+              true,  false,   true,  [] ],
+        [ 'assignedresources', 'Assigned Resources', ResourceListAttribute,
+              false, false,   true,  [] ],
+        [ 'booking',   'Bookings',     BookingListAttribute,
+              false, false,   true,  [] ],
+        [ 'charge',    'Charges',      ChargeListAttribute,
+              false, false,   true,  [] ],
+        [ 'chargeset', 'Charge Sets',  ChargeSetListAttribute,
+              true,  false,   true,  [] ],
+        [ 'complete',  'Completion',   FloatAttribute,
+              false, false,   true,  nil ],
+        [ 'criticalness', 'Criticalness', FloatAttribute,
+              false, false,   true,  0.0 ],
+        [ 'depends',   'Preceding tasks', DependencyListAttribute,
+              true,  false,   true,  [] ],
+        [ 'duration',  'Duration',     DurationAttribute,
+              false, false,   true,  0 ],
+        [ 'effort',    'Effort',       DurationAttribute,
+              false, false,   true,  0 ],
+        [ 'end',       'End',          DateAttribute,
+              true,  false,   true,  nil ],
+        [ 'endpreds',  'End Preds.',   TaskListAttribute,
+              false, false,   true,  [] ],
+        [ 'endsuccs',  'End Succs.',   TaskListAttribute,
+              false, false,   true,  [] ],
+        [ 'flags',     'Flags',        FlagListAttribute,
+              true,  false,   true,  [] ],
+        [ 'forward',   'Scheduling',   BooleanAttribute,
+              true,  false,   true,  true ],
+        [ 'index',     'Index',        FixnumAttribute,
+              false, false,   false, -1 ],
+        [ 'length',    'Length',       DurationAttribute,
+              false, false,   true,  0 ],
+        [ 'limits',    'Limits',       LimitsAttribute,
+              false, false,   true,  nil ],
+        [ 'maxend',    'Max. End',     DateAttribute,
+              true,  false,   true,  nil ],
+        [ 'maxstart',  'Max. Start',   DateAttribute,
+              false, false,   true,  nil ],
+        [ 'milestone', 'Milestone',    BooleanAttribute,
+              false, false,   true,  false ],
+        [ 'minend',    'Min. End',     DateAttribute,
+              false, false,   true,  nil ],
+        [ 'minstart',  'Min. Start',   DateAttribute,
+              true,  false,   true,  nil ],
+        [ 'note',      'Note',         RichTextAttribute,
+              false, false,   false, nil ],
+        [ 'pathcriticalness', 'Path Criticalness', FloatAttribute,
+              false, false,   true, 0.0 ],
+        [ 'precedes',  'Following tasks', DependencyListAttribute,
+              true,  false,   true,  [] ],
+        [ 'priority',  'Priority',     FixnumAttribute,
+              true,  true,    true,  500 ],
+        [ 'projectid', 'Project ID',   SymbolAttribute,
+              true,  true,    true,  nil ],
+        [ 'responsible', 'Responsible', ResourceListAttribute,
+              true,  false,   true,  [] ],
+        [ 'scheduled', 'Scheduled',    BooleanAttribute,
+              true,  false,   true,  false ],
+        [ 'shifts',     'Shifts',      ShiftAssignmentsAttribute,
+              true,  false,   true, nil ],
+        [ 'start',     'Start',        DateAttribute,
+              true,  false,   true,  nil ],
+        [ 'startpreds', 'Start Preds.', TaskListAttribute,
+              false, false,   true,  [] ],
+        [ 'startsuccs', 'Start Succs.', TaskListAttribute,
+              false, false,   true,  [] ],
+        [ 'tree',      'Tree Index',   StringAttribute,
+              false, false,   false, "" ],
+        [ 'wbs',       'WBS',          StringAttribute,
+              false, false,   false, "" ]
       ]
       attrs.each { |a| @tasks.addAttributeType(AttributeDefinition.new(*a)) }
 
+      @reports = PropertySet.new(self, false)
+      attrs = [
+        # ID           Name            Type
+        #     Inh.   Inh.Prj  Scen.  Default
+        [ 'caption',   'Caption',      RichTextAttribute,
+              false, false,   false, nil ],
+        [ 'center',    'Center',       RichTextAttribute,
+              true,  false,   false, nil ],
+        [ 'columns',   'Columns',      ColumnListAttribute,
+              true,  false,   false, [] ],
+        [ 'costAccount', 'Cost Account', AccountAttribute,
+              true,  true,    false, nil ],
+        [ 'currencyFormat', 'Currency Format', RealFormatAttribute,
+              true,  true,    false, nil ],
+        [ 'definitions', 'Definitions', DefinitionListAttribute,
+              true,  false,   false, KeywordArray.new([ '*' ]) ],
+        [ 'end',       'End',          DateAttribute,
+              true,  true,    false, nil ],
+        [ 'epilog',    'Epilog',       RichTextAttribute,
+              false, false,   false, nil ],
+        [ 'footer',    'Footer',       RichTextAttribute,
+              true,  false,   false, nil ],
+        [ 'formats',   'Formats',      FormatListAttribute,
+              true,  false,   false, [] ],
+        [ 'ganttBars', 'Gantt Bars',   BooleanAttribute,
+              true,  false,   false, true ],
+        [ 'header',    'Header',       RichTextAttribute,
+              true,  false,   false, nil ],
+        [ 'headline',  'Headline',     StringAttribute,
+              false, false,   false, '' ],
+        [ 'hideResource', 'Hide Resource', LogicalExpressionAttribute,
+              true,  false,   false, nil ],
+        [ 'hideTask',  'Hide Task',    LogicalExpressionAttribute,
+              true,  false,   false, nil ],
+        [ 'index',     'Index',        FixnumAttribute,
+              false, false,   false, -1 ],
+        [ 'left',      'Left',         RichTextAttribute,
+              true,  false,   false, nil ],
+        [ 'loadUnit',  'Load Unit',    StringAttribute,
+              true,  true,    false, nil ],
+        [ 'now',       'Now',          DateAttribute,
+              true,  true,    false, nil ],
+        [ 'numberFormat', 'Number Format', RealFormatAttribute,
+              true,  true,    false, nil ],
+        [ 'prolog',    'Prolog',       RichTextAttribute,
+              false, false,   false, nil],
+        [ 'resourceAttributes', 'Resource Attributes', FormatListAttribute,
+              true,  false,   false, KeywordArray.new([ '*' ]) ],
+        [ 'resourceRoot',  'resource Root', PropertyAttribute,
+              true,  false,   false, nil ],
+        [ 'revenueAccount', 'Revenue Account', AccountAttribute,
+              true,  true,    false, nil ],
+        [ 'right',     'Right',        RichTextAttribute,
+              true,  false,   false, nil ],
+        [ 'rollupResource', 'Rollup Resource', LogicalExpressionAttribute,
+              true,  false,   false, nil ],
+        [ 'rollupTask', 'Rollup Task', LogicalExpressionAttribute,
+              true, false,    false, nil ],
+        [ 'scenarios',  'Scenarios',   ScenarioListAttribute,
+              true, false,    false, [ 0 ] ],
+        [ 'shortTimeFormat', 'Short Time Format', StringAttribute,
+              true,  true,    false, nil ],
+        [ 'sortResources', 'Sort Resources', SortListAttribute,
+              true,  false,   false, [[ 'seqno', true, -1 ]] ],
+        [ 'sortTasks', 'Sort Tasks',   SortListAttribute,
+              true,  false,   false, [[ 'seqno', true, -1 ]] ],
+        [ 'start',     'Start',        DateAttribute,
+              true,  true,    false, nil ],
+        [ 'taskAttributes', 'Task Attributes', FormatListAttribute,
+              true,  false,   false, KeywordArray.new([ '*' ]) ],
+        [ 'taskRoot',  'Task Root',    PropertyAttribute,
+              true,  false,   false, nil ],
+        [ 'timeFormat', 'Time Format', StringAttribute,
+              true,  true,    false, nil ],
+        [ 'timezone', 'Time Zone',     StringAttribute,
+              true,  true,    false, nil ],
+        [ 'tree',      'Tree Index',   StringAttribute,
+              false, false,   false, "" ],
+        [ 'wbs',       'WBS',          StringAttribute,
+              false, false,   false, "" ],
+        [ 'weekStartsMonday', 'Week Starts Monday', BooleanAttribute,
+              true,  true,    false, false ]
+      ]
+      attrs.each { |a| @reports.addAttributeType(AttributeDefinition.new(*a)) }
+
       Scenario.new(self, 'plan', 'Plan Scenario', nil)
 
-      @reports = { }
+      @reportContext = nil
+      @outputDir = ''
+    end
+
+    # Overload the deep_clone function so that references to the project don't
+    # lead to deep copying of the whole project.
+    def deep_clone
+      self
     end
 
     # Pass a message (error or warning) to the message handler. _message_ is a
@@ -252,19 +418,13 @@ class TaskJuggler
     # Return the Scenario with the given _id_ or _index_.
     def scenario(arg)
       if arg.is_a?(Fixnum)
-        if $DEBUG && (arg < 0 || arg >= @scenarios.items)
-          raise "Scenario index out of range: #{arg}"
-        end
         @scenarios.each do |sc|
           return sc if sc.sequenceNo - 1 == arg
         end
-        raise "No scenario with index #{arg}"
       else
-        if $DEBUG && @scenarios[arg].nil?
-          raise "No scenario with id '#{arg}'"
-        end
-        @scenarios[arg]
+        return @scenarios[arg]
       end
+      nil
     end
 
     # call-seq:
@@ -302,6 +462,20 @@ class TaskJuggler
       @resources[id]
     end
 
+    # Return the Report with the ID +id+ or return nil if it does not exist.
+    def report(id)
+      @reports[id]
+    end
+
+    # Return the Report with the name +name+ or return nil if it does not
+    # exist.
+    def reportByName(name)
+      @reports.each do |report|
+        return report if report.name == name
+      end
+      nil
+    end
+
     # This function must be called after the Project data structures have been
     # filled with data. It schedules all scenario and stores the result in the
     # data structures again.
@@ -352,15 +526,21 @@ class TaskJuggler
     # This function may only be called after Project#schedule has been called.
     def generateReports(maxCpuCores)
       begin
+        @reports.index
         if maxCpuCores == 1
-          @reports.each_value  do  |report|
+          @reports.each do |report|
+            next if report.get('formats').empty?
             Log.startProgressMeter("Report #{report.name}")
+            @reportContext = ReportContext.new(self, report)
             report.generate
             Log.stopProgressMeter
           end
         else
           bp = BatchProcessor.new(maxCpuCores)
-          @reports.each_value { |report| bp.queue(report) { report.generate } }
+          @reports.each_value do |report|
+            next if report.get('formats').empty?
+            bp.queue(report) { report.generate }
+          end
           bp.wait do |report|
             $stdout.print(report.stdout)
             $stderr.print(report.stderr)
@@ -403,7 +583,7 @@ class TaskJuggler
     end
 
     def addReport(report) # :nodoc:
-      @reports[report.name] = report
+      @reports.addProperty(report)
     end
 
     # call-seq:
@@ -482,6 +662,41 @@ class TaskJuggler
       ((date - @attributes['start']) / @attributes['scheduleGranularity']).to_i
     end
 
+    # TaskJuggler keeps all times in UTC. All time values must be multiples of
+    # the used scheduling granularity. If the local time zone is not
+    # hour-aligned to UTC, the maximum allowed schedule granularity is
+    # reduced.
+    def Project.maxScheduleGranularity
+      refTime = Time.gm(2000, 1, 1, 0, 0, 0)
+      case (min = refTime.getlocal.min)
+      when 0
+        # We are hour-aligned to UTC; scheduleGranularity is 1 hour
+        60 * 60
+      when 30
+        # We are half-hour off from UTC; scheduleGranularity is 30 minutes
+        30 * 60
+      when 15, 45
+        # We are 15 or 45 minutes off from UTC; scheduleGranularity is 15
+        # minutes
+        15 * 60
+      else
+        raise "Unknown Time zone alignment #{min}"
+      end
+    end
+
+    # Return the name of the attribute _id_. Since we don't know whether we
+    # are looking for a task, resource, etc. attribute, we prefer tasks over
+    # resources here.
+    def attributeName(id)
+      # We have to see if the attribute id is a task or resource attribute and
+      # return it's name.
+      (name = @tasks.attributeName(id)).nil? &&
+      (name = @resources.attributeName(id)).nil?
+      name
+    end
+
+
+
     # Print the attribute values. It's used for debugging only.
     def to_s
       @attributes.each do |attribute, value|
@@ -516,7 +731,6 @@ class TaskJuggler
       end
 
       tasks.each { |task| task.prepareScheduling(scIdx) }
-
       tasks.each { |task| task.Xref(scIdx) }
       tasks.each { |task| task.propagateInitialValues(scIdx) }
       tasks.each { |task| task.preScheduleCheck(scIdx) }