Index: modules/search.module
===================================================================
RCS file: /cvs/drupal/drupal/modules/search.module,v
retrieving revision 1.79
diff -u -r1.79 search.module
--- modules/search.module	18 Jun 2004 15:04:35 -0000	1.79
+++ modules/search.module	18 Jun 2004 21:59:45 -0000
@@ -393,4 +393,28 @@
   print theme('page', search_help());
 }
 
+function search_block($op = "list", $delta = 0) {
+  if ($op == "list") {
+    $blocks[0]["info"] = t("Search");
+  }
+  else {
+    if (user_access("search content")) {
+      $blocks["subject"] = t("Search");
+      $blocks["content"] = search_block_view();
+    }
+  }
+
+  return $blocks;
+}
+
+/**
+ * display a block with a search box in it.
+ *
+ */
+function search_block_view() {
+  $output .= '<input type="text" maxlength="128" name="keys" size="15" value="" /> ';
+  $output .= '<input type="submit" value="Go" />';
+  return "<div class=\"search-block\">". form($output, "post", url("search")) ."</div>";
+}
+
 ?>