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

Diff of /FigWebServices/index.cgi

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

revision 1.79, Fri Sep 16 04:24:43 2005 UTC revision 1.80, Mon Oct 3 20:05:34 2005 UTC
# Line 10  Line 10 
10    
11  use POSIX;  use POSIX;
12  use HTML;  use HTML;
13    use raelib; # note this is only being used for the cookies at the moment, and this can be removeed if necessary
14    my $raelib=new raelib;
15    
16  use CGI;  use CGI;
17  my $cgi = new CGI;  my $cgi = new CGI;
# Line 75  Line 77 
77    
78    
79  my($pattern,$seq_pat,$tool,$ids,$subsearch);  my($pattern,$seq_pat,$tool,$ids,$subsearch);
80  my $user = $cgi->param('user');  
81  if (! $user) { $user = "" }  my $user = $cgi->param('user') || [$raelib->cookie($cgi)]->[1]->{'user'} || "";
82    if (! $cgi->param('user')) { $cgi->param(-name=>'user', -value=> $user) }
83    
84  if ($cgi->param('Search for Genes Matching an Occurrence Profile or Common to a Set of Organisms'))  if ($cgi->param('Search for Genes Matching an Occurrence Profile or Common to a Set of Organisms'))
85  {  {

Legend:
Removed from v.1.79  
changed lines
  Added in v.1.80

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3