[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