[Koha-cvs] CVS: koha/acqui addorder.pl,1.16,1.16.2.1 basket.pl,1.16,1.16.2.1 newbiblio.pl,1.14.2.1,1.14.2.2

[Paul POULAIN]

Update of /cvsroot/koha/koha/acqui
In directory sc8-pr-cvs1:/tmp/cvs-serv1951/acqui

Modified Files:
      Tag: rel_2_0
        addorder.pl basket.pl newbiblio.pl 
Log Message:
* minor html fixes
* adding publisher in acquisition process (& ordering basket by publisher)

Index: addorder.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/addorder.pl,v
retrieving revision 1.16
retrieving revision 1.16.2.1
diff -C2 -r1.16 -r1.16.2.1
*** addorder.pl 4 Sep 2003 17:29:50 -0000       1.16
--- addorder.pl 13 Jan 2004 17:29:30 -0000      1.16.2.1
***************
*** 49,53 ****
  my $title=$input->param('title');
  my $author=$input->param('author');
! my $copyright=$input->param('copyright');
  my $isbn=$input->param('ISBN');
  my $itemtype=$input->param('format');
--- 49,53 ----
  my $title=$input->param('title');
  my $author=$input->param('author');
! my $copyrightdate=$input->param('copyrightdate');
  my $isbn=$input->param('ISBN');
  my $itemtype=$input->param('format');
***************
*** 72,78 ****
  my $budget=$input->param('budget');
  my $cost=$input->param('cost');
! my$sub=$input->param('sub');
  my $invoice=$input->param('invoice');
! 
  if ($quantity ne '0'){
        #check to see if biblio exists
--- 72,78 ----
  my $budget=$input->param('budget');
  my $cost=$input->param('cost');
! my $sub=$input->param('sub');
  my $invoice=$input->param('invoice');
! my $publishercode = $input->param('publishercode');
  if ($quantity ne '0'){
        #check to see if biblio exists
***************
*** 81,90 ****
                $bibnum = &newbiblio({ title     => $title?$title:"",
                                                author    => $author?$author:"",
!                                               copyright => 
$copyright?$copyright:"",
                                                series => $series?$series:"",
                                                        });
                $bibitemnum = &newbiblioitem({ biblionumber => $bibnum,
                                                                itemtype     => 
$itemtype?$itemtype:"",
!                                                               isbn        => 
$isbn?$isbn:""
                                                                });
                        if ($title) {
--- 81,91 ----
                $bibnum = &newbiblio({ title     => $title?$title:"",
                                                author    => $author?$author:"",
!                                               copyrightdate => 
$copyrightdate?$copyrightdate:"",
                                                series => $series?$series:"",
                                                        });
                $bibitemnum = &newbiblioitem({ biblionumber => $bibnum,
                                                                itemtype     => 
$itemtype?$itemtype:"",
!                                                               isbn        => 
$isbn?$isbn:"",
!                                                               publishercode 
=> $publishercode?$publishercode:"",
                                                                });
                        if ($title) {
***************
*** 98,102 ****
                        $bibitemnum= &newbiblioitem({ biblionumber => $bibnum,
                                                                        
itemtype => $itemtype?$itemtype:"",
!                                                                       isbn => 
$isbn?$isbn:"" });
                }
                &modbiblio({
--- 99,110 ----
                        $bibitemnum= &newbiblioitem({ biblionumber => $bibnum,
                                                                        
itemtype => $itemtype?$itemtype:"",
!                                                                       isbn => 
$isbn?$isbn:"" ,
!                                                                       
publishercode => $publishercode?$publishercode:"",
!                                                                       });
!               } else {
!                       &modbibitem({biblioitemnumber => $bibitemnum,
!                                                       isbn            => 
$isbn,
!                                                       publishercode   => 
$publishercode,
!                       });
                }
                &modbiblio({
***************
*** 104,109 ****
                        title         => $title?$title:"",
                        author        => $author?$author:"",
!                       copyrightdate => $copyright?$copyright:"",
!                       series        => $series?$series:"" });
        }
        if ($orderexists ne '') {
--- 112,118 ----
                        title         => $title?$title:"",
                        author        => $author?$author:"",
!                       copyrightdate => $copyrightdate?$copyrightdate:"",
!                       series        => $series?$series:"" },
!                       );
        }
        if ($orderexists ne '') {

Index: basket.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/basket.pl,v
retrieving revision 1.16
retrieving revision 1.16.2.1
diff -C2 -r1.16 -r1.16.2.1
*** basket.pl   17 Sep 2003 13:33:37 -0000      1.16
--- basket.pl   13 Jan 2004 17:29:30 -0000      1.16.2.1
***************
*** 78,81 ****
--- 78,82 ----
        }
        $line{ordernumber} = $results[$i]->{'ordernumber'};
+       $line{publishercode} = $results[$i]->{'publishercode'};
        $line{isbn} = $results[$i]->{'isbn'};
        $line{booksellerid} = $results[$i]->{'booksellerid'};

Index: newbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui/newbiblio.pl,v
retrieving revision 1.14.2.1
retrieving revision 1.14.2.2
diff -C2 -r1.14.2.1 -r1.14.2.2
*** newbiblio.pl        19 Dec 2003 02:13:23 -0000      1.14.2.1
--- newbiblio.pl        13 Jan 2004 17:29:30 -0000      1.14.2.2
***************
*** 170,174 ****
                                                ecost => $data->{'ecost'},
                                                notes => $data->{'notes'},
!                                               barcode => $data->{'barcode'},);
  
  output_html_with_http_headers $input, $cookie, $template->output;
--- 170,175 ----
                                                ecost => $data->{'ecost'},
                                                notes => $data->{'notes'},
!                                               barcode => $data->{'barcode'},
!                                               publishercode => 
$data->{'publishercode'});
  
  output_html_with_http_headers $input, $cookie, $template->output;