[Koha-cvs] CVS: koha/opac opac-serial-issues.pl,NONE,1.1 opac-detail.pl,1.11,1.12 opac-suggestions.pl,1.2,1.3

[Paul POULAIN]

Update of /cvsroot/koha/koha/opac
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29656/opac

Modified Files:
	opac-detail.pl opac-suggestions.pl 
Added Files:
	opac-serial-issues.pl 
Log Message:
minor fixes (to get less warning during translation)

--- NEW FILE ---
#!/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;

Index: opac-detail.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-detail.pl,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -r1.11 -r1.12
*** opac-detail.pl	10 May 2004 09:24:14 -0000	1.11
--- opac-detail.pl	12 Aug 2004 14:50:29 -0000	1.12
***************
*** 5,8 ****
--- 5,9 ----
  use C4::Search;
  use C4::Auth;
+ use C4::Bull; #uses getsubscriptionfrom biblionumber
  use C4::Interface::CGI::Output;
  use HTML::Template;
***************
*** 27,30 ****
--- 28,32 ----
  my ($webbiblioitemcount, @webbiblioitems) = &getwebbiblioitems($biblionumber);
  my ($websitecount, @websites)             = &getwebsites($biblionumber);
+ my $subscriptionid = getsubscriptionfrombiblionumber($biblionumber);
  
  $dat->{'count'}=@items;
***************
*** 50,57 ****
  my $sitearray=\@websites;
  
! $template->param(BIBLIO_RESULTS => $resultsarray);
! $template->param(ITEM_RESULTS => $itemsarray);
! $template->param(WEB_RESULTS => $webarray);
! $template->param(SITE_RESULTS => $sitearray,
  );
  
--- 52,60 ----
  my $sitearray=\@websites;
  
! $template->param(BIBLIO_RESULTS => $resultsarray,
! 				ITEM_RESULTS => $itemsarray,
! 				WEB_RESULTS => $webarray,
! 				SITE_RESULTS => $sitearray,
! 				subscriptionid => $subscriptionid,
  );
  

Index: opac-suggestions.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-suggestions.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** opac-suggestions.pl	15 Jul 2004 09:43:23 -0000	1.2
--- opac-suggestions.pl	12 Aug 2004 14:50:29 -0000	1.3
***************
*** 33,37 ****
  			 });
  if ($op eq "add_confirm") {
! 	&newsuggestion($borrowernumber,$title,$author,$publishercode,$note,$copyrightdate,$volumedesc,$publicationyear,$place,$isbn);
  	# empty fields, to avoid filter in "searchsuggestion"
  	$title='';
--- 33,37 ----
  			 });
  if ($op eq "add_confirm") {
! 	&newsuggestion($borrowernumber,$title,$author,$publishercode,$note,$copyrightdate,$volumedesc,$publicationyear,$place,$isbn,'');
  	# empty fields, to avoid filter in "searchsuggestion"
  	$title='';