Revision c301b22e
Von Sven Schöling vor etwa 11 Jahren hinzugefügt
| t/000setup_database.t | ||
|---|---|---|
| 179 | 179 |
dbh_do($dbh, $sth, bind => [ $_, $config{$_} ]) for sort keys %config;
|
| 180 | 180 |
$sth->finish; |
| 181 | 181 |
|
| 182 |
my $sth = $dbh->prepare(qq|INSERT INTO auth.group_rights (group_id, "right", granted) VALUES (1, ?, TRUE)|) || BAIL_OUT($dbh->errstr);
|
|
| 182 |
$sth = $dbh->prepare(qq|INSERT INTO auth.group_rights (group_id, "right", granted) VALUES (1, ?, TRUE)|) || BAIL_OUT($dbh->errstr); |
|
| 183 | 183 |
dbh_do($dbh, $sth, bind => [ $_ ]) for sort $::auth->all_rights; |
| 184 | 184 |
$sth->finish; |
| 185 | 185 |
|
Auch abrufbar als: Unified diff
warning