[Koha-cvs] CVS: koha/opac opac-ISBDdetail.pl,1.3,1.4 opac-MARCdetail.pl,1.3,1.4 opac-search.pl,1.15,1.16 opac-suggestions.pl,1.1,1.2

Paul POULAIN tipaul at users.sourceforge.net
Thu Jul 15 11:43:25 CEST 2004


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

Modified Files:
	opac-ISBDdetail.pl opac-MARCdetail.pl opac-search.pl 
	opac-suggestions.pl 
Log Message:
Acquisition & Suggestion :
* acquisition rewritte : create a aqbasket table to deal with "bookseller order header".
* add "close basket" feature : a closed basket can't be modified
* suggestion feature : manage suggestions in acquisition (after suggestion filled in OPAC)

Index: opac-ISBDdetail.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-ISBDdetail.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** opac-ISBDdetail.pl	10 Jun 2004 09:34:21 -0000	1.3
--- opac-ISBDdetail.pl	15 Jul 2004 09:43:23 -0000	1.4
***************
*** 56,60 ****
  use MARC::Record;
  use C4::Biblio;
! use C4::Catalogue;
  use HTML::Template;
  
--- 56,60 ----
  use MARC::Record;
  use C4::Biblio;
! use C4::Acquisition;
  use HTML::Template;
  

Index: opac-MARCdetail.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-MARCdetail.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** opac-MARCdetail.pl	3 Jun 2004 10:07:16 -0000	1.3
--- opac-MARCdetail.pl	15 Jul 2004 09:43:23 -0000	1.4
***************
*** 56,60 ****
  use MARC::Record;
  use C4::Biblio;
! use C4::Catalogue;
  use HTML::Template;
  
--- 56,60 ----
  use MARC::Record;
  use C4::Biblio;
! use C4::Acquisition;
  use HTML::Template;
  

Index: opac-search.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-search.pl,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -r1.15 -r1.16
*** opac-search.pl	8 Jul 2004 19:40:30 -0000	1.15
--- opac-search.pl	15 Jul 2004 09:43:23 -0000	1.16
***************
*** 10,14 ****
  use HTML::Template;
  use C4::SearchMarc;
! use C4::Catalogue;
  use C4::Biblio;
  
--- 10,14 ----
  use HTML::Template;
  use C4::SearchMarc;
! use C4::Acquisition;
  use C4::Biblio;
  

Index: opac-suggestions.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-suggestions.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** opac-suggestions.pl	28 May 2004 08:28:23 -0000	1.1
--- opac-suggestions.pl	15 Jul 2004 09:43:23 -0000	1.2
***************
*** 12,19 ****
  my $title = $input->param('title');
  my $author = $input->param('author');
  my $publishercode = $input->param('publishercode');
  my $status = $input->param('status');
  my $suggestedbyme = $input->param('suggestedbyme');
- my $note = $input->param('note');
  my $op = $input->param('op');
  $op = 'else' unless $op;
--- 12,24 ----
  my $title = $input->param('title');
  my $author = $input->param('author');
+ my $note = $input->param('note');
+ my $copyrightdate =$input->param('copyrightdate');
  my $publishercode = $input->param('publishercode');
+ my $volumedesc = $input->param('volumedesc');
+ my $publicationyear = $input->param('publicationyear');
+ my $place = $input->param('place');
+ my $isbn = $input->param('isbn');
  my $status = $input->param('status');
  my $suggestedbyme = $input->param('suggestedbyme');
  my $op = $input->param('op');
  $op = 'else' unless $op;
***************
*** 28,36 ****
  			 });
  if ($op eq "add_confirm") {
! 	&newsuggestion($borrowernumber,$title,$author,$publishercode,$note);
  	# empty fields, to avoid filter in "searchsuggestion"
  	$title='';
  	$author='';
  	$publishercode='';
  	$op='else';
  }
--- 33,46 ----
  			 });
  if ($op eq "add_confirm") {
! 	&newsuggestion($borrowernumber,$title,$author,$publishercode,$note,$copyrightdate,$volumedesc,$publicationyear,$place,$isbn);
  	# empty fields, to avoid filter in "searchsuggestion"
  	$title='';
  	$author='';
  	$publishercode='';
+ 	$copyrightdate ='';
+ 	$volumedesc = '';
+ 	$publicationyear = '';
+ 	$place = '';
+ 	$isbn = '';
  	$op='else';
  }





More information about the Koha-cvs mailing list