bull-home.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use CGI;
   5 use C4::Auth;
   6 use C4::Bull;
   7 use C4::Output;
   8 use C4::Interface::CGI::Output;
   9 use C4::Context;
  10 use HTML::Template;
  11
  12 my $query = new CGI;
  13 my $title = $query->param('title');
  14 my $ISSN = $query->param('ISSN');
  15 my $biblionumber = $query->param('biblionumber');
  16 my @subscriptions = getsubscriptions($title,$ISSN,$biblionumber);
  17 my ($template, $loggedinuser, $cookie)
  18 = get_template_and_user({template_name => "bull/bull-home.tmpl",
  19                                 query => $query,
  20                                 type => "intranet",
  21                                 authnotrequired => 0,
  22                                 flagsrequired => {catalogue => 1},
  23                                 debug => 1,
  24                                 });
  25
  26 $template->param(
  27         subscriptions => \@subscriptions,
  28         title => $title,
  29         ISSN => $ISSN,
  30         );
  31 output_html_with_http_headers $query, $cookie, $template->output;