[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.2, Wed Feb 2 22:08:56 2005 UTC revision 1.3, Thu Feb 3 19:36:47 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])    (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])
55   {   {
56    $imagefns{"-".$kw}=$cgi->param($kw);    $imagefns{"-".$kw}=$cgi->param($kw);
57   }   }
# Line 64  Line 64 
64    push @{$imagefns{'-compare_to'}}, $1;    push @{$imagefns{'-compare_to'}}, $1;
65    print STDERR "Added $1\n";    print STDERR "Added $1\n";
66   }   }
67     if ($cgi->param('pirsf')) {push @{$imagefns{'-compare_to'}}, ['tagvalue', 'pirsf']}
68     #
69     # remember that we also need to pass in scalefactor here if we have one. This should be a tuple of 'pirsf' and the factor
70    
71    
72   my $image=raedraw->new(%imagefns);   my $image=raedraw->new(%imagefns);
73    
74    print STDERR "IMAGE COMPARE TO RETURNS:  ", join "|", @{$image->compareto}, "\n";
75    
76   my $filename = "$FIG_Config::temp/genomebrowser_$$.svg";   my $filename = "$FIG_Config::temp/genomebrowser_$$.svg";
77   my $url = &FIG::temp_url . "/genomebrowser_$$.svg";   my $url = &FIG::temp_url . "/genomebrowser_$$.svg";
78    
# Line 87  Line 93 
93   &show_initial($fig,$cgi,$html);   &show_initial($fig,$cgi,$html);
94  }  }
95    
96  push @$html, $cgi->div({class=>"errors", style=>"font-size: smaller"}, @$err);  push @$html, $cgi->div({class=>"errors", style=>"font-size: smaller"}, $cgi->h3("Errors/Diagnoses we caught:"), @$err);
97  &HTML::show_page($cgi,$html,1);  &HTML::show_page($cgi,$html,1);
98  exit;  exit;
99    
# Line 119  Line 125 
125     rows         => [2,   'rows to split the image into'],     rows         => [2,   'rows to split the image into'],
126     show_function=> [3,   'show function every n pegs'],     show_function=> [3,   'show function every n pegs'],
127     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'],
128       maxn         => [50, "Max sims"],
129       maxp         => [1e-5, "Max E-val"],
130   );   );
131    
132   my %checkbox=(   my %checkbox=(
133     box_no_score => [0, "draw boxes around empty cells"],     box_no_score => [0, "draw boxes around empty cells"],
134     box_score    => [1, "draw boxes around cells with content"],     box_score    => [1, "draw boxes around cells with content"],
135       bluescale    => [1, "make the darkest color blue (if checked) or red (if not checked)"],
136     genome_lines => [1, "draw lines where the genomes are"],     genome_lines => [1, "draw lines where the genomes are"],
137     abbrev       => [1, "abbreviate genome names"],     abbrev       => [1, "abbreviate genome names"],
138   );   );
# Line 136  Line 145 
145    $advanced .= "\n" . $cgi->Tr($cgi->td([$checkbox{$opt}->[1], $cgi->checkbox(-name=>$opt, -label=>'', -checked=>$checkbox{$opt}->[0])]));    $advanced .= "\n" . $cgi->Tr($cgi->td([$checkbox{$opt}->[1], $cgi->checkbox(-name=>$opt, -label=>'', -checked=>$checkbox{$opt}->[0])]));
146   }   }
147    
148   push @$html, "\n" , $cgi->p, $cgi->div({class=>"advanced"},   push @$html, "\n" , $cgi->p, $cgi->div({class=>"advanced"}, $cgi->table($advanced));
149    $cgi->table($advanced), $cgi->submit(-label=>"Draw Genomes"), $cgi->reset, $cgi->end_form);  
150     # now add the table for tag value pairs:
151     push @$html, $cgi->h3("Tag value pairs"), $cgi->table($cgi->Tr(
152            $cgi->td([$cgi->checkbox(-name=>'pirsf', -label=>'') . "   PIR superfamilies", ''])));
153    
154     push @$html, $cgi->submit(-label=>"Draw Genomes"), $cgi->reset, $cgi->end_form;
155    
156  }  }
157    
158    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3