stopping people from using tableofcontents...

git-svn-id: http://svn.cactuscode.org/flesh/trunk@2787 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 4 insertions, 2 deletions

diff --git a/lib/sbin/ThornGuide.pl b/lib/sbin/ThornGuide.pl
index e1c9b8fa..7b2b4a43 100644
--- a/lib/sbin/ThornGuide.pl
+++ b/lib/sbin/ThornGuide.pl
@@ -177,10 +177,12 @@ sub Read_Thorn_Doc
 
    while (<DOC>)                            # loop through thorn doc.
    {
-      if (/\\title\{(.*?)\}/) { $title = $1; }
+      if (/\\title\{(.*?(?:.*?\{.*?[^\{].*?\}.*?)?(?:.*?\{.*?[^\{].*?\}.*?)?(?:.*?\{.*?[^\{].*?\}.*?)?(?:.*?\{.*?[^\{].*?\}.*?)?(?:.*?\{.*?[^\{].*?\}.*?)?.*?)\}/) { $title = $1; }
       if (/\\author\{(.*?)\}/) { $author = $1; }
       if (/\\date\{(.*?)\}/) { $date = $1; }
 
+      next if (/^\s*?\\tableofcontents\s*?$/);
+
       if (/\\end\{document\}/) {            # stop reading
          $stop = 1;
          $contents .= "\n\\include{${arrangement}_${thorn}_param}\n";
@@ -223,7 +225,7 @@ sub Read_Thorn_Doc
    close DOC;
 
    my $cnts = "";
-   $cnts .= "\n\"$title\"\n" if ($title =~ /\w/) && (lc($title) ne lc($thorn));
+   $cnts .= "\n\{\\bf Title:\} $title\n" if ($title =~ /\w/) && (lc($title) ne lc($thorn));
    $cnts .= "\n\{\\bf Author(s):\} $author\n" if ($author =~ /\w/);
    $cnts .= "\n\{\\bf Date:\} $date\n" if ($date =~ /\w/);
    $cnts .= "\n\\minitoc";