Lines 21-31
use warnings;
Link Here
|
21 |
use CGI; |
21 |
use CGI; |
22 |
use C4::Auth; # get_template_and_user |
22 |
use C4::Auth; # get_template_and_user |
23 |
use C4::Output; |
23 |
use C4::Output; |
24 |
use C4::VirtualShelves; |
|
|
25 |
use C4::Branch; # GetBranches |
26 |
use C4::Members; # GetMember |
24 |
use C4::Members; # GetMember |
27 |
use C4::NewsChannels; # get_opac_news |
25 |
use C4::NewsChannels; # get_opac_news |
28 |
use C4::Acquisition; # GetRecentAcqui |
|
|
29 |
use C4::Languages qw(getTranslatedLanguages accept_language); |
26 |
use C4::Languages qw(getTranslatedLanguages accept_language); |
30 |
|
27 |
|
31 |
my $input = new CGI; |
28 |
my $input = new CGI; |
32 |
- |
|
|