taskjuggler 0.0.3 → 0.0.4

data/examples/tutorial.tjp

@@ -62,6 +62,11 @@ account rev "Payments"
 # The Profit&Loss analysis should be rev - cost accounts.
 balance cost rev
 
+resource boss "Paul Henry Bullock" {
+  Email "phb@crappysoftware.com"
+  Phone "x100"
+  rate 480
+}
 resource dev "Developers" {
   resource dev1 "Paul Smith" {
     Email "paul@crappysoftware.com"
@@ -142,6 +147,18 @@ task AcSo "Accounting Software" {
     task database "Database coupling" {
       effort 20d
       allocate dev1, dev2
+      journalentry 2002-02-03 "Problems with the SQL Libary" {
+        author dev1
+        alert yellow
+        summary -8<-
+          We ran into some compatibility problems with the SQL
+          Library.
+        ->8-
+        details -8<-
+          We have already contacted the vendor and are now waiting for
+          their advise.
+        ->8-  
+      }
     }
 
     task gui "Graphical User Interface" {
@@ -181,6 +198,17 @@ task AcSo "Accounting Software" {
       depends !!software
       allocate test, dev2
       note "Hopefully most bugs will be found and fixed here."
+      journalentry 2002-03-01 "Contract with Peter not yet signed" {
+        author boss
+        alert red
+        summary -8<-
+          The paperwork is stuck with HR and I can't hunt it down.
+        ->8-
+        details -8<-
+          If we don't get the contract closed within the next week,
+          the start of the testing is at risk.
+        ->8-
+      }
     }
 
     task beta "Beta Test" {
@@ -196,6 +224,10 @@ task AcSo "Accounting Software" {
     allocate doc, dev3
     purge chargeset
     chargeset doc
+    journalentry 2002-02-28 "User manual completed" {
+      author boss
+      summary "The doc writers did a really great job to finish on time."
+    }
   }
 
   task deliveries "Milestones" {
@@ -254,28 +286,50 @@ navigator navbar {
   hidereport 0
 }
 
-textreport "Overview" {
-  formats html
+textreport "" {
   header -8<-
     == Accounting Software Project ==
     ----
     <[navigator id="navbar"]>
     ----
   ->8-
-  center '<[report id="overview"]>'
+  footer "----"
+  textreport "Overview" {
+    formats html
+    center '<[report id="overview"]>'
+  }
+
+  textreport "Status" {
+    formats html
+    center -8<-
+      <[report id="status.dashboard"]>
+      ----
+      <[report id="status.completed"]>
+      ----
+      <[report id="status.ongoing"]>
+      ----
+      <[report id="status.future"]>
+    ->8-   
+  }
 
   textreport "Development" {
+    formats html
     center '<[report id="development"]>'
   }
 
   textreport "Deliveries" {
+    formats html
     center '<[report id="deliveries"]>'
   }
 
   textreport "ContactList" {
+    formats html
+    title "Contact List"
     center '<[report id="contactList"]>'
   }
-  textreport "Resource Graph" {
+  textreport "ResourceGraph" {
+    formats html
+    title "Resource Graph"
     center '<[report id="resourceGraph"]>'
   }
 }
@@ -291,9 +345,11 @@ taskreport overview "" {
     # [[Development]]
     # Testing
     
-    === Project Plan ===
+    === Original Project Plan ===
   ->8-
-  columns hierarchindex, name, start, end, effort, duration, cost,
+  columns hierarchindex,
+          name { tooltip 1 "'''ID''': <-query attribute='id'->" },
+          start, end, effort, duration, cost,
           revenue, chart
   # For this report we like to have the abbreviated weekday in front
   # of the date. %a is the tag for this.
@@ -317,29 +373,69 @@ taskreport overview "" {
   ->8-
 }
 
+# Macro to set the background color of a cell according to the alert
+# level of the task.
+macro AlertColor [
+  cellcolor plan.alert = 0 "#00D000" # green
+  cellcolor plan.alert = 1 "#D0D000" # yellow
+  cellcolor plan.alert = 2 "#D00000" # red
+]
+
+taskreport status "" {
+  columns wbs, name, start, end, effort, alert, status
+  scenarios delayed 
+
+  taskreport dashboard "" {
+    headline "Project Dashboard (<-query attribute='now'->)"
+    columns name { title "Task" ${AlertColor} },
+            resources { width 200 ${AlertColor} 
+                        start ${projectstart} end ${projectend} },
+            alerttrend { title "Trend" ${AlertColor} },
+            alertmessage { width 260 ${AlertColor} }
+    hidetask ~hasalert(0)
+    sorttasks alert.down, delayed.end.up
+    period %{${now} - 1w} +1w
+  }
+  taskreport completed "" {
+    headline "Already completed tasks"
+    hidetask ~(delayed.end <= ${now})
+  }
+  taskreport ongoing "" {
+    headline "Ongoing tasks"
+    hidetask ~((delayed.start <= ${now}) & (delayed.end > ${now}))
+  }
+  taskreport future "" {
+    headline "Future tasks"
+    hidetask ~(delayed.start > ${now})
+  }
+}
+
 # A list of tasks showing the resources assigned to each task.
 taskreport development "" {
+  scenarios delayed
   headline "Development - Resource Allocation Report"
   columns hierarchindex, name, start, end, effort { title "Work" },
-          duration, chart { scale day }
+          duration, chart { scale day width 500 }
   timeformat "%Y-%m-%d"
-  hideresource ~isleaf()
+  hideresource ~(isleaf() & isleaf_())
   sortresources name.up
 }
 
 # A list of all tasks with the percentage completed for each task
 taskreport deliveries "" {
-  headline "Project Deliveries"
-  columns hierarchindex, name, start, end, note, complete, chart
+  headline "Project Deliverables"
+  columns hierarchindex, name, start, end, note { width 150 }, complete, chart
   taskroot AcSo.deliveries
-  loadunit days
   hideresource 1
   scenarios plan, delayed
 }
 # A list of all employees with their contact details.
 resourcereport contactList "" {
+  scenarios delayed
   headline "Contact list and duty plan"
-  columns name, Email { cellurl "mailto:$${Email}" }, Phone,
+  columns name,
+          Email { celltext 1 "[mailto:<-Email-> <-Email->]" },
+          Phone,
           chart { scale day }
   hideresource ~isleaf()
   sortresources name.up
@@ -349,9 +445,12 @@ resourcereport contactList "" {
 # A graph showing resource allocation. It identifies whether each
 # resource is under- or over-allocated for.
 resourcereport resourceGraph "" {
+  scenarios delayed
   headline "Resource Allocation Graph"
-  columns no, name, effort, rate, weekly #, utilization, freeload, chart
+  columns no, name, effort, rate, weekly
   loadunit shortauto
-  hidetask ~isleaf()
+  # We only like to show leaf tasks for leaf resources.
+  hidetask ~(isleaf() & isleaf_())
   sorttasks plan.start.up
 }
+

data/gem_spec.rb

@@ -3,6 +3,7 @@ GEM_SPEC = Gem::Specification.new { |s|
     s.name              = UNIX_NAME
     s.version           = PROJECT_VERSION
     s.summary           = PROJECT_SUMMARY
+    s.description       = DESCRIPTION
     s.rubyforge_project = UNIX_NAME
     s.homepage          = PROJECT_HOMEPAGE
     s.author            = USER_NAME
@@ -25,6 +26,6 @@ GEM_SPEC = Gem::Specification.new { |s|
         s.cert_chain  = [CERT_PUBLIC]
     end
     s.platform          = Gem::Platform::RUBY
-    s.required_ruby_version  = '>= 1.8.5'
+    s.required_ruby_version  = '>= 1.8.6'
 }
 

data/lib/Account.rb

@@ -3,7 +3,7 @@
 #
 # = Account.rb -- The TaskJuggler III Project Management Software
 #
-# Copyright (c) 2006, 2007, 2008, 2009 by Chris Schlaeger <cs@kde.org>
+# Copyright (c) 2006, 2007, 2008, 2009, 2010 by Chris Schlaeger <cs@kde.org>
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of version 2 of the GNU General Public License as

data/lib/AccountScenario.rb

@@ -3,7 +3,7 @@
 #
 # = AccountScenario.rb -- The TaskJuggler III Project Management Software
 #
-# Copyright (c) 2006, 2007, 2008, 2009 by Chris Schlaeger <cs@kde.org>
+# Copyright (c) 2006, 2007, 2008, 2009, 2010 by Chris Schlaeger <cs@kde.org>
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of version 2 of the GNU General Public License as

data/lib/Allocation.rb

@@ -3,7 +3,7 @@
 #
 # = Allocation.rb -- The TaskJuggler III Project Management Software
 #
-# Copyright (c) 2006, 2007, 2008, 2009 by Chris Schlaeger <cs@kde.org>
+# Copyright (c) 2006, 2007, 2008, 2009, 2010 by Chris Schlaeger <cs@kde.org>
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of version 2 of the GNU General Public License as

data/lib/AppConfig.rb

@@ -3,7 +3,7 @@
 #
 # = AppConfig.rb -- The TaskJuggler III Project Management Software
 #
-# Copyright (c) 2006, 2007, 2008, 2009 by Chris Schlaeger <cs@kde.org>
+# Copyright (c) 2006, 2007, 2008, 2009, 2010 by Chris Schlaeger <cs@kde.org>
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of version 2 of the GNU General Public License as
@@ -11,6 +11,7 @@
 #
 
 require 'rbconfig'
+require 'rbconfig/datadir'
 
 # This class provides central management of configuration data to an
 # application. It stores the version number, the name of the application and
@@ -23,6 +24,7 @@ class AppConfig
   def initialize
     @@version = '0.0.0'
     @@packageName = 'unnamed'
+    @@softwareName = 'unnamed'
     @@packageInfo = 'no info'
     @@appName = 'unnamed'
     @@authors = []
@@ -47,6 +49,14 @@ class AppConfig
     @@packageName
   end
 
+  def AppConfig.softwareName=(name)
+    @@softwareName = name
+  end
+
+  def AppConfig.softwareName
+    @@softwareName
+  end
+
   def AppConfig.packageInfo=(info)
     @@packageInfo = info
   end
@@ -96,21 +106,24 @@ class AppConfig
   end
 
   def AppConfig.dataDirs(baseDir = 'data')
-    siteLibDir = ::Config::CONFIG['sitelibdir']
-    siteBaseDir, rubyVersionDir = siteLibDir.scan(/(.*\/)(.*)/)[0]
+    rubyLibDir = RbConfig::CONFIG['rubylibdir']
+    rubyBaseDir, versionDir = rubyLibDir.scan(/(.*\/)(.*)/)[0]
+
     dirs = []
-    # This is for the development version. We assume that we run the app
-    # from the source base directory.
-    dirs << "#{baseDir}/"
-    # Or from the lib directory.
-    dirs << "../#{baseDir}/"
+    if ENV['TASKJUGGLER_DATA_PATH']
+      dirs << ENV['TASKJUGGLER_DATA_PATH'] + "/#{baseDir}/"
+    end
     # This hopefully works for all setups. Otherwise we have to add more
     # alternative pathes.
-    dirs << siteBaseDir + "gems/" + rubyVersionDir + '/gems/' \
+    # This one is for RPM based distros like Novell
+    dirs << rubyBaseDir + "gems/" + versionDir + '/gems/' \
+        + @@packageName + '-' + @@version + "/#{baseDir}/"
+    # This one is for Debian based distros
+    dirs << rubyLibDir + '/gems/' \
         + @@packageName + '-' + @@version + "/#{baseDir}/"
     # Remove non-existing directories from the list again
     dirs.delete_if do |dir|
-      !File.exists?(dir)
+      !File.exists?(dir.untaint)
     end
     dirs
   end

data/lib/AttributeBase.rb

@@ -3,7 +3,7 @@
 #
 # = AttributeBase.rb -- The TaskJuggler III Project Management Software
 #
-# Copyright (c) 2006, 2007, 2008, 2009 by Chris Schlaeger <cs@kde.org>
+# Copyright (c) 2006, 2007, 2008, 2009, 2010 by Chris Schlaeger <cs@kde.org>
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of version 2 of the GNU General Public License as
@@ -37,12 +37,17 @@ class TaskJuggler
       # Flag that marks whether the value of this attribute was inherited from
       # the parent PropertyTreeNode.
       @inherited = false
-      # Flat that marks whether the value of this attribute was provided by the
+      # Flag that marks whether the value of this attribute was provided by the
       # user (in contrast to being calculated).
       @provided = false
-      # Create the initial value according to the specified default for this
-      # type.
-      @value = @type.default.deep_clone
+      # If type is an AttributeDefinition, create the initial value according
+      # to the specified default for this type. Otherwise type is the initial
+      # value.
+      if @type.is_a?(AttributeDefinition)
+        @value = @type.default.deep_clone
+      else
+        @value = @type
+      end
       # The mode is flag that controls how value assignments affect the flags.
       @@mode = 0
     end
@@ -98,10 +103,33 @@ class TaskJuggler
     end
 
     # Return the value as String.
-    def to_s
+    def to_s(query = nil)
       @value.to_s
     end
 
+    def to_num
+      if @value.is_a?(Fixnum) || @value.is_a?(Bignum) || @value.is_a?(Float)
+        @value
+      else
+        nil
+      end
+    end
+
+    def to_sort
+      if @value.is_a?(Fixnum) || @value.is_a?(Bignum) ||
+         @value.is_a?(Float)
+        @value
+      elsif @value.respond_to?('to_s')
+        @value.to_s
+      else
+        nil
+      end
+    end
+
+    def to_rti(query)
+      @value.is_a?(RichTextIntermediate) ? !value : nil
+    end
+
     # Return the value in TJP file syntax.
     def to_tjp
       @type.id + " " + @value.to_s

data/lib/AttributeDefinition.rb

@@ -3,7 +3,7 @@
 #
 # = AttributeDefinition.rb -- The TaskJuggler III Project Management Software
 #
-# Copyright (c) 2006, 2007, 2008, 2009 by Chris Schlaeger <cs@kde.org>
+# Copyright (c) 2006, 2007, 2008, 2009, 2010 by Chris Schlaeger <cs@kde.org>
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of version 2 of the GNU General Public License as

data/lib/Attributes.rb

@@ -3,7 +3,7 @@
 #
 # = Attributes.rb -- The TaskJuggler III Project Management Software
 #
-# Copyright (c) 2006, 2007, 2008, 2009 by Chris Schlaeger <cs@kde.org>
+# Copyright (c) 2006, 2007, 2008, 2009, 2010 by Chris Schlaeger <cs@kde.org>
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of version 2 of the GNU General Public License as
@@ -30,7 +30,7 @@ class TaskJuggler
       'account'
     end
 
-    def to_s
+    def to_s(query = nil)
       @value ? @value.id : ''
     end
 
@@ -60,7 +60,7 @@ class TaskJuggler
       out
     end
 
-    def to_s
+    def to_s(query = nil)
       out = ''
       first = true
       @value.each do |allocation|
@@ -100,7 +100,7 @@ class TaskJuggler
       'bookinglist'
     end
 
-    def to_s
+    def to_s(query = nil)
       @value.collect{ |x| x.to_s }.join(', ')
     end
 
@@ -119,7 +119,7 @@ class TaskJuggler
       'boolean'
     end
 
-    def to_s
+    def to_s(query = nil)
       @value ? 'true' : 'false'
     end
 
@@ -138,7 +138,7 @@ class TaskJuggler
       'charge'
     end
 
-    def to_s
+    def to_s(query = nil)
       @value.join(', ')
     end
 
@@ -158,7 +158,7 @@ class TaskJuggler
       'chargeset'
     end
 
-    def to_s
+    def to_s(query = nil)
       out = []
       @value.each { |i| out << i.to_s }
       out.join(", ")
@@ -184,7 +184,7 @@ class TaskJuggler
       'columns'
     end
 
-    def to_s
+    def to_s(query = nil)
       "TODO"
     end
   end
@@ -194,6 +194,14 @@ class TaskJuggler
       super
     end
 
+    def to_s(query)
+      if @value
+        @value.to_s(query.timeFormat)
+      else
+        'Error'
+      end
+    end
+
     def DateAttribute::tjpId
       'date'
     end
@@ -216,7 +224,7 @@ class TaskJuggler
       'dependencylist'
     end
 
-    def to_s
+    def to_s(query = nil)
       out = []
       @value.each { |t| out << t.task.fullId if t.task }
       out.join(', ')
@@ -266,7 +274,7 @@ class TaskJuggler
       'flaglist'
     end
 
-    def to_s
+    def to_s(query = nil)
       @value.join(', ')
     end
 
@@ -297,7 +305,7 @@ class TaskJuggler
       super
     end
 
-    def to_s
+    def to_s(query = nil)
       @value.join(', ')
     end
 
@@ -314,7 +322,7 @@ class TaskJuggler
       'intervallist'
     end
 
-    def to_s
+    def to_s(query = nil)
       out = []
       @value.each { |i| out << i.to_s }
       out.join(", ")
@@ -387,13 +395,25 @@ class TaskJuggler
       'reference'
     end
 
+    def to_s(query)
+      url || ''
+    end
+
+    def to_rti(query)
+      return nil unless @value
+
+      rText = RichText.new("[#{url} #{label}]")
+      rText.generateIntermediateFormat
+    end
+
     def url
       @value ? @value[0] : nil
     end
 
     def label
-      @value ? @value[1][0] : nil
+      @value ? (@value[1] ? @value[1][0] : @value[0]) : nil
     end
+
   end
 
   class ResourceListAttribute < AttributeBase
@@ -407,12 +427,19 @@ class TaskJuggler
       'resourcelist'
     end
 
-    def to_s
+    def to_s(query = nil)
       out = []
       @value.each { |r| out << r.fullId }
       out.join(", ")
     end
 
+    def to_rti(query = nil)
+      out = []
+      @value.each { |r| out << r.name }
+      rText = RichText.new(out.join(', '))
+      rText.generateIntermediateFormat
+    end
+
     def to_tjp
       out = []
       @value.each { |r| out << r.fullId }
@@ -426,10 +453,18 @@ class TaskJuggler
       super
     end
 
+    def inputText
+      @value ? @value.richText.inputText : ''
+    end
+
     def RichTextAttribute::tjpId
       'richtext'
     end
 
+    def to_s(query = nil)
+      @value ? @value.to_s : ''
+    end
+
     def to_tjp
       "#{@type.id} \"#{@value.to_s}\""
     end
@@ -445,7 +480,7 @@ class TaskJuggler
       'scenarios'
     end
 
-    def to_s
+    def to_s(query = nil)
       @value.join(', ')
     end
 
@@ -522,7 +557,7 @@ class TaskJuggler
       'tasklist'
     end
 
-    def to_s
+    def to_s(query = nil)
       out = []
       @value.each { |t, onEnd| out << t.fullId }
       out.join(", ")