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 @@
     <initial-install-p>f</initial-install-p>
     <singleton-p>f</singleton-p>
     
-    <version name="1.3a1" url="http://openacs.org/repository/download/apm/bug-tracker-1.3a1.apm">
+    <version name="1.3a2" url="http://openacs.org/repository/download/apm/bug-tracker-1.3a2.apm">
     <database-support>
         <database>postgresql</database>
         <database>oracle</database>
@@ -18,8 +18,8 @@
         <vendor url="http://www.museatech.net">Musea Technologies</vendor>
         <description format="text/html">Bug tracking application with notifications, configurable state management, and patch upload.
         Contains the best of SDM, Bugzilla, FogBUGZ, and bughost.com.</description>
-        <provides url="bug-tracker" version="1.3a1"/>
-        <requires url="acs-content-repository" version="5.0d1"/>
+        <provides url="bug-tracker" version="1.3a2"/>
+        <requires url="acs-content-repository" version="5.1.4d4"/>
         <requires url="acs-kernel" version="5.0d13"/>
         <requires url="acs-tcl" version="4.6.2d"/>
         <requires url="notifications" version="0.2d"/>
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'}
+	}
+    }
 }