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

Diff of /FigWebServices/RTMg.cgi

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

revision 1.2, Fri Jul 24 01:57:44 2009 UTC revision 1.3, Thu Feb 25 01:02:40 2010 UTC
# Line 159  Line 159 
159          strict;          strict;
160    
161          my $reliability = $cgi->param('reliability');          my $reliability = $cgi->param('reliability');
162            my $kmer = $cgi->param('kmer');
163            my $maxGap = $cgi->param('maxGap');
164    
165          my $fa = raelib->read_fasta("$dest/$of");          my $fa = raelib->read_fasta("$dest/$of");
166  # we could let the user set this to increase or decrease the delay  # we could let the user set this to increase or decrease the delay
# Line 177  Line 179 
179          }          }
180          unlink("$dest/$of");          unlink("$dest/$of");
181    
182            # the json data to be sent out
183            my $jsondata = '{"filename" : "'.$of.'", "nseqs" : "'.$count. '", "reliability" : "' . $reliability . '", "kmer" : "' . $kmer . '", "maxGap" : "' . $maxGap . '"}';
184    
185    
186          print $cgi->header('text/html'), start_html(-title=>'Real Time Metagenomics', -style=>'./Html/css/RTMg.css'),          print $cgi->header('text/html'), start_html(-title=>'Real Time Metagenomics', -style=>'./Html/css/RTMg.css'),
187                html(                html(
188                                script({-type=>'text/javascript', -src=>'./Html/css/RTMg.js'}, ""),                                script({-type=>'text/javascript', -src=>'./Html/css/RTMg.js'}, ""),
# Line 190  Line 196 
196                                div({id=>"title"}, ("Annotating $filename in real time")),                                div({id=>"title"}, ("Annotating $filename in real time")),
197    
198    
199    
200  # the FileData div contains JSON formatted data  # the FileData div contains JSON formatted data
201  # but is hidden from the user  # but is hidden from the user
202                                div({id=>"wsCalls"}, ""), "\n",p,                                div({id=>"wsCalls"}, ""), "\n",p,
203                                hidden({id=>'FileData', -value=>'{"filename" : "'.$of.'", "nseqs" : "'.$count.                                hidden(-id=>"FileData", -value=>$jsondata),
                                       '", "reliability" : "' . $reliability . '"}'}, ''), "\n",  
204                                popup_menu(-name=>'setDisplay', -values=>[0, 1, 2, 3,4],                                popup_menu(-name=>'setDisplay', -values=>[0, 1, 2, 3,4],
205                                  -labels=>{0=>"Function", 1=>"One level of subsystems", 2=>"Two levels of subsystems",                                  -labels=>{0=>"Function", 1=>"One level of subsystems", 2=>"Two levels of subsystems",
206                                  3=>"Three levels of subsystems", 4=>"OTU"}, -onChange=>"setDisplayLevel(this)",                                  3=>"Three levels of subsystems", 4=>"OTU"}, -onChange=>"setDisplayLevel(this)",
# Line 242  Line 248 
248                          "Stringency: ",                          "Stringency: ",
249                          popup_menu(-name=>'reliability',  -values=>[1, 2, 3, 4], -labels=>{1=>'Least stringent', 2=>'Regular', 3=>'Stringent', 4=>'Very stringent'}, -default=>2),                          popup_menu(-name=>'reliability',  -values=>[1, 2, 3, 4], -labels=>{1=>'Least stringent', 2=>'Regular', 3=>'Stringent', 4=>'Very stringent'}, -default=>2),
250                          p,                          p,
251                            "Word size: ",
252                            popup_menu(-name=>'kmer', -values=>[7, 8, 9, 10, 11, 12], -default=>8),
253                            p,
254                            "Maximum gap: ",
255                            popup_menu(-name=>"maxGap", -values=>[300, 600, 900], -default=>600),
256                            p,
257                          ),                          ),
258    
259                        end_form(),                        end_form(),

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3