[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 $count=@names;
!   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 $count=@names;
!     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{