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;