[Koha-cvs] CVS: koha/opac opac-account.pl,1.9,1.10 opac-basket.pl,1.5,1.6 opac-detail.pl,1.25,1.26 opac-detailprint.pl,1.2,1.3 opac-readingrecord.pl,1.8,1.9 opac-reserve.pl,1.26,1.27 opac-searchresults.pl,1.17,1.18 opac-sendbasket.pl,1.8,1.9 opac-user.pl,1.18,1.19

Thu Sep 22 12:01:48 CEST 2005

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

Modified Files:
	opac-account.pl opac-basket.pl opac-detail.pl 
	opac-detailprint.pl opac-readingrecord.pl opac-reserve.pl 
	opac-searchresults.pl opac-sendbasket.pl opac-user.pl 
Log Message:
see mail on koha-devel : code cleaning on Search.pm + normalizing API + use of biblionumber everywhere (instead of bn, biblio, ...)

Index: opac-account.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-account.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -r1.9 -r1.10
*** opac-account.pl	4 Aug 2005 14:19:49 -0000	1.9
--- opac-account.pl	22 Sep 2005 10:01:46 -0000	1.10
***************
*** 7,11 ****
  use C4::Output;
  use CGI;
! use C4::Search;
  use C4::Circulation::Circ2;
  use C4::Auth;
--- 7,11 ----
  use C4::Output;
  use CGI;
! use C4::Members;
  use C4::Circulation::Circ2;
  use C4::Auth;

Index: opac-basket.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-basket.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** opac-basket.pl	4 May 2005 09:02:38 -0000	1.5
--- opac-basket.pl	22 Sep 2005 10:01:46 -0000	1.6
***************
*** 3,7 ****
  require Exporter;
  use CGI;
! use C4::Search;
  use C4::Auth;
  use C4::Interface::CGI::Output;
--- 3,7 ----
  require Exporter;
  use CGI;
! use C4::Biblio;
  use C4::Auth;
  use C4::Interface::CGI::Output;
***************
*** 34,38 ****

  	my $dat                                   = &bibdata($biblionumber);
! 	my ($authorcount, $addauthor)             = &addauthor($biblionumber);
  	my @items                                 = &ItemInfo(undef, $biblionumber, 'opac');

--- 34,38 ----

  	my $dat                                   = &bibdata($biblionumber);
! 	my ($authorcount, $addauthor)             = &getaddauthor($biblionumber);
  	my @items                                 = &ItemInfo(undef, $biblionumber, 'opac');

Index: opac-detail.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-detail.pl,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -r1.25 -r1.26
*** opac-detail.pl	6 Sep 2005 12:28:08 -0000	1.25
--- opac-detail.pl	22 Sep 2005 10:01:46 -0000	1.26
***************
*** 3,7 ****
  require Exporter;
  use CGI;
- use C4::Search;
  use C4::Auth;
  use C4::Bull; #uses getsubscriptionfrom biblionumber
--- 3,6 ----
***************
*** 29,33 ****
  my @items                                 = &ItemInfo(undef, $biblionumber, 'opac');
  my $dat                                   = &bibdata($biblionumber);
! my ($authorcount, $addauthor)             = &addauthor($biblionumber);
  my ($webbiblioitemcount, @webbiblioitems) = &getwebbiblioitems($biblionumber);
  my ($websitecount, @websites)             = &getwebsites($biblionumber);
--- 28,32 ----
  my @items                                 = &ItemInfo(undef, $biblionumber, 'opac');
  my $dat                                   = &bibdata($biblionumber);
! my ($authorcount, $addauthor)             = &getaddauthor($biblionumber);
  my ($webbiblioitemcount, @webbiblioitems) = &getwebbiblioitems($biblionumber);
  my ($websitecount, @websites)             = &getwebsites($biblionumber);

Index: opac-detailprint.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-detailprint.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** opac-detailprint.pl	16 Nov 2004 13:03:05 -0000	1.2
--- opac-detailprint.pl	22 Sep 2005 10:01:46 -0000	1.3
***************
*** 25,29 ****
  use C4::Output;  # contains gettemplate
  use CGI;
! use C4::Search;
  use C4::Auth;
  use C4::Interface::CGI::Output;
--- 25,29 ----
  use C4::Output;  # contains gettemplate
  use CGI;
! use C4::Biblio;
  use C4::Auth;
  use C4::Interface::CGI::Output;
***************
*** 46,50 ****

  my $dat=bibdata($biblionumber);
! my ($authorcount, $addauthor)= &addauthor($biblionumber);
  my ($webbiblioitemcount, @webbiblioitems) = &getwebbiblioitems($biblionumber);
  my ($websitecount, @websites)             = &getwebsites($biblionumber);
--- 46,50 ----

  my $dat=bibdata($biblionumber);
! my ($authorcount, $addauthor)= &getaddauthor($biblionumber);
  my ($webbiblioitemcount, @webbiblioitems) = &getwebbiblioitems($biblionumber);
  my ($websitecount, @websites)             = &getwebsites($biblionumber);

Index: opac-readingrecord.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-readingrecord.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** opac-readingrecord.pl	4 Aug 2005 14:19:50 -0000	1.8
--- opac-readingrecord.pl	22 Sep 2005 10:01:46 -0000	1.9
***************
*** 8,12 ****
  use C4::Circulation::Circ2;
  use C4::Date;
! use C4::Search;
  use HTML::Template;
  use C4::Interface::CGI::Output;
--- 8,12 ----
  use C4::Circulation::Circ2;
  use C4::Date;
! use C4::Members;
  use HTML::Template;
  use C4::Interface::CGI::Output;

Index: opac-reserve.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-reserve.pl,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -r1.26 -r1.27
*** opac-reserve.pl	4 Aug 2005 14:19:50 -0000	1.26
--- opac-reserve.pl	22 Sep 2005 10:01:46 -0000	1.27
***************
*** 6,10 ****
  use CGI;

! use C4::Search;
  use C4::Auth;         # checkauth, getborrowernumber.
  use C4::Koha;
--- 6,10 ----
  use CGI;

! use C4::Biblio;
  use C4::Auth;         # checkauth, getborrowernumber.
  use C4::Koha;

Index: opac-searchresults.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-searchresults.pl,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -r1.17 -r1.18
*** opac-searchresults.pl	4 May 2005 09:02:38 -0000	1.17
--- opac-searchresults.pl	22 Sep 2005 10:01:46 -0000	1.18
***************
*** 4,7 ****
--- 4,8 ----
  use CGI;
  use C4::Search;
+ use C4::Biblio;
  use C4::Auth;
  use C4::Interface::CGI::Output;

Index: opac-sendbasket.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-sendbasket.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** opac-sendbasket.pl	29 Jun 2005 02:01:03 -0000	1.8
--- opac-sendbasket.pl	22 Sep 2005 10:01:46 -0000	1.9
***************
*** 7,11 ****
  use MIME::Base64;
  use C4::Context;
- use C4::Search;
  use C4::Biblio;
  use C4::Auth;
--- 7,10 ----
***************
*** 53,57 ****

  		my $dat = &bibdata($biblionumber);
! 		my ($authorcount, $addauthor) = &addauthor($biblionumber);
  		my @items                     = &ItemInfo(undef, $biblionumber, 'opac');

--- 52,56 ----

  		my $dat = &bibdata($biblionumber);
! 		my ($authorcount, $addauthor) = &getaddauthor($biblionumber);
  		my @items                     = &ItemInfo(undef, $biblionumber, 'opac');

Index: opac-user.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-user.pl,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -r1.18 -r1.19
*** opac-user.pl	4 Aug 2005 08:54:56 -0000	1.18
--- opac-user.pl	22 Sep 2005 10:01:46 -0000	1.19
***************
*** 8,12 ****
  use C4::Circulation::Circ2;
  use C4::Reserves2;
! use C4::Search;
  use C4::Interface::CGI::Output;
  use HTML::Template;
--- 8,12 ----
  use C4::Circulation::Circ2;
  use C4::Reserves2;
! use C4::Members;
  use C4::Interface::CGI::Output;
  use HTML::Template;