/[Frey]/branches/dbic/lib/Reblog.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 /branches/dbic/lib/Reblog.pm

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

revision 1003 by dpavlin, Mon Jan 12 17:28:05 2009 UTC revision 1004 by dpavlin, Thu Jan 22 23:13:20 2009 UTC
# Line 33  sub as_sponge { Line 33  sub as_sponge {
33          my $name_pos;          my $name_pos;
34    
35          foreach my $feed ( @feeds ) {          foreach my $feed ( @feeds ) {
36                    warn "# feed ",$self->dump( $feed );
37    
38                  my %row = $feed->get_columns;                  my %row = $feed->get_columns;
39    
40                  my @row;                  my @row;
41    
42                  foreach my $name ( keys %row ) {                  foreach my $name ( $feed->columns ) {
43                          if ( ! defined $name_pos->{$name} ) {                          if ( ! defined $name_pos->{$name} ) {
44                                  push @name, $name;                                  push @name, $name;
45                                  $name_pos->{$name} = $#name;                                  $name_pos->{$name} = $#name;
Legend:
Removed from v.1003  
changed lines
  Added in v.1004
  ViewVC Help
Powered by ViewVC 1.1.26