[Koha-cvs] CVS: koha/acqui.simple savebiblio.pl,1.9,1.10

[Chris Cormack]

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

Modified Files:
        savebiblio.pl 
Log Message:
Subjects and additional authors now added at this point


Index: savebiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/savebiblio.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -r1.9 -r1.10
*** savebiblio.pl       27 May 2004 21:30:34 -0000      1.9
--- savebiblio.pl       26 Jun 2004 23:45:46 -0000      1.10
***************
*** 1,5 ****
  #!/usr/bin/perl
  
- 
  # Copyright 2000-2002 Katipo Communications
  #
--- 1,4 ----
***************
*** 24,46 ****
  use C4::Biblio;
  
! my $input = new CGI;
  my $biblio = {
!     title       => $input->param('title'),
!     subtitle    => $input->param('subtitle')?$input->param('subtitle'):"",
!     author      => $input->param('author')?$input->param('author'):"",
!     seriestitle => 
$input->param('seriestitle')?$input->param('seriestitle'):"",
!     copyrightdate   => 
$input->param('copyrightdate')?$input->param('copyrightdate'):"",
!     abstract    => $input->param('abstract')?$input->param('abstract'):"",
!     notes       => $input->param('notes')?$input->param('notes'):""
! }; # my $biblio
  my $biblionumber;
  
! if (! $biblio->{'title'}) {
      print $input->redirect('addbiblio-nomarc.pl?error=notitle');
! } else {
! 
      $biblionumber = &newbiblio($biblio);
!     &newsubtitle($biblionumber, $biblio->{'subtitle'});
! 
      print $input->redirect("additem-nomarc.pl?biblionumber=$biblionumber");
! } # else
--- 23,55 ----
  use C4::Biblio;
  
! my $input  = new CGI;
  my $biblio = {
!     title    => $input->param('title'),
!     subtitle => $input->param('subtitle') ? $input->param('subtitle') : "",
!     author   => $input->param('author') ? $input->param('author') : "",
!     seriestitle => $input->param('seriestitle') ? $input->param('seriestitle')
!     : "",
!     copyrightdate => $input->param('copyrightdate')
!     ? $input->param('copyrightdate')
!     : "",
!     abstract => $input->param('abstract') ? $input->param('abstract') : "",
!     notes    => $input->param('notes')    ? $input->param('notes')    : ""
! };    # my $biblio
! 
! my $subjectheadings = $input->param('subjectheadings');
! my @subjects = split ( /\n/, $subjectheadings );
  my $biblionumber;
+ my $aauthors = $input->param('additionalauthors');
+ my @authors  = split ( /\n/, $aauthors );
+ my $force    = $input->param('force');
  
! if ( !$biblio->{'title'} ) {
      print $input->redirect('addbiblio-nomarc.pl?error=notitle');
! }
! else {
      $biblionumber = &newbiblio($biblio);
!     &newsubtitle( $biblionumber, $biblio->{'subtitle'} );
!     my $error = modsubject( $biblionumber, 1, @subjects );
!     modaddauthor( $biblionumber, @authors );
      print $input->redirect("additem-nomarc.pl?biblionumber=$biblionumber");
! }    # else