Lines 35-41
sub wanted {
Link Here
|
35 |
|circ |
35 |
|circ |
36 |
|clubs |
36 |
|clubs |
37 |
|course_reserves |
37 |
|course_reserves |
38 |
|installer |
|
|
39 |
|labels |
38 |
|labels |
40 |
|members |
39 |
|members |
41 |
|patroncards |
40 |
|patroncards |
Lines 62-68
my @missing_auth_check;
Link Here
|
62 |
FILE: foreach my $name (@files) { |
61 |
FILE: foreach my $name (@files) { |
63 |
open( FILE, $name ) || die "cannot open file $name $!"; |
62 |
open( FILE, $name ) || die "cannot open file $name $!"; |
64 |
while ( my $line = <FILE> ) { |
63 |
while ( my $line = <FILE> ) { |
65 |
for my $routine ( qw( get_template_and_user check_cookie_auth checkauth check_api_auth ) ) { |
64 |
for my $routine ( qw( get_template_and_user check_cookie_auth checkauth check_api_auth C4::Service->init ) ) { |
66 |
next FILE if $line =~ m|^[^#]*$routine|; |
65 |
next FILE if $line =~ m|^[^#]*$routine|; |
67 |
} |
66 |
} |
68 |
} |
67 |
} |
69 |
- |
|
|