Parent Directory | Revision Log | 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!'; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |