Index: core/block.inc
===================================================================
RCS file: /cvs/drupal-contrib/contributions/modules/install_profile_api/core/Attic/block.inc,v
retrieving revision 1.1.2.3
diff -u -p -r1.1.2.3 block.inc
--- core/block.inc	23 Sep 2008 04:29:32 -0000	1.1.2.3
+++ core/block.inc	13 Dec 2008 02:11:33 -0000
@@ -8,10 +8,6 @@ function install_add_block($module, $del
     db_query("INSERT INTO {blocks} (module, delta, theme, status, weight, region, visibility, pages, custom, throttle, title) 
        VALUES ('%s', '%s', '%s', %d, %d, '%s', %d, '%s', %d, %d, '%s')", 
        $module, $delta, $theme, $status, $weight, $region, $visibility, $pages, $custom, $throttle, $title);
-    if ($module == 'block') {
-      $box = db_fetch_object(db_query('SELECT * FROM {boxes} WHERE bid=%d', $delta));
-      db_query("INSERT INTO {boxes} (bid, body, info, format) VALUES (%d, '%s', '%s', '%s')", $box->bid, $box->body, $box->info, $box->format);
-    }
   }
   else {
     db_query("UPDATE {blocks} SET status = 0 WHERE module = '%s' AND delta = '%s' AND theme = '%s'", $module, $delta, $theme); 
@@ -24,3 +20,24 @@ function install_add_block($module, $del
 function install_add_block_role($module, $delta, $rid) {
   db_query("INSERT INTO {blocks_roles} (module,delta,rid) VALUES ('%s', '%s', %d)", $module, $delta, $rid);
 }
+
+/**
+ * Create a custom block (box).
+ *
+ * @param $body
+ *   The body of the custom block.
+ * @param $description
+ *   The description of the custom block (for admin/build/blocks).
+ * @param $format
+ *   The input format for the block's body.
+ *
+ * @return
+ *   The new block's delta.
+ *
+ * @see block_add_block_form_submit()
+ */
+function install_create_custom_block($body, $description, $format = FILTER_FORMAT_DEFAULT) {
+  db_query("INSERT INTO {boxes} (body, info, format) VALUES ('%s', '%s', %d)", $body, $description, $format);
+  return db_last_insert_id('boxes', 'bid');
+}
+