rotating_collections/rotatingCollections.pl

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