minor fixes (to get less warning during translation)

diff --git a/opac/opac-detail.pl b/opac/opac-detail.pl
index 1fbd46e..84c7131 100755 (executable)
--- a/opac/opac-detail.pl
+++ b/opac/opac-detail.pl
@@ -4,6 +4,7 @@ require Exporter;
 use CGI;
 use C4::Search;
 use C4::Auth;
+use C4::Bull; #uses getsubscriptionfrom biblionumber
 use C4::Interface::CGI::Output;
 use HTML::Template;
 
@@ -26,6 +27,7 @@ my $dat                                   = &bibdata($biblionumber);
 my ($authorcount, $addauthor)             = &addauthor($biblionumber);
 my ($webbiblioitemcount, @webbiblioitems) = &getwebbiblioitems($biblionumber);
 my ($websitecount, @websites)             = &getwebsites($biblionumber);
+my $subscriptionid = getsubscriptionfrombiblionumber($biblionumber);
 
 $dat->{'count'}=@items;
 
@@ -49,10 +51,11 @@ my $itemsarray=\@items;
 my $webarray=\@webbiblioitems;
 my $sitearray=\@websites;
 
-$template->param(BIBLIO_RESULTS => $resultsarray);
-$template->param(ITEM_RESULTS => $itemsarray);
-$template->param(WEB_RESULTS => $webarray);
-$template->param(SITE_RESULTS => $sitearray,
+$template->param(BIBLIO_RESULTS => $resultsarray,
+                               ITEM_RESULTS => $itemsarray,
+                               WEB_RESULTS => $webarray,
+                               SITE_RESULTS => $sitearray,
+                               subscriptionid => $subscriptionid,
 );
 
 output_html_with_http_headers $query, $cookie, $template->output;

diff --git a/opac/opac-serial-issues.pl b/opac/opac-serial-issues.pl
new file mode 100755 (executable)
index 0000000..fbb0dfb
--- /dev/null
+++ b/opac/opac-serial-issues.pl
@@ -0,0 +1,57 @@
+#!/usr/bin/perl
+
+use strict;
+use CGI;
+use C4::Auth;
+use C4::Koha;
+use C4::Date;
+use C4::Bull;
+use C4::Output;
+use C4::Interface::CGI::Output;
+use C4::Context;
+use HTML::Template;
+
+my $query = new CGI;
+my $op = $query->param('op');
+my $dbh = C4::Context->dbh;
+my $sth;
+# my $id;
+my ($template, $loggedinuser, $cookie);
+my ($subscriptionid);
+
+$subscriptionid = $query->param('subscriptionid');
+my $subscription = &getsubscription($subscriptionid);
+
+($template, $loggedinuser, $cookie)
+= get_template_and_user({template_name => "opac-serial-issues.tmpl",
+                               query => $query,
+                               type => "opac",
+                               authnotrequired => 1,
+                               debug => 1,
+                               });
+
+# replace CR by <br> in librarian note
+$subscription->{opacnote} =~ s/\n/\<br\/\>/g;
+
+$template->param(
+       startdate => format_date($subscription->{startdate}),
+       periodicity => $subscription->{periodicity},
+       dow => $subscription->{dow},
+       numberlength => $subscription->{numberlength},
+       weeklength => $subscription->{weeklength},
+       monthlength => $subscription->{monthlength},
+       opacnote => $subscription->{opacnote},
+       numberingmethod => $subscription->{numberingmethod},
+       arrivalplanified => $subscription->{arrivalplanified},
+       status => $subscription->{status},
+       biblionumber => $subscription->{biblionumber},
+       bibliotitle => $subscription->{bibliotitle},
+       notes => $subscription->{notes},
+       subscriptionid => $subscription->{subscriptionid}
+       );
+$template->param(
+                       "periodicity$subscription->{periodicity}" => 1,
+                       "arrival$subscription->{dow}" => 1,
+                       );
+
+output_html_with_http_headers $query, $cookie, $template->output;

diff --git a/opac/opac-suggestions.pl b/opac/opac-suggestions.pl
index 5e60c39..aec570a 100755 (executable)
--- a/opac/opac-suggestions.pl
+++ b/opac/opac-suggestions.pl
@@ -32,7 +32,7 @@ my ($template, $borrowernumber, $cookie)
                             flagsrequired => {borrow => 1},
                         });
 if ($op eq "add_confirm") {
-       &newsuggestion($borrowernumber,$title,$author,$publishercode,$note,$copyrightdate,$volumedesc,$publicationyear,$place,$isbn);
+       &newsuggestion($borrowernumber,$title,$author,$publishercode,$note,$copyrightdate,$volumedesc,$publicationyear,$place,$isbn,'');
        # empty fields, to avoid filter in "searchsuggestion"
        $title='';
        $author='';