[Koha-cvs] CVS: koha modbib.pl,1.4,1.5

[Paul POULAIN]

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

Modified Files:
        modbib.pl 
Log Message:
merging 1.2 and main. Diffs are due to new features.


Index: modbib.pl
===================================================================
RCS file: /cvsroot/koha/koha/modbib.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** modbib.pl   14 May 2002 11:26:09 -0000      1.4
--- modbib.pl   28 Jun 2002 12:07:16 -0000      1.5
***************
*** 13,19 ****
  my $input = new CGI;
  
! my $submit = $input->param('submit.x');
! my $bibnum = $input->param('bibnum');
! my $data   = &bibdata($bibnum);
  my ($subjectcount, $subject)     = &subject($data->{'biblionumber'});
  my ($subtitlecount, $subtitle)   = &subtitle($data->{'biblionumber'});
--- 13,18 ----
  my $input = new CGI;
  
! my $bibnum=$input->param('bibnum');
! my $data=&bibdata($bibnum);
  my ($subjectcount, $subject)     = &subject($data->{'biblionumber'});
  my ($subtitlecount, $subtitle)   = &subtitle($data->{'biblionumber'});
***************
*** 23,27 ****
  my %inputs;
  my $dewey;
! 
  if ($submit eq '') {
    print $input->redirect("/cgi-bin/koha/delbiblio.pl?biblio=$bibnum");
--- 22,26 ----
  my %inputs;
  my $dewey;
! my $submit=$input->param('submit.x');                                         
                                                     
  if ($submit eq '') {
    print $input->redirect("/cgi-bin/koha/delbiblio.pl?biblio=$bibnum");
***************
*** 32,36 ****
  # my ($analyticauthor) = &analytic($biblionumber,'a');
  print startpage();
! print startmenu();
  
  # have to get all subtitles, subjects and additional authors
--- 31,36 ----
  # my ($analyticauthor) = &analytic($biblionumber,'a');
  print startpage();
! print startmenu('catalogue');
! my %inputs;
  
  # have to get all subtitles, subjects and additional authors