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

Diff of /FigKernelPackages/Observation.pm

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

revision 1.58, Wed Apr 23 15:50:16 2008 UTC revision 1.59, Mon Jun 2 05:05:35 2008 UTC
# Line 5  Line 5 
5  use Data::Dumper;  use Data::Dumper;
6    
7  require Exporter;  require Exporter;
8  @EXPORT_OK = qw(get_objects, get_sims_objects);  @EXPORT_OK = qw(get_objects get_sims_objects);
9    
10  use WebColors;  use WebColors;
11  use WebConfig;  use WebConfig;
# Line 712  Line 712 
712        $sim_order = "id";        $sim_order = "id";
713      }      }
714    
715      my(@tmp, $id, $genome, @genomes, %sims);      my($id, $genome, @genomes, %sims);
716      my @tmp= $fig->sims($fid,$max_sims,$max_eval,$db_filter,$max_expand);      my @tmp= $fig->sims($fid,$max_sims,$max_eval,$db_filter,$max_expand);
717      @tmp = grep { !($_->id2 =~ /^fig\|/ and $fig->is_deleted_fid($_->id2)) } @tmp;      @tmp = grep { !($_->id2 =~ /^fig\|/ and $fig->is_deleted_fid($_->id2)) } @tmp;
718      my ($dataset);      my ($dataset);
# Line 2097  Line 2097 
2097      $function_color = &get_function_color_cell($functions, $fig);      $function_color = &get_function_color_cell($functions, $fig);
2098      my $query_function = $fig->function_of($query_fid);      my $query_function = $fig->function_of($query_fid);
2099    
2100      my %e_identical = &get_essentially_identical($query_fid,$dataset,$fig);      %e_identical = &get_essentially_identical($query_fid,$dataset,$fig);
2101      my $alias_col = &get_aliases(\@ids,$fig);      my $alias_col = &get_aliases(\@ids,$fig);
2102      #my $alias_col = {};      #my $alias_col = {};
2103    
# Line 2151  Line 2151 
2151          # get the linked fig id          # get the linked fig id
2152          my $anchor_link = "graph_" . $replace_id;          my $anchor_link = "graph_" . $replace_id;
2153          my $fig_data =  "<table><tr><td>" . &HTML::set_prot_links($cgi,$id) . "</td>" . "&nbsp;" x 2;          my $fig_data =  "<table><tr><td>" . &HTML::set_prot_links($cgi,$id) . "</td>" . "&nbsp;" x 2;
2154          $fig_data .= qq(<td><img height='10px' width='20px' src='./Html/anchor_alignment' alt='View Graphic View of Alignment' onClick='changeSimsLocation("$anchor_link", 0)'/></td></tr></table>);          $fig_data .= qq(<td><img height='10px' width='20px' src='./Html/anchor_alignment.png' alt='View Graphic View of Alignment' onClick='changeSimsLocation("$anchor_link", 0)'/></td></tr></table>);
2155          my $fig_col = {'data'=> $fig_data,          my $fig_col = {'data'=> $fig_data,
2156                         'highlight'=>"#ffffff"};                         'highlight'=>"#ffffff"};
2157    
2158      my $replace_id = $peg;      $replace_id = $peg;
2159      $replace_id =~ s/\|/_/ig;      $replace_id =~ s/\|/_/ig;
2160      my $anchor_name = "anchor_". $replace_id;      $anchor_name = "anchor_". $replace_id;
2161      my $query_config = { 'title' => "Query",      my $query_config = { 'title' => "Query",
2162                           'short_title' => "Query",                           'short_title' => "Query",
2163                           'title_link' => "changeSimsLocation('$replace_id')",                           'title_link' => "changeSimsLocation('$replace_id')",

Legend:
Removed from v.1.58  
changed lines
  Added in v.1.59

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3