diff --git a/lib/WebGUI/Asset/Wobject/TimeTracking.pm b/lib/WebGUI/Asset/Wobject/TimeTracking.pm
index 1397ea6a7..6ac1a98c6 100644
--- a/lib/WebGUI/Asset/Wobject/TimeTracking.pm
+++ b/lib/WebGUI/Asset/Wobject/TimeTracking.pm
@@ -209,10 +209,64 @@ sub view {
return $self->processTemplate($var, undef, $self->{_viewTemplate});
}
+#-------------------------------------------------------------------
+sub www_editProject {
+ my $self = shift;
+ my ($session,$privilege,$form,$db,$dt,$i18n,$user,$eh) = $self->getSessionVars("privilege","form","db","datetime","i18n","user","errorHandler");
+
+ #Check Privileges
+ return $privilege->insufficient unless ($user->isInGroup($self->get("groupToManage")));
+ my $projectId = $form->get("projectId") || "new";
+
+ my $project = $db->
+ #Build Form
+ my $f = WebGUI::HTMLForm->new($self->session,-action=>$self->getUrl, -extras=>q|onsubmit="return checkform(this);"|);
+ $f->hidden(
+ -name=>"func",
+ -value=>"editProjectSave"
+ );
+ $f->hidden(
+ -name=>"projectId",
+ -value=>$projectId
+ );
+ $f->readOnly(
+ -label=>$i18n->get("edit project id label"),
+ -hoverHelp => $i18n->get('edit project id hoverhelp'),
+ -value=>$projectId
+ );
+ $f->text(
+ -name => "projectName",
+ -value => $form->get("projectName") || $project->{projectName},
+ -hoverHelp => $i18n->get('edit project name hoverhelp'),
+ -label => $i18n->get('edit project name label')
+ );
+
+ $f->textarea(
+ -name => "taskList",
+ -value => $project->{taskList},
+ -hoverHelp => $i18n->get('edit project tasks hoverhelp'),
+ -label => $i18n->get('edit project tasks label')
+ );
+
+ tie my %users, "Tie::IxHash";
+ %users = $db->buildHash("select userId,username from users where userId not in (1,3)");
+ my $resources = $db->buildArrayRef("select resourceId from TT_projectResourceList where projectId=".$db->quote($projectId));
+
+ $f->selectList(
+ -name => "resources",
+ -options => \%users,
+ -value => $resources,
+ -hoverHelp => $i18n->get('edit project resource hoverhelp'),
+ -label => $i18n->get('edit project resource label')
+ );
+
+ return $output;
+
+}
+
#-------------------------------------------------------------------
sub www_manageProjects {
my $self = shift;
- my $var = $_[0];
my ($session,$privilege,$form,$db,$dt,$i18n,$user,$eh) = $self->getSessionVars("privilege","form","db","datetime","i18n","user","errorHandler");
#Check Privileges
@@ -237,7 +291,7 @@ sub www_manageProjects {
my $projectName = $project->{projectName};
my $projectId = $project->{projectId};
my @tasks = $db->buildArray("select taskName from TT_projectTasks where projectId=".$db->quote($projectId));
- my $taskList = join("
",@tasks);
+ my $taskList = join("
",@tasks);
my @resources = $db->buildArray("select resourceId from TT_projectResourceList where projectId=".$db->quote($projectId));
for(my $i = 0; $i < scalar(@resources); $i++) {
my $u = WebGUI::User->new($session,$resources[$i]);
@@ -249,18 +303,26 @@ sub www_manageProjects {
}
$resources[$i] = $r;
}
- my $resourceList = join("
",@resources);
+ my $resourceList = join("
",@resources);
+ my $editLink = "";
+ my $deleteLink = "";
$output .= qq|