[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.224, Fri Jul 28 02:52:43 2006 UTC revision 1.225, Wed Aug 2 14:46:24 2006 UTC
# Line 142  Line 142 
142          } elsif ($request eq "fusions") {          } elsif ($request eq "fusions") {
143              $to->add(results => &FigWebServices::SeedComponents::Protein::show_fusions($fig,$cgi,$pegID));              $to->add(results => &FigWebServices::SeedComponents::Protein::show_fusions($fig,$cgi,$pegID));
144          } else {          } else {
145                # this has to be done to support calls to previous or next peg
146                my $adjust = $cgi->param('previous PEG') ? -1 : $cgi->param('next PEG') ? 1 : 0;
147                if ( $adjust ) {
148                    my ( $prefix, $protnum ) = $pegID =~ /^(.*\.)(\d+)$/;
149                    if ( $prefix && $protnum ) {
150                        my $prot2 = $prefix . ($protnum + $adjust);
151                        if ( $fig->translatable($prot2 ) ) {
152                            $pegID = $prot2;
153                            $cgi->delete('prot');
154                            $cgi->param(-name => 'prot', -value => $pegID);
155                            $parameters->{peg_id} = $pegID;
156                        }
157                    }
158                    ( $adjust < 0 ) && $cgi->delete('previous PEG');
159                    ( $adjust > 0 ) && $cgi->delete('next PEG');
160                }
161    
162              # normal page shown.              # normal page shown.
163              $to->add(title => FigWebServices::SeedComponents::Protein::get_title($parameters));              $to->add(title => FigWebServices::SeedComponents::Protein::get_title($parameters));
164              $to->add(assign => FigWebServices::SeedComponents::Protein::get_current_assignment($parameters));              $to->add(assign => FigWebServices::SeedComponents::Protein::get_current_assignment($parameters));

Legend:
Removed from v.1.224  
changed lines
  Added in v.1.225

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3