Re: [Gusdev-gusdev] Child objects not reported

[Steve F. <sfi...@pc...>]

paul- 

here are some possibly naive questions that come to mind.

do you have the tess schema installed?   correct permissions? are there 
objects for those tables in $PROJECT_HOME/GUS/Model/lib/perl/TESS?

are they in the tableinfo table?

steve

Paul Mooney wrote:

> Hi,
>
> I have written a very small plugin to try something out. When I 
> create  a DoTS::NAFeatureImp object and ask for its children I do not 
> get back  2 tables that have constraints to it, TESS::ParserItem and  
> TESS::Footprint. They are listed as children in the schema browser on  
> www.gusdb.org.
>
> Can someone enlighten me please? Perhaps the data in my GUS instance 
> is  not correct?
>
> Paul.
>
> # ----------------------------------------------------------
> # see if children of DoTS::NAFeatureImp are from
> # TESS.FOOTPRINT and TESS.PARSERITEM.
> #
>
> package GUS::Common::Plugin::Test2;
> @ISA = qw(GUS::PluginMgr::Plugin);
>
> use strict;
> use GUS::Model::DoTS::NAFeatureImp;
>
> ######################################################################## 
> ########
> # new
> ##
> sub new {
>   my $class = shift;
>   my $self  = {};
>   bless($self,$class);
>
>   my $usage   = 'Test to see if can navigate through tables and there  
> data ';
>   my $easycsp =
>       [
>        ];
>
>   $self->initialize({requiredDbVersion => {},
>                      cvsRevision    => '$Revision: 0.1 $', # 'cvs 
> fills  this in!,
>                      cvsTag         => '$Name:  $',        # cvs 
> fills  this in!',
>                      name           => ref($self),
>                      revisionNotes  => 'Notes',
>                      easyCspOptions => $easycsp,
>                      usage          => $usage
>                      });
>   return $self;
> }
>
>
> ######################################################################## 
> ########
> # run
> #
> sub run {
>     my $self     = shift;
>
>     my $obj      = GUS::Model::DoTS::NAFeatureImp->new();
>     my @children = $obj->getChildList();
>
>     print "Children of GUS::Model::DoTS::NAFeatureImp are;\n\n";
>
>     foreach my $child (@children) {
>         print "$child\n";
>     }
>
>     ##
>     # This does the same thing as SchemaBrowser
>     ##
>
>     #my $extent       =  
> $self->getDb()->getTable('GUS::Model::DoTS::NAFeatureImp');
>     #my $children_ref = $extent->getChildListWithAtts();
>
>     #foreach my $key (keys %{$children_ref}) {
>     #    print "key = $key\n";
>     #}
>
>     return 1;
> }
>
> 1;
>
>
>
>
> -------------------------------------------------------
> This SF.Net email sponsored by Black Hat Briefings & Training.
> Attend Black Hat Briefings & Training, Las Vegas July 24-29 - digital 
> self defense, top technical experts, no vendor pitches, unmatched 
> networking opportunities. Visit www.blackhat.com
> _______________________________________________
> Gusdev-gusdev mailing list
> Gus...@li...
> https://lists.sourceforge.net/lists/listinfo/gusdev-gusdev