[Bio] / FigWebServices / genomebrowser.cgi Repository:
ViewVC logotype

Diff of /FigWebServices/genomebrowser.cgi

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

revision 1.3, Thu Feb 3 19:36:47 2005 UTC revision 1.4, Fri Feb 4 00:38:17 2005 UTC
# Line 51  Line 51 
51    
52   my %imagefns;   my %imagefns;
53   foreach my $kw   foreach my $kw
54    (qw[width margin top_marg bottom_marg box_height rows box_no_score box_score show_function tick_mark_height genome_lines abrrev stopshort maxn maxp bluescale])    (qw[width margin top_marg bottom_marg box_height rows box_no_score box_score show_function tick_mark_height genome_lines abrrev stopshort maxn maxp bluescale stopshort])
55   {   {
56    $imagefns{"-".$kw}=$cgi->param($kw);    $imagefns{"-".$kw}=$cgi->param($kw);
57   }   }
# Line 62  Line 62 
62   foreach my $ct ($cgi->param('compare_to')) {   foreach my $ct ($cgi->param('compare_to')) {
63    $ct =~ /\((\d+\.\d+)\)/;    $ct =~ /\((\d+\.\d+)\)/;
64    push @{$imagefns{'-compare_to'}}, $1;    push @{$imagefns{'-compare_to'}}, $1;
   print STDERR "Added $1\n";  
65   }   }
66   if ($cgi->param('pirsf')) {push @{$imagefns{'-compare_to'}}, ['tagvalue', 'pirsf']}   if ($cgi->param('pirsf')) {push @{$imagefns{'-compare_to'}}, ['tagvalue', 'pirsf']}
67   #   #
# Line 71  Line 70 
70    
71   my $image=raedraw->new(%imagefns);   my $image=raedraw->new(%imagefns);
72    
 print STDERR "IMAGE COMPARE TO RETURNS:  ", join "|", @{$image->compareto}, "\n";  
73    
74   my $filename = "$FIG_Config::temp/genomebrowser_$$.svg";   my $filename = "$FIG_Config::temp/genomebrowser_$$.svg";
75   my $url = &FIG::temp_url . "/genomebrowser_$$.svg";   my $url = &FIG::temp_url . "/genomebrowser_$$.svg";
# Line 122  Line 120 
120     top_marg     => [20,  'top margin'],     top_marg     => [20,  'top margin'],
121     bottom_marg  => [20,  'bottom margin'],     bottom_marg  => [20,  'bottom margin'],
122     box_height   => [10,  'height of the boxes around the pegs'],     box_height   => [10,  'height of the boxes around the pegs'],
123     rows         => [2,   'rows to split the image into'],     rows         => [10,   'split the image into rows'],
124     show_function=> [3,   'show function every n pegs'],     show_function=> [3,   'show function every n pegs'],
125     tick_mark_height=> [3, 'height of the tick marks on the genome line'],     tick_mark_height=> [3, 'height of the tick marks on the genome line'],
126     maxn         => [50, "Max sims"],     maxn         => [50, "Max sims"],
127     maxp         => [1e-5, "Max E-val"],     maxp         => [1e-5, "Max E-val"],
128       stopshort    => [100, "Stop drawing after some pegs"],
129   );   );
130    
131   my %checkbox=(   my %checkbox=(

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3