Index: openacs-4/contrib/packages/project-manager/www/add-edit-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/add-edit-postgresql.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/project-manager/www/add-edit-postgresql.xql 15 Jun 2003 13:07:28 -0000 1.1 @@ -0,0 +1,63 @@ + + + + + select pm_project__new_project_item ( + :project_id, + :project_name, + :project_code, + :parent_project_id, + :goal, + :description, + :deadline_scheduling, + to_timestamp(:planned_start_date,'YYYY MM DD HH24 MI SS'), + to_timestamp(:planned_end_date,'YYYY MM DD HH24 MI SS'), + null, + null, + :ongoing_p, + now(), + :user_id, + :peeraddr, + :package_id + ); + + + + + + UPDATE + pm_projects + SET + project_name = :project_name, + project_code = :project_code, + parent_project_id = :parent_project_id, + goal = :goal, + description = :description, + deadline_scheduling = :deadline_scheduling, + planned_start_date = to_timestamp(:planned_start_date,'YYYY MM DD HH24 MI SS'), + planned_end_date = to_timestamp(:planned_end_date,'YYYY MM DD HH24 MI SS'), + ongoing_p = :ongoing_p + WHERE + project_id = :project_id + + + + + + select + project_id, + project_folder_id, + project_name, + project_code, + goal, + description, + deadline_scheduling, + to_char(planned_start_date,'YYYY MM DD') as planned_start_date, + to_char(planned_end_date,'YYYY MM DD') as planned_end_date, + ongoing_p + FROM + pm_projectsx + where project_id = :project_id + + + \ No newline at end of file Index: openacs-4/contrib/packages/project-manager/www/add-edit.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/add-edit.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/packages/project-manager/www/add-edit.tcl 21 May 2003 22:43:35 -0000 1.1 +++ openacs-4/contrib/packages/project-manager/www/add-edit.tcl 15 Jun 2003 13:07:28 -0000 1.2 @@ -1,15 +1,27 @@ ad_page_contract { + Simple add/edit form for projects + + @author jader@bread.com, ncarroll@ee.usyd.edu.au + @creation-date 2003-05-15 + @cvs-id $Id$ + @return context_bar Context bar. + @return title Page title. + } { + project_id:integer,optional {planned_start_date ""} {planned_end_date ""} + parent_project_id:integer,optional + } -properties { + context_bar:onevalue title:onevalue + } - set user_id [ad_maybe_redirect_for_registration] set package_id [ad_conn package_id] @@ -35,7 +47,8 @@ } {parent_project_id:text(hidden) - {value ""}} + {value $parent_project_id} + } {goal:text(textarea) {label "Project goal"} @@ -73,17 +86,17 @@ set peeraddr [ad_conn peeraddr] } -new_data { - db_exec_plsql do_insert { *SQL* } + db_exec_plsql new_project_item { *SQL* } ad_returnredirect "." ad_script_abort } -edit_data { - db_dml do_update { *SQL* } + db_dml new_project_revision { *SQL* } } -after_submit { ad_returnredirect "index" ad_script_abort -} +} \ No newline at end of file Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/contrib/packages/project-manager/www/add-edit.xql'. Fisheye: No comparison available. Pass `N' to diff? Index: openacs-4/contrib/packages/project-manager/www/index-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/index-postgresql.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/project-manager/www/index-postgresql.xql 15 Jun 2003 13:07:28 -0000 1.1 @@ -0,0 +1,26 @@ + + +postgresql7.2 + + + + SELECT + i.item_id, + repeat(:indent_pattern, (tree_level(i.tree_sortkey) - 2)* :indent_factor) as indent, + t.folder_id, + t.content_type, + p.project_name, + p.project_folder_id, + p.project_code, + to_char(p.planned_start_date, 'YYYY MM DD') as planned_start_date, + to_char(p.planned_end_date, 'YYYY MM DD') as planned_end_date, + p.ongoing_p + FROM cr_items i, cr_folder_type_map t, pm_projectsx p + WHERE t.content_type = 'pm_project' AND + i.item_id = t.folder_id AND + p.project_folder_id = t.folder_id + ORDER BY i.tree_sortkey + + + + Index: openacs-4/contrib/packages/project-manager/www/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/index.adp,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/packages/project-manager/www/index.adp 21 May 2003 22:43:35 -0000 1.1 +++ openacs-4/contrib/packages/project-manager/www/index.adp 15 Jun 2003 13:07:28 -0000 1.2 @@ -1,4 +1,48 @@ -Projects -@table_html@ -

Add a project

\ No newline at end of file +@title@ +@context@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
ProjectProject CodeStart Date (planned)End Date (planned)On-going?
+ @projects.indent@ + + @projects.project_name@ + + +  @projects.project_code@ + +  @projects.planned_start_date@ + +  @projects.planned_end_date@ + +  @projects.ongoing_p@ +

(no projects)
 
Add Project
Index: openacs-4/contrib/packages/project-manager/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/index.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/contrib/packages/project-manager/www/index.tcl 21 May 2003 22:43:35 -0000 1.1 +++ openacs-4/contrib/packages/project-manager/www/index.tcl 15 Jun 2003 13:07:28 -0000 1.2 @@ -1,30 +1,31 @@ ad_page_contract { + Main view page for projects. - @author jader@bread.com + @author jader@bread.com, ncarroll@ee.usyd.edu.au @creation-date 2003-05-15 @cvs-id $Id$ - @param orderby indicates when the user clicks on a column to order by that \column - @return table_html preformatting html table constructed by querying the sam\plenotes table + @return title Page title. + @return context Context bar. + @return projects Multirow data set of projects. -} { - {orderby:optional {title}} } -properties { - table_html + + title:onevalue + context:onevalue + projects:multirow + } -# define the columns in the table -set table_def { - {edit "" {} {Edit}} - {view "" {} {View}} - {project_name "Name"} - {project_code "Project code"} - {parent_project_id "Parent project"} - {goal "Goal"} - {description "Description"} - {planned_start_date "Start date (planned)"} - {planned_end_date "End date (planned)"} - {ongoing_p "Ongoing?"} -} -# construct an html table from the samplenotes database table -set table_html [ad_table -Torderby $orderby project_query {} $table_def] \ No newline at end of file +# --------------------------------------------------------------- # + +set title "Project Repository" +set context [list] +set indent_pattern " " +set indent_factor [parameter::get -parameter IndentationFactor -default 5] + +db_multirow projects project_folders {} + +ad_return_template + +# ------------------------- END OF FILE ------------------------- # Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs-4/contrib/packages/project-manager/www/index.xql'. Fisheye: No comparison available. Pass `N' to diff? Index: openacs-4/contrib/packages/project-manager/www/view-project-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/view-project-postgresql.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/project-manager/www/view-project-postgresql.xql 15 Jun 2003 13:07:28 -0000 1.1 @@ -0,0 +1,21 @@ + + + + + SELECT + project_name, + project_code, + project_folder_id, + goal, + description, + deadline_scheduling, + to_char(planned_start_date,'DD/MM/YYYY') as planned_start_date, + to_char(planned_end_date,'DD/MM/YYYY') as planned_end_date, + ongoing_p + FROM + pm_projectsx + WHERE + project_folder_id = :project_folder_id + + + \ No newline at end of file Index: openacs-4/contrib/packages/project-manager/www/view-project.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/view-project.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/project-manager/www/view-project.adp 15 Jun 2003 13:07:28 -0000 1.1 @@ -0,0 +1,61 @@ + +One Project +@context_bar@ + +Add Project + + + + + + + + + + + + +
Tasks
List of tasks here
+
    +
  • Add task +
  • Use a process +
  • Task calendar +
+
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
+Project Information +
Name@project_name@
Project code@project_code@
Goal@goal@
Description@description@
Start date (planned)@planned_start_date@
End date (planned)@planned_end_date@
Index: openacs-4/contrib/packages/project-manager/www/view-project.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/view-project.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/contrib/packages/project-manager/www/view-project.tcl 15 Jun 2003 13:07:28 -0000 1.1 @@ -0,0 +1,43 @@ +ad_page_contract { + Main view page for one project. + + @author jader@bread.com, ncarroll@ee.usyd.edu.au + @creation-date 2003-05-15 + @cvs-id $Id: view-project.tcl,v 1.1 2003/06/15 13:07:28 nickc Exp $ + + @param project_name + @param project_code + @param project_folder_id + @param goal + @param description + @param deadline_scheduling + @param planned_start_date + @param planned_end_date + @param ongoing_p + +} { + + project_folder_id:integer + +} -properties { + context_bar:onevalue + project_name:onevalue + project_code:onevalue + project_folder_id:onevalue + goal:onevalue + description:onevalue + deadline_scheduling:onevalue + planned_start_date:onevalue + planned_end_date:onevalue + ongoing_p:onevalue +} + +# --------------------------------------------------------------- # + +set context_bar [ad_context_bar "View"] + +db_1row project_query { } + +ad_return_template + +# ------------------------- END OF FILE ------------------------- #