[Koha-cvs] CVS: koha/C4 Biblio.pm,1.115.2.13,1.115.2.14

[Henri-Damien LAURENT]

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

Modified Files:
      Tag: rel_2_2
        Biblio.pm 
Log Message:
Display dashed ISBN


Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.115.2.13
retrieving revision 1.115.2.14
diff -C2 -r1.115.2.13 -r1.115.2.14
*** Biblio.pm   31 May 2005 12:44:26 -0000      1.115.2.13
--- Biblio.pm   27 Jun 2005 23:24:06 -0000      1.115.2.14
***************
*** 72,75 ****
--- 72,76 ----
    
    &FindDuplicate
+   &DisplayISBN
  );
  
***************
*** 2630,2633 ****
--- 2631,2671 ----
  }
  
+ sub DisplayISBN {
+       my ($isbn)address@hidden;
+       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)
  
***************
*** 2644,2647 ****
--- 2682,2688 ----
  # $Id$
  # $Log$
+ # Revision 1.115.2.14  2005/06/27 23:24:06  hdl
+ # Display dashed ISBN
+ #
  # Revision 1.115.2.13  2005/05/31 12:44:26  tipaul
  # patch from Genji (Waylon R.) to update subjects in MARC tables when 
systempref has MARC=OFF