Re: [Gusdev-gusdev] Child objects not reported

[Paul M. <pj...@sa...>]

On 24 Jun 2004, at 22:22, Steve Fischer wrote:

> 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?
>
>

TESS has not granted any permissions to the other schemas in;
	Model/schema/oracle/create-db.sh
Is this an oversight?

I ran grantPermissions for TESS, regenerated the Perl layer and the 2  
TESS children have appeared.

Thanks Steve,
Paul.

> 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
>