[Koha-cvs] CVS: koha/acqui.simple addbiblio.pl,1.20,1.21 additem.pl,1.14,1.15

[Paul POULAIN]

Update of /cvsroot/koha/koha/acqui.simple
In directory sc8-pr-cvs1:/tmp/cvs-serv12839/acqui.simple

Modified Files:
	addbiblio.pl additem.pl 
Log Message:
bugfixes + adding buttons to switch between normal and MARC view of a record

Index: addbiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbiblio.pl,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -r1.20 -r1.21
*** addbiblio.pl	12 Feb 2003 11:03:05 -0000	1.20
--- addbiblio.pl	7 Mar 2003 16:34:04 -0000	1.21
***************
*** 50,55 ****
  	my $result;
  	my $indicator;
  	if ($tagfield <10) {
! 		$result = $record->field($tagfield)->data();
  	} else {
  		foreach my $field ($record->field($tagfield)) {
--- 50,60 ----
  	my $result;
  	my $indicator;
+ 	warn "tagfield : $tagfield /".$record->as_formatted;
  	if ($tagfield <10) {
! 		if ($record->field($tagfield)) {
! 			$result = $record->field($tagfield)->data();
! 		} else {
! 			$result="";
! 		}
  	} else {
  		foreach my $field ($record->field($tagfield)) {
***************
*** 84,87 ****
--- 89,93 ----
  	if ($marc) {
  		my $record = MARC::File::USMARC::decode($marc);
+ 			warn "==> ".$record->as_formatted();
  		if (ref($record) eq undef) {
  			return -1;

Index: additem.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/additem.pl,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -r1.14 -r1.15
*** additem.pl	3 Feb 2003 18:46:03 -0000	1.14
--- additem.pl	7 Mar 2003 16:34:05 -0000	1.15
***************
*** 48,55 ****
  }
  my $input = new CGI;
  my $error = $input->param('error');
  my $bibid = $input->param('bibid');
  my $op = $input->param('op');
- my $dbh = C4::Context->dbh;
  my $itemnum = $input->param('itemnum');
  
--- 48,57 ----
  }
  my $input = new CGI;
+ my $dbh = C4::Context->dbh;
  my $error = $input->param('error');
  my $bibid = $input->param('bibid');
+ my $oldbiblionumber = &MARCfind_oldbiblionumber_from_MARCbibid($dbh,$bibid);
+ 
  my $op = $input->param('op');
  my $itemnum = $input->param('itemnum');
  
***************
*** 246,249 ****
--- 248,252 ----
  						item_header_loop => \@header_value_loop,
  						bibid => $bibid,
+ 						biblionumber =>$oldbiblionumber,
  						item => \@loop_data,
  						itemnum => $itemnum,