From 3cef08d33b6b41b1a310521b3aeb9a0bcee4da25 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Thu, 12 Aug 2004 14:50:29 +0000
Subject: [PATCH] minor fixes (to get less warning during translation)

---
 opac/opac-detail.pl        | 11 +++++---
 opac/opac-serial-issues.pl | 57 ++++++++++++++++++++++++++++++++++++++
 opac/opac-suggestions.pl   |  2 +-
 3 files changed, 65 insertions(+), 5 deletions(-)
 create mode 100755 opac/opac-serial-issues.pl

diff --git a/opac/opac-detail.pl b/opac/opac-detail.pl
index 1fbd46e6ec..84c7131383 100755
--- 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
index 0000000000..fbb0dfb7db
--- /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 5e60c39b46..aec570a621 100755
--- 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='';
-- 
2.39.5