|
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 |
- |
|
|