/[webpac]/trunk2/lib/WebPAC.pm
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/lib/WebPAC.pm

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

revision 367 by dpavlin, Thu Jun 17 12:05:01 2004 UTC revision 368 by dpavlin, Thu Jun 17 12:27:02 2004 UTC
# Line 508  sub parse_to_arr { Line 508  sub parse_to_arr {
508  Create in-memory data structure which represents layout from C<import_xml>.  Create in-memory data structure which represents layout from C<import_xml>.
509  It is used later to produce output.  It is used later to produce output.
510    
511   my $ds = $webpac->data_structure($rec);   my @ds = $webpac->data_structure($rec);
512    
513  =cut  =cut
514    
# Line 539  sub data_structure { Line 539  sub data_structure {
539                  $self->{tags_by_order} = \@sorted_tags;                  $self->{tags_by_order} = \@sorted_tags;
540          }          }
541    
542          my $ds;          my @ds;
543    
544          foreach my $field (@sorted_tags) {          foreach my $field (@sorted_tags) {
545    
# Line 561  sub data_structure { Line 561  sub data_structure {
561                          }                          }
562                  }                  }
563    
564                  push @{$ds->{$field}}, $row if ($row);                  if ($row) {
565                            $row->{'tag'} = $field;
566                            push @ds, $row;
567                    }
568    
569          }          }
570    
571          print "data_structure => ",Dumper($ds);          print "data_structure => ",Dumper(\@ds);
572    
573  }  }
574    

Legend:
Removed from v.367  
changed lines
  Added in v.368

  ViewVC Help
Powered by ViewVC 1.1.26