Bumping database version
[wip/koha-chris_n.git] / rotating_collections / rotatingCollections.pl
1 #!/usr/bin/perl
2 use strict;
3 #use warnings; FIXME - Bug 2505
4 require Exporter;
5
6 use CGI;
7
8 use C4::Output;
9 use C4::Auth;
10 use C4::Context;
11 use C4::RotatingCollections;
12
13 my $query = new CGI;
14 my ($template, $loggedinuser, $cookie)
15     = get_template_and_user({template_name => "rotating_collections/rotatingCollections.tmpl",
16                              query => $query,
17                              type => "intranet",
18                              authnotrequired => 1,
19                              flagsrequired => {parameters => 1},
20                              debug => 1,
21                              });
22
23 my $branchcode = $query->cookie('branch');
24
25 my $collections = GetCollections();
26
27 $template->param(
28                 intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),
29                 intranetstylesheet => C4::Context->preference("intranetstylesheet"),
30                 IntranetNav => C4::Context->preference("IntranetNav"),
31                                   
32                 collectionsLoop => $collections,
33                 );
34                                                                                                 
35 output_html_with_http_headers $query, $cookie, $template->output;