Lines 391-397
sub get_prefs_from_files {
Link Here
|
391 |
'/prog/en/modules/admin/preferences'; |
391 |
'/prog/en/modules/admin/preferences'; |
392 |
# Get all .pref file names |
392 |
# Get all .pref file names |
393 |
opendir ( my $fh, $path_pref_en ); |
393 |
opendir ( my $fh, $path_pref_en ); |
394 |
my @pref_files = grep { /.pref/ } readdir($fh); |
394 |
my @pref_files = grep { /.pref$/ } readdir($fh); |
395 |
close $fh; |
395 |
close $fh; |
396 |
|
396 |
|
397 |
my @names = (); |
397 |
my @names = (); |
398 |
- |
|
|