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

Diff of /FigWebServices/protein.cgi

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

revision 1.231, Fri Aug 25 19:44:40 2006 UTC revision 1.232, Mon Oct 2 03:05:46 2006 UTC
# Line 30  Line 30 
30  use FigWebServices::SeedComponents;  use FigWebServices::SeedComponents;
31  use PageBuilder;  use PageBuilder;
32  use TemplateObject;  use TemplateObject;
33    use Tracer;
34    
35  print header();  print header();
36    
# Line 51  Line 52 
52      my ($fig, $cgi, $user) = FIG_CGI::init(debug_save   => 0,      my ($fig, $cgi, $user) = FIG_CGI::init(debug_save   => 0,
53                                             debug_load   => 0,                                             debug_load   => 0,
54                                             print_params => 0);                                             print_params => 0);
55        Tracer::CGITrace($cgi);
56        Trace("Processing protein page.") if T(2);
57      # check if an external page is to be displayed, called with data from seed.      # check if an external page is to be displayed, called with data from seed.
58      if ($cgi->param('tool')) {      if ($cgi->param('tool')) {
59            Trace("Tool selected.") if T(2);
60          # Get the template object.          # Get the template object.
61          my $to = TemplateObject->new($cgi, php => 'Tool');          my $to = TemplateObject->new($cgi, php => 'Tool');
62    
# Line 83  Line 86 
86    
87      # check for the new framework      # check for the new framework
88      } elsif ($cgi->param('new_framework')) {      } elsif ($cgi->param('new_framework')) {
89            Trace("Using new framework.") if T(2);
90          # display the new version          # display the new version
91          my @out = `./frame.cgi`;          my @out = `./frame.cgi`;
92          print @out;          print @out;
# Line 105  Line 108 
108                  $pegID = $poss[0];                  $pegID = $poss[0];
109              }              }
110          }          }
   
111          # Get the feature type.          # Get the feature type.
112          my $featureType = $fig->ftype($pegID);          my $featureType = $fig->ftype($pegID);
113          my $proteinMode = ($featureType eq 'peg');          my $proteinMode = ($featureType eq 'peg');
# Line 114  Line 116 
116          } else {          } else {
117              $featureType = uc $featureType;              $featureType = uc $featureType;
118          }          }
119            Trace("Feature $pegID will be displayed as type $featureType with protein mode = $proteinMode.") if T(2);
120          if ($to->mode()) {          if ($to->mode()) {
121              $to->add(ftype => $featureType);              $to->add(ftype => $featureType);
122          }          }
# Line 273  Line 276 
276              $to->add(pubmed_url => FigWebServices::SeedComponents::Protein::get_pubmed_url($parameters));              $to->add(pubmed_url => FigWebServices::SeedComponents::Protein::get_pubmed_url($parameters));
277              $to->add("<br/><hr/>") if $to->raw;              $to->add("<br/><hr/>") if $to->raw;
278              if (is_sprout($cgi)) {              if (is_sprout($cgi)) {
279                  $to->add(similarities => FigWebServices::SeedComponents::Protein::get_bbhs($parameters));                  $retval = FigWebServices::SeedComponents::Protein::get_bbhs($parameters);
280                    $to->add(similarities => $retval);
281                    delete($parameters->{title});
282                    delete($parameters->{id});
283              } else {              } else {
284                  $parameters->{initial_value} = 'expanded';                  $parameters->{initial_value} = 'expanded';
285                  $retval = FigWebServices::SeedComponents::Protein::get_similarities($parameters);                  $retval = FigWebServices::SeedComponents::Protein::get_similarities($parameters);

Legend:
Removed from v.1.231  
changed lines
  Added in v.1.232

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3