Lines 47-52
BEGIN {
Link Here
|
47 |
&getframeworks &getframeworkinfo |
47 |
&getframeworks &getframeworkinfo |
48 |
&getauthtypes &getauthtype |
48 |
&getauthtypes &getauthtype |
49 |
&getallthemes |
49 |
&getallthemes |
|
|
50 |
&getallbasketgroupslayouts |
50 |
&getFacets |
51 |
&getFacets |
51 |
&displayServers |
52 |
&displayServers |
52 |
&getnbpages |
53 |
&getnbpages |
Lines 684-689
sub getallthemes {
Link Here
|
684 |
return @themes; |
685 |
return @themes; |
685 |
} |
686 |
} |
686 |
|
687 |
|
|
|
688 |
=head2 getallbasketgroupslayouts |
689 |
|
690 |
(@pdflayouts) = &getallbasketgroupslayouts(); |
691 |
|
692 |
Returns an array of all available basketgroup layouts |
693 |
based on *. pm files in acqui/pdfformat |
694 |
|
695 |
=cut |
696 |
|
697 |
sub getallbasketgroupslayouts { |
698 |
my $type = shift; |
699 |
my $pdfdir; |
700 |
my @pdflayouts; |
701 |
$pdfdir = C4::Context->config('intranetdir'); |
702 |
$pdfdir .= "/acqui/pdfformat"; |
703 |
opendir DIR, $pdfdir; |
704 |
my @filelist = readdir DIR; |
705 |
foreach my $myfile (@filelist) { |
706 |
next unless (-f "$pdfdir/$myfile"); |
707 |
next unless ($myfile =~ m/\.pm$/); |
708 |
#keeping only *.pm files |
709 |
$myfile =~s/\.pm$//; |
710 |
push @pdflayouts,"pdfformat::".$myfile; |
711 |
} |
712 |
return @pdflayouts; |
713 |
} |
714 |
|
687 |
sub getFacets { |
715 |
sub getFacets { |
688 |
my $facets; |
716 |
my $facets; |
689 |
if ( C4::Context->preference("marcflavour") eq "UNIMARC" ) { |
717 |
if ( C4::Context->preference("marcflavour") eq "UNIMARC" ) { |