[Bio] / FigKernelPackages / gjogenbank.pm Repository:
ViewVC logotype

Diff of /FigKernelPackages/gjogenbank.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1, Mon Aug 16 20:04:35 2010 UTC revision 1.2, Mon Aug 16 20:43:27 2010 UTC
# Line 907  Line 907 
907      my ( $cbdl, $format ) = @_;      my ( $cbdl, $format ) = @_;
908      $cbdl && ( ref( $cbdl ) eq 'ARRAY' ) or return undef;      $cbdl && ( ref( $cbdl ) eq 'ARRAY' ) or return undef;
909      $format = 'sapling' if ! defined $format;      $format = 'sapling' if ! defined $format;
910      return cbdl_2_genbank( $cbdl ) if $foramt =~ m/genbank/i;      return cbdl_2_genbank( $cbdl ) if $format =~ m/genbank/i;
911      join( ',', map { cbdl_part_2_string( $_, $format ) } @$cbdl );      join( ',', map { cbdl_part_2_string( $_, $format ) } @$cbdl );
912  }  }
913    
# Line 951  Line 951 
951      my $dir = $cbdl[0]->[2];      my $dir = $cbdl[0]->[2];
952      @cbdl = map { complement_cbdl( $_ ) } reverse @cbdl if $dir =~ /^-/;      @cbdl = map { complement_cbdl( $_ ) } reverse @cbdl if $dir =~ /^-/;
953    
954      $contig = $dbdl[0]->[0];      $contig = $cbdl[0]->[0];
955      my @gb = map { cbdl_part_2_genbank( $_, $contig ) } @cbdl;      my @gb = map { cbdl_part_2_genbank( $_, $contig ) } @cbdl;
956    
957      my $gb = ( @gb > 1 ) ? 'join(' . join( ',', @gb ) . ')' : $gb[0];      my $gb = ( @gb > 1 ) ? 'join(' . join( ',', @gb ) . ')' : $gb[0];

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3