[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();
  	}