Platon Technologies
not logged in Login Registration
EnglishSlovak
open source software development celebrating 10 years of open source development! Sunday, October 18, 2026
[BACK] [TXT][DIR] Up to [Platon] / iotta / Iotta / Input

Diff for iotta/Iotta/Input/NavGen.pm between version 1.1 and 1.2

version 1.1, 2003/02/16 15:48:12 version 1.2, 2003/03/14 14:21:27
Line 26  sub setup {
Line 26  sub setup {
         $s->categ ($s->chain->mod_creat ($$o{categorizer}));          $s->categ ($s->chain->mod_creat ($$o{categorizer}));
 }  }
   
   sub mkindex {
           my $s = shift;
           my $a = shift;
           my $d = "";
           print "creating index: $$a{input}\n";
           for my $sub (@{$$a{subs}}) {
                   print "creating subindex: $$sub{input}\n";
                   &mkindex ($s, $sub);
                   print "end creating subindex: $$sub{input}\n";
                   $d .= "L ".$$sub{input}.".html\n"; ## FIXME!!
                   $d .= "T ".$$sub{title}."\n\n";
           }
           for (@{$$a{files}}) {
                   $d .= "L ".$$_{relname}."\n";
                   $d .= "T ".$$_{title}."\n\n";
           }
           $$a{format} = "index";
           $$a{top} = '.';
           $s->next->run ($a, $d) if ($s->next);
   }
   
 sub finish {  sub finish {
         my $s = shift;          my $s = shift;
         # build index list using categorizer          # build index list using categorizer
         my $indexes = $s->categ->sort ($s->files);          my $indexes = $s->categ->sort ($s->files);
         # format the indexes into text files and process these          # format the indexes into text files and process these
         for my $a (@$indexes) {          for my $a (@$indexes) {
                 my $d;  #               my $d;
                 for (@{$$a{files}}) {                  &mkindex ($s, $a);
                         $d .= "L ".$$_{relname}."\n";  #               for (@{$$a{subs}}) {
                         $d .= "T ".$$_{title}."\n\n";  #                       print "creating subindex: $$_{input}\n";
                 }  #                       #$s->mkindex ($_);
                 $$a{format} = "index";  #                       print "end creating subindex: $$_{input}\n";
                 $$a{top} = '.';  #                       $d .= "L ".$$_{input}.".html\n"; ## FIXME!!
                 $s->next->run ($a, $d) if ($s->next);  #                       $d .= "T ".$$_{title}."\n\n";
   #               }
   #               for (@{$$a{files}}) {
   #                       $d .= "L ".$$_{relname}."\n";
   #                       $d .= "T ".$$_{title}."\n\n";
   #               }
   #               $$a{format} = "index";
   #               $$a{top} = '.';
   #               $s->next->run ($a, $d) if ($s->next);
         }          }
         my %sidx;          my %sidx;
         my $d;          my $d;
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
Platon Group <platon@platon.org> http://platon.org/
Copyright © 2002-2006 Platon Group
Site powered by Metafox CMS 		Go to Top