Index: gnatsweb.pl
===================================================================
RCS file: /cvsroot/gnatsweb/gnatsweb/gnatsweb.pl,v
retrieving revision 1.101
diff -u -p -r1.101 gnatsweb.pl
--- gnatsweb.pl	24 Sep 2002 20:39:17 -0000	1.101
+++ gnatsweb.pl	26 Sep 2002 22:20:26 -0000
@@ -4079,7 +4079,13 @@ sub init_prefs
   }
   %db_prefs = ();
   set_pref('user', \%db_prefs, \%cvals);
-  set_pref('password', \%db_prefs, \%cvals);
+  if (defined $q->param('password')) {
+    $db_prefs{'password'} = $q->param('password');
+  }
+  else
+  {
+    set_pref('password', \%db_prefs, \%cvals);
+  }
 
   # Debug.
   warn "global_prefs = ", Dumper(\%global_prefs) if $debug;
@@ -4189,10 +4195,9 @@ sub main
   ### Cookie-related code must happen before we print the HTML header.
   init_prefs();
 
-  if(!$global_prefs{'database'}
-        || !$db_prefs{'user'} || !$db_prefs{'password'})
+  if(!$global_prefs{'database'} || !$db_prefs{'user'})
   {
-    # We don't have username/password/database; give login page then
+    # We don't have username/database; give login page then
     # redirect to the url they really want (self_url).
     print_header();
     login_page($q->self_url());