openinteract-help

[Openinteract-help] links_to without linking table?

[Eric V. <er...@te...>]

Hi,

I am a starter with SPOPS and I have a little problem with the links_to
option.

I have two tables, object and subobject. subobject has two
foreign keys, so that's two 'has_a' fields. Now I would like to give the
object table two links_to fields, but I can't figure out how to do
this.

This is wat I have right now:

    'object' => {
      class           => 'My::object',
      isa             => [ qw{ My::base } ],
      field           => [ qw{
                               id
                               name
                               physical_object
                             }
                         ],
      strict_field    => 'yes',
      id_field        => [ qw{ id } ],
      no_insert       => [ qw{ id } ],
      no_update       => [ qw{ id } ],
      base_table      => 'object',
      increment_field => 1,
      sequence_name   => 'shared_ids',
    }
    'subobject' => {
      class           => 'My::subobject',
      isa             => [ qw{ My::base } ],
      field           => [ qw{
                               id
                               name
                               object_id_parent
                               object_id_child
                             }
                         ],
      strict_field    => 'yes',
      id_field        => [ qw{ id } ],
      no_insert       => [ qw{ id } ],
      no_update       => [ qw{ id } ],
      default_values  => {
                         },
      has_a           => {
                           'My::object'  => 'object_id_parent',
                           'My::object'  => 'object_id_child',
      base_table      => 'subobject',
      increment_field => 1,
      sequence_name   => 'shared_ids',
    }

What should I add to the object definition to get these links_to
working?

-- 
#!perl #                       Life ain't fair, but root passwords help.
# Eric Veldhuyzen                                       http://terra.nu/
$!=$;=$_+(++$_);($:,$~,$/,$^,$*,$@)=$!=~                 # er...@te...
/.(.)...(.)(.)....(.)..(.)..(.)/;`$^$~$/$: $^$*$@$~ $_>&$;` #Perl Monger

Re: [Openinteract-help] links_to without linking table?

[Chris W. <ch...@cw...>]

On Tue, 2002-09-24 at 06:55, Eric Veldhuyzen wrote:
> I am a starter with SPOPS and I have a little problem with the links_to
> option.
> 
> I have two tables, object and subobject. subobject has two
> foreign keys, so that's two 'has_a' fields. Now I would like to give the
> object table two links_to fields, but I can't figure out how to do
> this.

This is a little complicated for the existing auto-generation scheme.
I'd just go ahead and code it, adding the code in the 'code_class'
configuration option. For example:

     'object' => {
       class           => 'My::object',
       isa             => [ qw{ My::base } ],
 >>>>> code_class      => [ 'My::ObjectImpl' ], <<<<<
       ...
     }

Then create the code:

----------------------------------------
package My::ObjectImpl;

use strict;

sub my_subobjects_parent {
    my ( $self ) = @_;
    return My::subobject->fetch_group({
             where => 'object_id_parent = ?',
             value => [ $self->id ] })
}

sub my_subobjects_child {
    my ( $self ) = @_;
    return My::subobject->fetch_group({
             where => 'object_id_child = ?',
             value => [ $self->id ] })
}

1;
----------------------------------------

Hope this helps.

Chris

-- 
Chris Winters (ch...@cw...)
Building enterprise-capable snack solutions since 1988.