[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.7, Thu Nov 3 22:07:59 2005 UTC
# Line 12  Line 12 
12  use HTML;  use HTML;
13  use CGI;  use CGI;
14  use URI::Escape;  use URI::Escape;
15    use raelib; my $raelib=new raelib; # this is just used for the cookies.
16    
17  my $cgi = new CGI;  my($fig, $cgi, $user) = FIG_CGI::init(debug_save => 0,
18  my $fig = new FIG;                                        debug_load => 0,
19                                          print_params => 0);
20    
21  my $html = [];  my $html = [];
22    
23  my $user = $cgi->param('user');  #
24    # Cookie stuff should migrate to FIG_CGI
25    #
26    # my $user = $cgi->param('user') || [$raelib->cookie($cgi)]->[1]->{'user'} || "";
27    
28    #
29    # This should too, if it's needed.
30    # if (! $cgi->param('user')) { $cgi->param(-name=>'user', -value=> $user) }
31    
32    
33  #my $click_js = <<'EJS';  #my $click_js = <<'EJS';
34  #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 60 
60   &do_go_old_seed($cgi, $html);   &do_go_old_seed($cgi, $html);
61  }  }
62    
63  push(@$html, $cgi->start_form(-name => "search_form", -class => "firstform"));  push(@$html, $cgi->start_form(-name => "search_form", -class => "firstform",
64                                  action => "start.cgi"));
65    
66  gen_user_login($cgi, $html);  gen_user_login($cgi, $html);
67    
# Line 87  Line 98 
98  sub gen_user_login  sub gen_user_login
99  {  {
100      my($cgi, $html) = @_;      my($cgi, $html) = @_;
101      return if ($cgi->param('user'));      #return if ($cgi->param('user'));
102      my $inputclass='emptyuserinput';      my $inputclass='emptyuserinput';
103      if ($cgi->param('user')) {$inputclass='knownuserinput'}      if ($cgi->param('user')) {$inputclass='knownuserinput'}
104    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3