[Koha-cvs] CVS: koha updatebibitem.pl,1.5,1.6

[Gynn Lomax]

Update of /cvsroot/koha/koha
In directory usw-pr-cvs1:/tmp/cvs-serv5026

Modified Files:
	updatebibitem.pl 
Log Message:
bug fix to actually save the changes made to an website biblioitem.


Index: updatebibitem.pl
===================================================================
RCS file: /cvsroot/koha/koha/updatebibitem.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** updatebibitem.pl	12 May 2002 18:08:19 -0000	1.5
--- updatebibitem.pl	13 May 2002 00:45:46 -0000	1.6
***************
*** 18,21 ****
--- 18,27 ----
  my $publicationdate = checkinp($input->param('Publication'));
  my $class           = checkinp($input->param('Class'));
+ my $illus           = checkinp($input->param('Illustrations'));
+ my $pages           = checkinp($input->param('Pages'));
+ my $volumeddesc     = checkinp($input->param('Volume'));
+ my $notes           = checkinp($input->param('Notes'));
+ my $size            = checkinp($input->param('Size'));
+ my $place           = checkinp($input->param('Place'));
  my $classification;
  my $dewey;
***************
*** 43,52 ****
  } # else
  
- my $illus       = checkinp($input->param('Illustrations'));
- my $pages       = checkinp($input->param('Pages'));
- my $volumeddesc = checkinp($input->param('Volume'));
- my $notes       = checkinp($input->param('Notes'));
- my $size        = checkinp($input->param('Size'));
- my $place       = checkinp($input->param('Place'));
  my (@items) = &itemissues($bibitemnum);
  my $count   = @items;
--- 49,52 ----
***************
*** 112,115 ****
--- 112,116 ----
  	  biblioitemnumber => $bibitemnum,
  	  itemtype         => $itemtype?$itemtype:"",
+ 	  url              => $url?$url:"",
  	  isbn             => $isbn?$isbn:"",
  	  publishercode    => $publishercode?$publishercode:"",
***************
*** 135,139 ****
  	}
        
!    }
  }
  print $input->redirect("moredetail.pl?type=intra&bib=$bibnum&bi=$bibitemnum");
--- 136,157 ----
  	}
        
!    } else {
!      &modbibitem({
!          biblioitemnumber => $bibitemnum,
! 	 itemtype         => $itemtype?$itemtype:"",
! 	 url              => $url?$url:"",
! 	 isbn             => $isbn?$isbn:"",
! 	 publishercode    => $publishercode?$publishercode:"",
!          publicationyear  => $publicationdate?$publicationdate:"",
!          classification   => $classification?$classification:"",
!          dewey            => $dewey?$dewey:"",
!          subclass         => $subclass?$subclass:"",
!          illus            => $illus?$illus:"",
!          pages            => $pages?$pages:"",
!          volumeddesc      => $volumeddesc?$volumeddesc:"",
!          notes            => $notes?$notes:"",
!          size             => $size?$size:"",
!          place            => $place?$place:"" });
!    } # else
  }
  print $input->redirect("moredetail.pl?type=intra&bib=$bibnum&bi=$bibitemnum");