Support for useheading with new parser

darcs-hash:20050416211422-45605-fe8c790a6b317dc9c35a63d78c6367248cc01045.gz

1 files changed, 19 insertions, 0 deletions

diff --git a/inc/parserutils.php b/inc/parserutils.php
index e2b4e9feb..e190a0af7 100644
--- a/inc/parserutils.php
+++ b/inc/parserutils.php
@@ -235,4 +235,23 @@ function p_render_xhtml($instructions){
   return $Renderer->doc;
 }
 
+/**
+ * Gets the first heading from a file
+ *
+ * @author Jan Decaluwe <jan@jandecaluwe.com>
+ */
+
+function p_get_first_heading($id){
+  $file = wikiFN($id);
+  if (@file_exists($file)) {
+    $instructions = p_cached_instructions($file);
+    foreach ( $instructions as $instruction ) {
+      if ($instruction[0] == 'header') {
+	return $instruction[1][0];
+      }
+    }
+  }
+  return NULL;
+}
+
 //Setup VIM: ex: et ts=2 enc=utf-8 :