diff options
| author | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-05-05 11:06:29 +0000 |
|---|---|---|
| committer | allen <allen@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-05-05 11:06:29 +0000 |
| commit | 8f362e25fba3ccddb63db4761c8ab991730ec61e (patch) | |
| tree | 93dbd19adbc12fdb5dfcb4f3802adda7fd8562a9 /lib | |
| parent | c4f003b43aa553f7570ab42afd479590ffcaa8ee (diff) | |
Small formatting changes
git-svn-id: http://svn.cactuscode.org/flesh/trunk@2788 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/sbin/ThornGuide.pl | 11 |
1 files changed, 8 insertions, 3 deletions
diff --git a/lib/sbin/ThornGuide.pl b/lib/sbin/ThornGuide.pl index 7b2b4a43..4bb76e31 100644 --- a/lib/sbin/ThornGuide.pl +++ b/lib/sbin/ThornGuide.pl @@ -225,9 +225,14 @@ sub Read_Thorn_Doc close DOC; my $cnts = ""; - $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\{\\Large\n"; + $cnts .= "\n\\begin\{tabbing\}\n"; + $cnts .= "\n\{\\bf Author(s):\} \\= \\kill \\\\\n"; + $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\\end\{tabbing\}\n"; + $cnts .= "\n\}\n"; $cnts .= "\n\\minitoc"; return "$cnts\n$contents"; |