Improving borrowers statitics management

[koha.git] / bull-home.pl

diff --git a/bull-home.pl b/bull-home.pl
index ec59df5..8ee0255 100755 (executable)
--- a/bull-home.pl
+++ b/bull-home.pl
@@ -3,12 +3,16 @@
 use strict;
 use CGI;
 use C4::Auth;
+use C4::Bull;
 use C4::Output;
 use C4::Interface::CGI::Output;
 use C4::Context;
 use HTML::Template;
 
 my $query = new CGI;
+my $title = $query->param('title');
+my $ISSN = $query->param('ISSN');
+my @subscriptions = getsubscriptions($title,$ISSN);
 my ($template, $loggedinuser, $cookie)
 = get_template_and_user({template_name => "bull/bull-home.tmpl",
                                query => $query,
@@ -17,4 +21,10 @@ my ($template, $loggedinuser, $cookie)
                                flagsrequired => {catalogue => 1},
                                debug => 1,
                                });
+
+$template->param(
+       subscriptions => \@subscriptions,
+       title => $title,
+       ISSN => $ISSN,
+       );
 output_html_with_http_headers $query, $cookie, $template->output;