diff options
| author | Nigel Metheringham <nigel@exim.org> | 2004-11-12 15:25:39 +0000 |
|---|---|---|
| committer | Nigel Metheringham <nigel@exim.org> | 2004-11-12 15:25:39 +0000 |
| commit | dd3f6d3071e2caad286e15a06364cd27b13ac0ff (patch) | |
| tree | 3b667914070c5dbd9fc85a0a344d008e7642c7c7 | |
| parent | 90af77f47744f5fe03bd887a1a4bae9ca175afd9 (diff) | |
fixed ordering of FAQ TOC page
| -rw-r--r-- | doc/doc-scripts/f2wiki | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/doc/doc-scripts/f2wiki b/doc/doc-scripts/f2wiki index 253f9d834..9197c33a2 100644 --- a/doc/doc-scripts/f2wiki +++ b/doc/doc-scripts/f2wiki @@ -2,7 +2,7 @@ # # Script to convert Exim FAQ into wiki markup - moin flavour # -# $Cambridge: exim/doc/doc-scripts/f2wiki,v 1.1 2004/11/12 14:48:08 nm4 Exp $ +# $Cambridge: exim/doc/doc-scripts/f2wiki,v 1.2 2004/11/12 15:25:39 nm4 Exp $ # use strict; use integer; @@ -276,7 +276,9 @@ sub build_tocs ($) { my $meta = shift; my $tfh = IO::File->new('FAQ', 'w'); - foreach my $sect (values %{$meta->{sections}}) { + my @sections = sort { $a->{num} <=> $b->{num} } + values %{$meta->{sections}}; + foreach my $sect (@sections) { my $fh = IO::File->new($sect->{wikifile}, 'w'); $fh->print(join("\n", '##language:en', |