[Bio] / DomReg / toMIKE.pl Repository:
ViewVC logotype

View of /DomReg/toMIKE.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.1 - (download) (as text) (annotate)
Thu Dec 14 21:11:15 2006 UTC (12 years, 11 months ago) by bartels
Branch: MAIN
CVS Tags: HEAD
*** empty log message ***

#!/usr/bin/env /home/bartels/FIGdisk/env/cee/bin/perl

use strict;
use warnings;
use DBMaster;

my $dbmaster = DBMaster->new( 'FIGfamDB' );

my $pegobj = $dbmaster->Feature->create( { 'name'    => $peg,
					   'annotation' => $annotation } );


my $pfrs = $dbmaster->FunctionalRole->get_objects( { 'name' => $anno } );

if ( defined( $pfrs ) && defined( $pfrs->[0] ) ) {
    $fr = $pfrs->[0];
}

foreach my $thisobject ( @pfrs ) {
    $thisobject->set_attributes( { 'att2' => 'true' } );
}

$pegobj->set_attributes( { 'att1' => $something } );

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3