[Koha-cvs] CVS: koha updatebiblio.pl,1.1.1.1.2.2,1.1.1.1.2.3

[Paul POULAIN]

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

Modified Files:
      Tag: rel-1-2
        updatebiblio.pl 
Log Message:
merging 1.2 and main. Only cosmetic changes (comments, spaces...)


Index: updatebiblio.pl
===================================================================
RCS file: /cvsroot/koha/koha/updatebiblio.pl,v
retrieving revision 1.1.1.1.2.2
retrieving revision 1.1.1.1.2.3
diff -C2 -r1.1.1.1.2.2 -r1.1.1.1.2.3
*** updatebiblio.pl     25 Jun 2002 20:20:58 -0000      1.1.1.1.2.2
--- updatebiblio.pl     28 Jun 2002 12:20:28 -0000      1.1.1.1.2.3
***************
*** 46,71 ****
  
  if ($error ne ''){
!   print $input->header;
!   print startpage();
!   print startmenu('catalogue');
!   print $error;
!   my @subs=split('\n',$error);
!   print "<p> Click submit to force the subject";
!   my @names=$input->param;
!   my %data;
!   my address@hidden;
!   for (my $i=0;$i<$count;$i++){
!     if ($names[$i] ne 'Force'){
!       my $value=$input->param("$names[$i]");
!       $data{$names[$i]}="hidden\t$value\t$i";
!     }
!   }
!   $data{"Force"}="hidden\t$subs[0]\t$count";
!   print mkform3('updatebiblio.pl',%data);
!   print endmenu();
!   print endpage();
  } else {
!   print $input->redirect("detail.pl?type=intra&bib=$bibnum");
! }
  
  sub checkinp{
--- 46,71 ----
  
  if ($error ne ''){
!     print $input->header;
!     print startpage();
!     print startmenu('catalogue');
!     print $error;
!     my @subs=split('\n',$error);
!     print "<p> Click submit to force the subject";
!     my @names=$input->param;
!     my %data;
!     my address@hidden;
!     for (my $i=0;$i<$count;$i++) {
!       if ($names[$i] ne 'Force') {
!           my $value=$input->param("$names[$i]");
!           $data{$names[$i]}="hidden\t$value\t$i";
!       } # if
!     } # for
!     $data{"Force"}="hidden\t$subs[0]\t$count";
!     print mkform3('updatebiblio.pl',%data);
!     print endmenu();
!     print endpage();
  } else {
!     print $input->redirect("detail.pl?type=intra&bib=$bibnum");
! } # else
  
  sub checkinp{