[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'address@hidden;
***************
*** 50,57 ****
  my address@hidden;
  
! $template->param(BIBLIO_RESULTS => $resultsarray);
! $template->param(ITEM_RESULTS => $itemsarray);
! $template->param(WEB_RESULTS => $webarray);
! $template->param(SITE_RESULTS => $sitearray,
  );
  
--- 52,60 ----
  my address@hidden;
  
! $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='';