113 |
GUI_CheckFormID(\%s, $user); |
GUI_CheckFormID(\%s, $user); |
114 |
|
|
115 |
my $ticket_value; |
my $ticket_value; |
116 |
my $dbh = AuthConnect(\%s, \$user, \$cookie,\$ticket_value) or do { |
my $dbh; |
117 |
die "Couldn't connect to database or database error"; |
|
118 |
}; |
if ($g{conf}{preauth_user}) { |
119 |
|
use Gedafe::DB qw(DB_Connect); |
120 |
|
$dbh = DB_Connect($g{conf}{preauth_user},($g{conf}{preauth_passwd} || '')); |
121 |
|
$user = $g{conf}{preauth_user}; |
122 |
|
} else { |
123 |
|
$dbh = AuthConnect(\%s, \$user, \$cookie,\$ticket_value) or do { |
124 |
|
die "Couldn't connect to database or database error"; |
125 |
|
}; |
126 |
|
} |
127 |
|
|
128 |
$s{dbh}=$dbh; |
$s{dbh}=$dbh; |
129 |
$s{user}=$user; |
$s{user}=$user; |