Index: openacs-4/packages/bug-tracker/bug-tracker.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/bug-tracker.info,v diff -u -r1.18.2.1 -r1.18.2.2 --- openacs-4/packages/bug-tracker/bug-tracker.info 29 Apr 2004 10:36:07 -0000 1.18.2.1 +++ openacs-4/packages/bug-tracker/bug-tracker.info 5 Jan 2005 12:33:45 -0000 1.18.2.2 @@ -7,7 +7,7 @@ f f - + postgresql oracle @@ -18,8 +18,8 @@ Musea Technologies Bug tracking application with notifications, configurable state management, and patch upload. Contains the best of SDM, Bugzilla, FogBUGZ, and bughost.com. - - + + Index: openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl,v diff -u -r1.25.2.1 -r1.25.2.2 --- openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl 28 Dec 2004 23:54:00 -0000 1.25.2.1 +++ openacs-4/packages/bug-tracker/tcl/bug-tracker-procs.tcl 5 Jan 2005 12:33:45 -0000 1.25.2.2 @@ -1181,5 +1181,29 @@ @author Peter Marklund } { - db_exec_plsql create_project {} + + # THIS IS AN UGLY HACK TO GET IT WORKING AGAIN. Once keywords work with the CR someone can clean it up and get the SQL out of here :) + + if {![db_0or1row already_there {select 1 from bt_projects where project_id = :project_id} ] } { + if [db_0or1row instance_info {select p.instance_name, o.creation_user, o.creation_ip from apm_packages p join acs_objects o on (p.package_id = o.object_id) where p.package_id = :project_id }] { + set folder_id [content::folder::new -name "bug_tracker_$project_id" -package_id $project_id] + content::folder::register_content_type -folder_id $folder_id -content_type {bt_bug_revision} -include_subtypes t + + # set keyword_I [content::keyword::new -heading "$instance_name"] + set keyword_id [db_1row keyword "select content_keyword__new( + :instance_name, -- heading + null, -- description + null, -- parent_id + null, -- keyword_id + current_timestamp, -- creation_date + :creation_user, -- creation_user + :creation_ip, -- creation_ip + 'content_keyword' -- object_type + )"] + + # Inserts into bt_projects + db_dml bt_projects_insert {insert into bt_projects (project_id, folder_id, root_keyword_id) values (:project_id, :folder_id, :keyword_id)} + db_dml bt_components_insert {insert into bt_components (component_id, project_id, component_name) select acs_object_id_seq.nextval, :project_id, 'General'} + } + } }