gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

C4::Installer - new method to get available MARC frameworks 

For use by test suite; not a user-visible change.

Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Galen Charlton 2008-05-09 18:08:11 -05:00 committed by Joshua Ferraro
parent 31ad99e2b5
commit dbbeb6525b
1 changed files with 24 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
C4/Installer.pm
View File

@ -84,6 +84,30 @@ sub new {
return $self;
}
=head2 marcflavour_list
=over 4
my ($marcflavours) = $installer->marcflavour_list($lang);
=back
Return a arrayref of the MARC flavour sets available for the
specified language C<$lang>. Returns 'undef' if a directory
for the language does not exist.
=cut
sub marcflavour_list {
my $self = shift;
my $lang = shift;
my $dir = C4::Context->config('intranetdir') . "/installer/data/$self->{dbms}/$lang/marcflavour";
opendir(MYDIR, $dir) or return;
my @list = grep { !/^\.|CVS/ && -d "$dir/$_" } readdir(MYDIR);
closedir MYDIR;
return \@list;
}
=head2 marc_framework_sql_list