[Koha-cvs] CVS: koha/C4 Biblio.pm,1.30,1.31

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv28516

Modified Files:
        Biblio.pm 
Log Message:
1st draft of marc export

Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.30
retrieving revision 1.31
diff -C2 -r1.30 -r1.31
*** Biblio.pm   12 Dec 2002 21:26:35 -0000      1.30
--- Biblio.pm   13 Dec 2002 16:22:04 -0000      1.31
***************
*** 2,5 ****
--- 2,8 ----
  # $Id$
  # $Log$
+ # Revision 1.31  2002/12/13 16:22:04  tipaul
+ # 1st draft of marc export
+ #
  # Revision 1.30  2002/12/12 21:26:35  tipaul
  # YAB ! (Yet Another Bugfix) => related to biblio modif
***************
*** 535,538 ****
--- 538,542 ----
      my $record = MARC::Record->new();
  #---- TODO : the leader is missing
+       $record->leader('                   ');
      my $sth=$dbh->prepare("select 
bibid,subfieldid,tag,tagorder,tag_indicator,subfieldcode,subfieldorder,subfieldvalue,valuebloblink
                                 from marc_subfield_table