[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.5, Mon Oct 3 20:05:34 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 $cgi = new CGI;
18  my $fig = new FIG;  my $fig = new FIG;
19    
20  my $html = [];  my $html = [];
21    
22  my $user = $cgi->param('user');  my $user = $cgi->param('user') || [$raelib->cookie($cgi)]->[1]->{'user'} || "";
23    if (! $cgi->param('user')) { $cgi->param(-name=>'user', -value=> $user) }
24    
25    
26  #my $click_js = <<'EJS';  #my $click_js = <<'EJS';
27  #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 87  Line 90 
90  sub gen_user_login  sub gen_user_login
91  {  {
92      my($cgi, $html) = @_;      my($cgi, $html) = @_;
93      return if ($cgi->param('user'));      #return if ($cgi->param('user'));
94      my $inputclass='emptyuserinput';      my $inputclass='emptyuserinput';
95      if ($cgi->param('user')) {$inputclass='knownuserinput'}      if ($cgi->param('user')) {$inputclass='knownuserinput'}
96    

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

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3