/[papo]/papo/zot/Zot.pm
ViewVC logotype

Diff of /papo/zot/Zot.pm

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

revision 1.1 by jlenton, Tue Nov 19 15:19:55 2002 UTC revision 1.2 by jlenton, Wed Nov 27 02:30:40 2002 UTC
# Line 226  sub add_history Line 226  sub add_history
226    
227  }  }
228    
229    # takes a table as parameter, and returns the list of all parent
230    # tables, starting with itself.
231    
232    sub lineage
233    {
234        my $self = shift;
235        my $table = shift;
236        my @tables = ();
237    
238        $table = $self->table($table);
239        @tables = ($table);
240        
241        push @tables, $self->object($table->parent)
242            if ($table->parent);
243    
244        return @tables;
245    }
246    
247    
248  'Zot!';  'Zot!';

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26