Parent Directory | Revision Log | Patch
revision 1.8 by jlenton, Mon May 19 19:42:29 2003 UTC | revision 1.9 by jlenton, Wed Jun 4 16:52:01 2003 UTC | |
---|---|---|
# | Line 312 sub root | Line 312 sub root |
312 | return $self->{'ROOTS'}->{$root}; | return $self->{'ROOTS'}->{$root}; |
313 | } | } |
314 | ||
315 | sub add_rrels | |
316 | { | |
317 | my $self = shift; | |
318 | ||
319 | foreach my $table ($self->tables) { | |
320 | foreach my $rel ($table->rels) { | |
321 | my $target = $self->table($table->rel($rel)); | |
322 | $target->rrel($table->name, $rel); | |
323 | } | |
324 | } | |
325 | ||
326 | return $self; | |
327 | } | |
328 | ||
329 | 'Zot!'; | 'Zot!'; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |