[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 => 
address@hidden,
                                                bibid => $bibid,
+                                               biblionumber =>$oldbiblionumber,
                                                item => address@hidden,
                                                itemnum => $itemnum,