Lines 63-68
$info{'dbms'} = (
Link Here
|
63 |
: "mysql" |
63 |
: "mysql" |
64 |
); |
64 |
); |
65 |
$info{'hostname'} = C4::Context->config("hostname"); |
65 |
$info{'hostname'} = C4::Context->config("hostname"); |
|
|
66 |
$info{'webserver'} = C4::Context->config("webserver"); |
66 |
$info{'port'} = C4::Context->config("port"); |
67 |
$info{'port'} = C4::Context->config("port"); |
67 |
$info{'user'} = C4::Context->config("user"); |
68 |
$info{'user'} = C4::Context->config("user"); |
68 |
$info{'password'} = C4::Context->config("pass"); |
69 |
$info{'password'} = C4::Context->config("pass"); |
Lines 147-153
elsif ( $step && $step == 2 ) {
Link Here
|
147 |
#Check if user have all necessary grants on this database. |
148 |
#Check if user have all necessary grants on this database. |
148 |
my $rq = |
149 |
my $rq = |
149 |
$dbh->prepare( |
150 |
$dbh->prepare( |
150 |
"SHOW GRANTS FOR \'$info{user}\'\@'$info{hostname}'"); |
151 |
"SHOW GRANTS FOR \'$info{user}\'\@'$info{webserver}'"); |
151 |
$rq->execute; |
152 |
$rq->execute; |
152 |
my $grantaccess; |
153 |
my $grantaccess; |
153 |
while ( my ($line) = $rq->fetchrow ) { |
154 |
while ( my ($line) = $rq->fetchrow ) { |
154 |
- |
|
|