[Koha-cvs] CVS: koha/acqui.simple marcimport.pl,1.17,1.18

[Paul POULAIN]

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

Modified Files:
        marcimport.pl 
Log Message:
merging arens + my modifs/bugfixes

Index: marcimport.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/marcimport.pl,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -r1.17 -r1.18
*** marcimport.pl       13 Oct 2002 07:39:26 -0000      1.17
--- marcimport.pl       14 Oct 2002 07:41:04 -0000      1.18
***************
*** 248,252 ****
  
      my $template=gettemplate('marcimport/ListFileRecords.tmpl');
- 
      # File can be z3950 search query or uploaded MARC data
  
--- 248,251 ----
***************
*** 745,750 ****
      my $numrecord = $input->param('numrecord');
      if ($numrecord) {
!       for (my $i==1;$i<$numrecord;$i++) {
!               # FIXME - This "==" was supposed to be a "=", right?
            $record=$file->next;
        }
--- 744,748 ----
      my $numrecord = $input->param('numrecord');
      if ($numrecord) {
!       for (my $i=1;$i<$numrecord;$i++) {
            $record=$file->next;
        }
***************
*** 999,1002 ****
--- 997,1003 ----
  #---------------
  # $Log$
+ # Revision 1.18  2002/10/14 07:41:04  tipaul
+ # merging arens + my modifs/bugfixes
+ #
  # Revision 1.17  2002/10/13 07:39:26  arensb
  # Added magic RCS comment.