oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fixed tasks to start at zero hours rather than 8

Browse source
This commit is contained in:
Frank Dillon 2006-11-07 18:04:32 +00:00
parent 7b1109fb83
commit 349ce4720d
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lib/WebGUI/Asset/Wobject/ProjectManager.pm
View file

@ -797,6 +797,7 @@ sub _resourceListOfTask {
@{$self->session->db->buildArrayRefOfHashRefs("SELECT resourceKind, resourceId FROM PM_taskResource WHERE taskId = ? ORDER BY sequenceNumber", [$taskId])};
}
#-------------------------------------------------------------------
sub _innerHtmlOfResources {
my $self = shift;
my @resources = @_;
@ -804,6 +805,7 @@ sub _innerHtmlOfResources {
return $self->_htmlOfResourceList({opCallbackJs => 'taskEdit_deleteResource', opIcon => 'delete.gif', opTitle => $i18n->get('resource remove opTitle'), hiddenFields => 1}, @resources);
}
#-------------------------------------------------------------------
sub www_innerHtmlOfResources {
my $self = shift;
my @resources = map {
@ -813,6 +815,7 @@ sub www_innerHtmlOfResources {
return $self->_innerHtmlOfResources(@resources);
}
#-------------------------------------------------------------------
sub www_editTask {
my $self = shift;
my $var = {};
@ -857,7 +860,8 @@ sub www_editTask {
my ($startEpoch, $endEpoch) = $db->quickArray('SELECT startDate, startDate FROM PM_task WHERE projectId = ? ORDER BY sequenceNumber LIMIT 1', [$projectId]);
my $dependant = $task->{dependants};
my $duration = $task->{duration} || (($taskType eq 'timed')? (($project->{durationUnits} eq 'hours')? $project->{hoursPerDay} : 1) : 0);
#my $duration = $task->{duration} || (($taskType eq 'timed')? (($project->{durationUnits} eq 'hours')? $project->{hoursPerDay} : 1) : 0);
my $duration = $task->{duration} || 0;
$startEpoch = $endEpoch = time unless defined $startEpoch and defined $endEpoch;
$startEpoch = $task->{startDate} if $task->{startDate};
@ -1133,6 +1137,7 @@ sub _updateDependantDates {
}
}
#-------------------------------------------------------------------
sub _clobberImproperDependants {
my $self = shift;
my $projectId = shift;
@ -1430,6 +1435,7 @@ sub _doGanttTaskResourceDisplay {
}
}
#-------------------------------------------------------------------
sub www_drawGanttChart {
my $self = shift;
my $var = {};