[Gmod-schema-cmts] schema/chado/load/bin load_affyxls.pl,1.10,1.11

[<all...@us...>]

Update of /cvsroot/gmod/schema/chado/load/bin
In directory sc8-pr-cvs1:/tmp/cvs-serv21834/load/bin

Modified Files:
	load_affyxls.pl 
Log Message:
asdf


Index: load_affyxls.pl
===================================================================
RCS file: /cvsroot/gmod/schema/chado/load/bin/load_affyxls.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** load_affyxls.pl	23 Dec 2003 22:19:06 -0000	1.10
--- load_affyxls.pl	24 Dec 2003 00:15:49 -0000	1.11
***************
*** 235,245 ****
  
      if(!$feature){
! $progress->message("creating feature: ".$featuregroup->id);
!       $feature = Chado::Feature->find_or_create({
!                                                  organism_id => $human,
!                                                  type_id => $oligo,
!                                                  name => $featuregroup->id,
!                                                  uniquename => 'Affy:Transcript:HG-'. $arraytype .':'. $featuregroup->id,
!                                                 });
        $feature{$featuregroup->id}{feature_id} = $feature->id;
        push @txn, $feature;
--- 235,251 ----
  
      if(!$feature){
!       #the feature may exist, but not be linked to an element (ergo array) yet.
!       ($feature) = Chado::Feature->search(name => $featuregroup->id);
! 
!       if(!ref($feature)){
!         $feature = Chado::Feature->find_or_create({
!                                                    organism_id => $human,
!                                                    type_id => $oligo,
!                                                    name => $featuregroup->id,
!                                                    uniquename => 'Affy:Transcript:HG-'. $arraytype .':'. $featuregroup->id,
!                                                   });
! 
!         $progress->message("creating feature: ".$featuregroup->id);
!       }
        $feature{$featuregroup->id}{feature_id} = $feature->id;
        push @txn, $feature;
***************
*** 247,251 ****
  
  	if(!$element){
! $progress->message("creating element for: ".$featuregroup->id);
  	  $element = Chado::Element->find_or_create({
  												 feature_id => $feature,
--- 253,258 ----
  
  	if(!$element){
!       $progress->message("creating element for: ".$featuregroup->id);
! 
  	  $element = Chado::Element->find_or_create({
  												 feature_id => $feature,