/[webpac]/trunk2/all2all.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk2/all2all.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 397 by dpavlin, Wed Jul 21 16:58:27 2004 UTC revision 398 by dpavlin, Sat Jul 24 13:48:08 2004 UTC
# Line 62  while (my $rec = $webpac->fetch_rec) { Line 62  while (my $rec = $webpac->fetch_rec) {
62                  print OUT $webpac->output(                  print OUT $webpac->output(
63                          template => 'html.tt',                          template => 'html.tt',
64                          data => \@ds,                          data => \@ds,
65                            headline => $webpac->{'headline'},
66                  );                  );
67                  close(OUT);                  close(OUT);
68          } else {          } else {
69                  print $webpac->output(                  print $webpac->output(
70                          template => 'text.tt',                          template => 'text.tt',
71                          data => \@ds,                          data => \@ds,
72                            headline => $webpac->{'headline'},
73                  );                  );
74          }          }
75    
76          my $headline;          my $headline = $webpac->{'headline'};
         foreach my $ds (@ds) {  
                 if ($ds->{'tag'} eq 'headline') {  
                         $headline = join(" ",@{$ds->{'display'}});  
                         last;  
                 }  
         }  
77    
78          my $f = $filename;          my $f = $filename;
79          $f =~ s!out/!!;          $f =~ s!out/!!;

Legend:
Removed from v.397  
changed lines
  Added in v.398

  ViewVC Help
Powered by ViewVC 1.1.26