|
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" ) { |