# You should have received a copy of the GNU General Public License
# along with Koha; if not, see <http://www.gnu.org/licenses>.
-use strict;
-use warnings;
+use Modern::Perl;
use C4::Auth;
use CGI qw ( -utf8 );
use C4::Context;
-use C4::Branch; # GetBranches
-use C4::Dates qw/format_date/;
use C4::Output;
use C4::Koha;
use C4::Reports;
=head1 DESCRIPTION
-=over 2
-
=cut
my $input = new CGI;
CGIextChoice => $CGIextChoice,
CGIsepChoice => $CGIsepChoice,
booksellers => \@booksellers,
- branches => GetBranchesLoop(C4::Context->userenv->{'branch'}));
+ );
}
output_html_with_http_headers $input, $cookie, $template->output;