[Koha-cvs] CVS: koha/export marc.pl,1.1,1.2

[Paul POULAIN]

Update of /cvsroot/koha/koha/export
In directory sc8-pr-cvs1:/tmp/cvs-serv28924/export

Modified Files:
        marc.pl 
Log Message:
removes warning

Index: marc.pl
===================================================================
RCS file: /cvsroot/koha/koha/export/marc.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** marc.pl     13 Dec 2002 16:24:16 -0000      1.1
--- marc.pl     6 Nov 2003 15:14:57 -0000       1.2
***************
*** 25,31 ****
        $sth->execute;
        while (my ($bibid) = $sth->fetchrow) {
-               warn "getting : $bibid";
                my $record = MARCgetbiblio($dbh,$bibid);
!               warn $record->as_formatted();
                print $record->as_usmarc();
        }
--- 25,30 ----
        $sth->execute;
        while (my ($bibid) = $sth->fetchrow) {
                my $record = MARCgetbiblio($dbh,$bibid);
! 
                print $record->as_usmarc();
        }