/[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.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!';

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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