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

Diff of /FigWebServices/start.cgi

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

revision 1.4, Tue Sep 20 17:29:31 2005 UTC revision 1.8, Mon Dec 5 19:12:12 2005 UTC
# Line 1  Line 1 
1  #  #
2    # Copyright (c) 2003-2006 University of Chicago and Fellowship
3    # for Interpretations of Genomes. All Rights Reserved.
4    #
5    # This file is part of the SEED Toolkit.
6    #
7    # The SEED Toolkit is free software. You can redistribute
8    # it and/or modify it under the terms of the SEED Toolkit
9    # Public License.
10    #
11    # You should have received a copy of the SEED Toolkit Public License
12    # along with this program; if not write to the University of Chicago
13    # at info@ci.uchicago.edu or the Fellowship for Interpretation of
14    # Genomes at veronika@thefig.info or download a copy from
15    # http://www.theseed.org/LICENSE.TXT.
16    #
17    
18    #
19  # New-style front end.  # New-style front end.
20  #  #
21  # User login  # User login
# Line 12  Line 29 
29  use HTML;  use HTML;
30  use CGI;  use CGI;
31  use URI::Escape;  use URI::Escape;
32    use raelib; my $raelib=new raelib; # this is just used for the cookies.
33    
34  my $cgi = new CGI;  my($fig, $cgi, $user) = FIG_CGI::init(debug_save => 0,
35  my $fig = new FIG;                                        debug_load => 0,
36                                          print_params => 0);
37    
38  my $html = [];  my $html = [];
39    
40  my $user = $cgi->param('user');  #
41    # Cookie stuff should migrate to FIG_CGI
42    #
43    # my $user = $cgi->param('user') || [$raelib->cookie($cgi)]->[1]->{'user'} || "";
44    
45    #
46    # This should too, if it's needed.
47    # if (! $cgi->param('user')) { $cgi->param(-name=>'user', -value=> $user) }
48    
49    
50  #my $click_js = <<'EJS';  #my $click_js = <<'EJS';
51  #put the javascript in FIG.js with all the others to keep the html clean and reduce redundancy  #put the javascript in FIG.js with all the others to keep the html clean and reduce redundancy
# Line 50  Line 77 
77   &do_go_old_seed($cgi, $html);   &do_go_old_seed($cgi, $html);
78  }  }
79    
80  push(@$html, $cgi->start_form(-name => "search_form", -class => "firstform"));  push(@$html, $cgi->start_form(-name => "search_form", -class => "firstform",
81                                  action => "start.cgi"));
82    
83  gen_user_login($cgi, $html);  gen_user_login($cgi, $html);
84    
# Line 87  Line 115 
115  sub gen_user_login  sub gen_user_login
116  {  {
117      my($cgi, $html) = @_;      my($cgi, $html) = @_;
118      return if ($cgi->param('user'));      #return if ($cgi->param('user'));
119      my $inputclass='emptyuserinput';      my $inputclass='emptyuserinput';
120      if ($cgi->param('user')) {$inputclass='knownuserinput'}      if ($cgi->param('user')) {$inputclass='knownuserinput'}
121    

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.8

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3