[Gmod-schema-cmts] schema/chado/load/bin load_affyxls.pl,1.8,1.9

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

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

Modified Files:
	load_affyxls.pl 
Log Message:
need to update objs before commiting


Index: load_affyxls.pl
===================================================================
RCS file: /cvsroot/gmod/schema/chado/load/bin/load_affyxls.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** load_affyxls.pl	2 Dec 2003 03:45:53 -0000	1.8
--- load_affyxls.pl	2 Dec 2003 07:46:32 -0000	1.9
***************
*** 136,140 ****
  
    my $biomaterial = Chado::Biomaterial->find_or_create({ name => $sample_id , taxon_id => $human});
!   $biomaterial->description($arrayio->id) and $newchip++ unless $biomaterial->description;
    push @txn, $biomaterial;
  
--- 136,144 ----
  
    my $biomaterial = Chado::Biomaterial->find_or_create({ name => $sample_id , taxon_id => $human});
!   if(!$biomaterial->description and $arrayio->id){
!     $biomaterial->description($arrayio->id);
!     $biomaterial->update;
!     $newchip++ ;
!   }
    push @txn, $biomaterial;
  
***************
*** 166,170 ****
  									protocol_id => $protocol_assay->id,
  								   });
!   $assay->description($arrayio->id) and $newchip++ unless $assay->description;
    push @txn, $assay;
  
--- 170,178 ----
  									protocol_id => $protocol_assay->id,
  								   });
!   if($arrayio->id and !$assay->description){
!     $assay->description($arrayio->id);
!     $assay->update;
!     $newchip++;
!   }
    push @txn, $assay;
  
***************
*** 179,183 ****
  												protocol_id => $protocol_acquisition->id,
  											   });
!   $acquisition->name($arrayio->id) and $newchip++ unless $acquisition->name;
    push @txn, $acquisition;
  
--- 187,195 ----
  												protocol_id => $protocol_acquisition->id,
  											   });
!   if($arrayio->id and !$acquisition->name){
!     $acquisition->name($arrayio->id);
!     $acquisition->update;
!     $newchip++;
!   }
    push @txn, $acquisition;
  
***************
*** 188,192 ****
  													  analysis_id => $analysis->id,
  													 });
!   $quantification->name($arrayio->id) and $newchip++ unless $quantification->name;
    push @txn, $quantification;
  
--- 200,208 ----
  													  analysis_id => $analysis->id,
  													 });
!   if($arrayio->id and !$quantification->name){
!     $quantification->name($arrayio->id);
!     $quantification->update;
!     $newchip++;
!   }
    push @txn, $quantification;