cb28834342
system-based operating systems. Instead of clicking yourself painfully through hundreds of dialog boxes you specify your Taskjuggler project in a simple text format. You simply list all your tasks and their dependencies. The information is sent through Taskjuggler and you will get all sorts of reports in HTML or XML format. PR: ports/63342 Submitted by: Dean Povey <povey@wedgetail.com>
103 lines
4.2 KiB
Text
103 lines
4.2 KiB
Text
--- tjx2gantt/tjx2gantt Mon Jul 14 22:31:53 2003
|
||
+++ tjx2gantt/tjx2gantt.patch Wed Feb 25 09:07:00 2004
|
||
@@ -1,4 +1,4 @@
|
||
-#!/usr/bin/perl
|
||
+#!/usr/bin/perl -w
|
||
#
|
||
# !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
|
||
# !!! This Software is __ALPHA__ !!!
|
||
@@ -18,12 +18,10 @@
|
||
$| = 1;
|
||
|
||
use strict;
|
||
-use warnings;
|
||
|
||
package tjTask;
|
||
|
||
use strict;
|
||
- use warnings;
|
||
use Class::MethodMaker
|
||
new_hash_init => 'new',
|
||
get_set => [ qw(Index ProjectID complete Priority Type Id Name ParentTask
|
||
@@ -393,10 +391,10 @@
|
||
my ($x2, $y2) = _trans_coord($_x2, $_y2);
|
||
#-- balken
|
||
$p->setcolour(222,222,222);
|
||
- $p->box($x1, $y1, $x2, $y2, 1);
|
||
+ $p->box({ filled => 1 }, $x1, $y1, $x2, $y2);
|
||
#-- rahmen drum
|
||
$p->setcolour(0,0,0);
|
||
- $p->box($x1, $y1, $x2, $y2, 0);
|
||
+ $p->box({ filled => 0 }, $x1, $y1, $x2, $y2);
|
||
#-- linie dazwischen
|
||
my $l_y = $y2+($task_space/2)-($task_height/2);
|
||
$p->line($page_border+5, $l_y, $page_x-($page_border*2), $l_y );
|
||
@@ -458,35 +456,35 @@
|
||
if ( Delta_Days($today_year, $today_month, $today_day, $end_year, $end_month, $end_day) < 0 ) {
|
||
if ( $persent < 100 ) {
|
||
$p->setcolour(255,0,0);
|
||
- $p->box($x1, $y1, $x2, $y2, 1);
|
||
+ $p->box({ filled => 1 }, $x1, $y1, $x2, $y2);
|
||
}
|
||
} else {
|
||
$p->setcolour(255,255,255);
|
||
- $p->box($x1, $y1, $x2, $y2, 1);
|
||
+ $p->box({ filled => 1 }, $x1, $y1, $x2, $y2);
|
||
}
|
||
#-- buffer balken pinseln
|
||
if ( $task->startBuffer ) {
|
||
my $buf = $task->startBuffer;
|
||
my ($buf_length, $d) = _trans_coord($_x1 + (($task_length/100*$buf) * $day_x), 0);
|
||
$p->setcolour(222,222,222);
|
||
- $p->box($x1, $y1, $buf_length, $y2, 1);
|
||
+ $p->box({ filled => 1 }, $x1, $y1, $buf_length, $y2);
|
||
}
|
||
if ( $task->endBuffer ) {
|
||
my $buf = $task->endBuffer;
|
||
my ($buf_length, $d) = _trans_coord($_x2 - (($task_length/100*$buf) * $day_x), 0);
|
||
$p->setcolour(222,222,222);
|
||
- $p->box($buf_length, $y1, $x2, $y2, 1);
|
||
+ $p->box({ filled => 1 }, $buf_length, $y1, $x2, $y2);
|
||
}
|
||
#-- l<>nge von % feritg balken
|
||
my ($per_length, $d) = _trans_coord($_x1 + (($task_length/100*$persent) * $day_x), 0);
|
||
#-- % done balken pinseln
|
||
if ($persent > 0) {
|
||
$p->setcolour(0,255,0);
|
||
- $p->box($x1, $y1, $per_length, $y2, 1);
|
||
+ $p->box({ filled => 1 }, $x1, $y1, $per_length, $y2);
|
||
}
|
||
#-- rahmen um den task
|
||
$p->setcolour(0,0,0);
|
||
- $p->box($x1, $y1, $x2, $y2, 0);
|
||
+ $p->box({ filled => 0 }, $x1, $y1, $x2, $y2);
|
||
#-- text
|
||
$task->label($name);
|
||
$task->label_x($x1+1);
|
||
@@ -494,7 +492,7 @@
|
||
}
|
||
if ( $task->Type eq 'Container' ) {
|
||
$p->setcolour(0,0,0);
|
||
- $p->box($x1-1, $y1, $x2+1, $y2+($task_height/1.2), 1);
|
||
+ $p->box({ filled => 1 }, $x1-1, $y1, $x2+1, $y2+($task_height/1.2));
|
||
#-- pfeil vorn
|
||
$p->polygon(
|
||
$x1+1, $y2+($task_height/1.2),
|
||
@@ -517,7 +515,7 @@
|
||
if ( $task->Type eq 'Milestone' ) {
|
||
$p->setcolour(0,0,0);
|
||
my ($x, $y) = _trans_coord($_x1, $_y1+($task_height/2));
|
||
- $p->circle($x, $y, 1, 1);
|
||
+ $p->circle({ filled => 1 }, $x, $y, 1);
|
||
$p->setfont("Helvetica", 6);
|
||
my $am = sprintf('%02d', $start_month);
|
||
my $ad = sprintf('%02d', $start_day);
|
||
@@ -585,7 +583,7 @@
|
||
my $h_month_week = 3;
|
||
my ($_x, $_y) = ($i*$day_x, $day_x*$h_month_week);
|
||
my ($x, $y) = _trans_coord($_x, $_y);
|
||
- $p->box($x, $y, $x+$day_x, $page_border, 1);
|
||
+ $p->box({ filled => 1 }, $x, $y, $x+$day_x, $page_border);
|
||
#-- die linien haben unterschiedliche h<>he
|
||
#-- is es ein wochen-anfang
|
||
if ( $act_dow == 1 ) {
|