[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;