[Koha-cvs] koha/C4 Biblio.pm [rel_3_0]

[Antoine Farnault]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         rel_3_0
Changes by:     Antoine Farnault <toins>        06/10/16 16:20:34

Modified files:
        C4             : Biblio.pm 

Log message:
        MARCgetbiblio cleaned up.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Biblio.pm?cvsroot=koha&only_with_tag=rel_3_0&r1=1.178.2.15&r2=1.178.2.16

Patches:
Index: Biblio.pm
===================================================================
RCS file: /sources/koha/koha/C4/Biblio.pm,v
retrieving revision 1.178.2.15
retrieving revision 1.178.2.16
diff -u -b -r1.178.2.15 -r1.178.2.16
--- Biblio.pm   11 Oct 2006 14:26:56 -0000      1.178.2.15
+++ Biblio.pm   16 Oct 2006 16:20:34 -0000      1.178.2.16
@@ -817,26 +817,10 @@
        my $sth=$dbh->prepare("select marcxml from biblioitems where 
biblionumber=? "  );
     $sth->execute($bibid);
     my ($marcxml)=$sth->fetchrow;
-#     warn " XML : $marcxml";
     my $record = MARC::Record->new();
     $record = MARC::Record::new_from_xml( 
$marcxml,"utf8",C4::Context->preference('marcflavour')) if $marcxml;
-#     warn "record dans Biblio.pm ".$record->as_formatted;
        return $record;
 }
-############OLD VERSION HERE###############################################
-#    # Returns MARC::Record of the biblio passed in parameter.
-#sub MARCgetbiblio {
-#    my ( $dbh, $bibid ) = @_;
-#      my $dbh = C4::Context->dbh;
-#    my $sth = $dbh->prepare("select marcxml from biblioitems where 
biblionumber=? ");
-#    $sth->execute($bibid);
-#      my ($marc)=$sth->fetchrow;
-#      my $record = MARC::File::USMARC::decode($marc);
-#      warn "=>".$record->as_formatted;
-#      return $record;
-#}
-#
-#############################################################################
 
 sub XMLgetbiblio {
 
@@ -3839,8 +3823,11 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.178.2.15 2006/10/11 14:26:56 tipaul Exp $
+# $Id: Biblio.pm,v 1.178.2.16 2006/10/16 16:20:34 toins Exp $
 # $Log: Biblio.pm,v $
+# Revision 1.178.2.16  2006/10/16 16:20:34  toins
+# MARCgetbiblio cleaned up.
+#
 # Revision 1.178.2.15  2006/10/11 14:26:56  tipaul
 # handling of UNIMARC :
 # - better management of field 100 = automatic creation of the field if needed 
& filling encoding to unicode.