[Koha-cvs] CVS: koha/C4 Biblio.pm,1.119,1.120

[Henri-Damien LAURENT]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv23328/C4

Modified Files:
	Biblio.pm 
Log Message:
Displaying dashed isbn.

Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.119
retrieving revision 1.120
diff -C2 -r1.119 -r1.120
*** Biblio.pm	1 Jun 2005 20:43:58 -0000	1.119
--- Biblio.pm	15 Jun 2005 16:09:43 -0000	1.120
***************
*** 71,74 ****
--- 71,75 ----
    
    &FindDuplicate
+   &DisplayISBN
  );
  
***************
*** 476,479 ****
--- 477,481 ----
      my ( $dbh, $bibid ) = @_;
      my $record = MARC::Record->new();
+ #	warn "". $bidid;
  
      #---- TODO : the leader is missing
***************
*** 2621,2625 ****
  	return;
  }
! 
  END { }    # module clean-up code here (global destructor)
  
--- 2623,2661 ----
  	return;
  }
! sub DisplayISBN {
! 	my ($isbn)=@_;
! 	my $seg1;
! 	if(substr($isbn, 0, 1) <=7) {
! 		$seg1 = substr($isbn, 0, 1);
! 	} elsif(substr($isbn, 0, 2) <= 94) {
! 		$seg1 = substr($isbn, 0, 2);
! 	} elsif(substr($isbn, 0, 3) <= 995) {
! 		$seg1 = substr($isbn, 0, 3);
! 	} elsif(substr($isbn, 0, 4) <= 9989) {
! 		$seg1 = substr($isbn, 0, 4);
! 	} else {
! 		$seg1 = substr($isbn, 0, 5);
! 	}
! 	my $x = substr($isbn, length($seg1));
! 	my $seg2;
! 	if(substr($x, 0, 2) <= 19) {
! # 		if(sTmp2 < 10) sTmp2 = "0" sTmp2;
! 		$seg2 = substr($x, 0, 2);
! 	} elsif(substr($x, 0, 3) <= 699) {
! 		$seg2 = substr($x, 0, 3);
! 	} elsif(substr($x, 0, 4) <= 8399) {
! 		$seg2 = substr($x, 0, 4);
! 	} elsif(substr($x, 0, 5) <= 89999) {
! 		$seg2 = substr($x, 0, 5);
! 	} elsif(substr($x, 0, 6) <= 9499999) {
! 		$seg2 = substr($x, 0, 6);
! 	} else {
! 		$seg2 = substr($x, 0, 7);
! 	}
! 	my $seg3=substr($x,length($seg2));
! 	$seg3=substr($seg3,0,length($seg3)-1) ;
! 	my $seg4 = substr($x, -1, 1);
! 	return "$seg1-$seg2-$seg3-$seg4";
! }
  END { }    # module clean-up code here (global destructor)
  
***************
*** 2636,2639 ****
--- 2672,2678 ----
  # $Id$
  # $Log$
+ # Revision 1.120  2005/06/15 16:09:43  hdl
+ # Displaying dashed isbn.
+ #
  # Revision 1.119  2005/06/01 20:43:58  genjimoto
  # patch from Genji (Waylon R.) to update subjects in MARC tables when systempref has MARC=OFF