diff options
| author | ikelley <ikelley@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-07-15 09:10:48 +0000 |
|---|---|---|
| committer | ikelley <ikelley@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2002-07-15 09:10:48 +0000 |
| commit | 3fec899fe3a07fab6370a93aa31a6d34de594360 (patch) | |
| tree | ad2dd7486f51d28204f8f65db8a23237aee4f42d /lib/sbin/ThornGuide.pl | |
| parent | fe6d0209d65f8cf91173063460044a3065e970c1 (diff) | |
takes a -tocdepth command line var now to specify the master tableofcontents depth, defaults to 1 if not defined
git-svn-id: http://svn.cactuscode.org/flesh/trunk@2932 17b73243-c579-4c4c-a9d2-2d5706c11dac
Diffstat (limited to 'lib/sbin/ThornGuide.pl')
| -rw-r--r-- | lib/sbin/ThornGuide.pl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lib/sbin/ThornGuide.pl b/lib/sbin/ThornGuide.pl index 34bedb86..32770cfc 100644 --- a/lib/sbin/ThornGuide.pl +++ b/lib/sbin/ThornGuide.pl @@ -1,7 +1,7 @@ #!/usr/local/bin/perl use strict; -use vars qw($h $help $cctk_home $thornlist $directory $outdir $verbose $debug $outfile); +use vars qw($h $help $cctk_home $thornlist $directory $outdir $verbose $debug $outfile $tocdepth); #/*@@ # @file ThornGuide.pl # @date Sun Mar 3 19:05:41 CET 2002 @@ -71,6 +71,9 @@ my $bibliography = ""; # specify output file $outfile ||= "ThornGuide.tex"; +# table of contents depth +$tocdepth = 1 if (! defined $tocdepth); + my $configname = ""; if ($outfile =~ /ThornGuide\-?(.*?)\.tex/) { @@ -624,7 +627,7 @@ print OUT <<EOC; % Table of contents \\pagenumbering{roman} -\\setcounter{tocdepth}{1} +\\setcounter{tocdepth}{$tocdepth} \\tableofcontents %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% |