projects
/
koha_fer
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 6679: Fixing 26 perlcritic violations in C4/Tags.pm
[koha_fer]
/
xt
/
permissions.t
diff --git
a/xt/permissions.t
b/xt/permissions.t
index
7e61524
..
64998ce
100755
(executable)
--- a/
xt/permissions.t
+++ b/
xt/permissions.t
@@
-24,13
+24,17
@@
use Test::More qw(no_plan);
use C4::Context;
use C4::Context;
-my $root_dir =
C4::Context->config( 'intranetdir' ) . '/
installer/data/mysql';
+my $root_dir =
'
installer/data/mysql';
my $base_perms_file = "en/mandatory/userpermissions.sql";
my @trans_perms_files = qw(
my $base_perms_file = "en/mandatory/userpermissions.sql";
my @trans_perms_files = qw(
+ de-DE/mandatory/userpermissions.sql
+ it-IT/necessari/userpermissions.sql
fr-FR/1-Obligatoire/userpermissions.sql
fr-FR/1-Obligatoire/userpermissions.sql
- uk-UA/mandatory/
userpermission
s.sql
- ru-RU/mandatory/
userpermission
s.sql
+ uk-UA/mandatory/
permissions_and_user_flag
s.sql
+ ru-RU/mandatory/
permissions_and_user_flag
s.sql
pl-PL/mandatory/userpermissions.sql
pl-PL/mandatory/userpermissions.sql
+ nb-NO/1-Obligatorisk/userpermissions.sql
+ es-ES/mandatory/userpermissions.sql
);
ok(
);
ok(
@@
-58,8
+62,11
@@
foreach my $file_name ( @trans_perms_files ) {
sub get_perms_from_file {
my $fh = shift;
my %perm;
sub get_perms_from_file {
my $fh = shift;
my %perm;
+ my $found_insert = 0;
while ( <$fh> ) {
next if /^--/; # Comment line
while ( <$fh> ) {
next if /^--/; # Comment line
+ $found_insert = 1 if /insert\s+into/i and /permissions/i;
+ next unless $found_insert;
#/VALUES.*\(\'([\w\-:]+)\'/;
/,\s*\'(.*?)\'/;
my $variable = $1;
#/VALUES.*\(\'([\w\-:]+)\'/;
/,\s*\'(.*?)\'/;
my $variable = $1;