From bb0a59d46949357f85e4a8deabff585e56b906e5 Mon Sep 17 00:00:00 2001
From: jan <jan@jandecaluwe.com>
Date: Sat, 16 Apr 2005 23:14:22 +0200
Subject: Support for useheading with new parser

darcs-hash:20050416211422-45605-fe8c790a6b317dc9c35a63d78c6367248cc01045.gz
---
 inc/parserutils.php | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

(limited to 'inc/parserutils.php')

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 :
-- 
cgit v1.2.3