[Koha-cvs] CVS: koha/acqui.simple addbooks.pl,1.6,1.7 savebiblioitem.pl,1.3,1.4

[Gynn Lomax]

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

Modified Files:
	addbooks.pl savebiblioitem.pl 
Log Message:
Added code to allow deleting of biblioitems


Index: addbooks.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/addbooks.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -r1.6 -r1.7
*** addbooks.pl	29 Apr 2002 05:25:41 -0000	1.6
--- addbooks.pl	14 May 2002 04:12:52 -0000	1.7
***************
*** 12,16 ****
  
  my $input = new CGI;
! my $error = $input->param('error');
  
  print $input->header;
--- 12,17 ----
  
  my $input = new CGI;
! my $error   = $input->param('error');
! my $success = $input->param('biblioitem');
  
  print $input->header;
***************
*** 34,38 ****
  <p />
  EOF
!     } # if
  
      print << "EOF";
--- 35,44 ----
  <p />
  EOF
!     } elsif ($success eq "added") {
! 	print << "EOF";
! <font color="red" size="5">Website Biblioitem Added</font>
! <p />
! EOF
!     } # elsif
  
      print << "EOF";

Index: savebiblioitem.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/savebiblioitem.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** savebiblioitem.pl	6 May 2002 02:47:49 -0000	1.3
--- savebiblioitem.pl	14 May 2002 04:12:52 -0000	1.4
***************
*** 36,40 ****
  
      $biblioitemnum = &newbiblioitem($biblioitem);
! 
!     print $input->redirect("additem.pl?biblioitemnum=$biblioitemnum");
  } # else
--- 36,44 ----
  
      $biblioitemnum = &newbiblioitem($biblioitem);
!     
!     if ($input->param('itemtype') eq "WEB") {
! 	print $input->redirect("addbooks.pl?biblioitem=added");
!     } else {
! 	print $input->redirect("additem.pl?biblioitemnum=$biblioitemnum");
!     } # else
  } # else