[Koha-cvs] koha/C4 Biblio.pm

[Henri-Damien LAURENT]

CVSROOT:        /cvsroot/koha
Module name:    koha
Changes by:     Henri-Damien LAURENT <hdl>      07/07/20 15:43:16

Modified files:
        C4             : Biblio.pm 

Log message:
        Bug Fixing GetMarcSubjects.
        Links parameters were mixed.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/C4/Biblio.pm?cvsroot=koha&r1=1.219&r2=1.220

Patches:
Index: Biblio.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Biblio.pm,v
retrieving revision 1.219
retrieving revision 1.220
diff -u -b -r1.219 -r1.220
--- Biblio.pm   20 Jul 2007 14:02:57 -0000      1.219
+++ Biblio.pm   20 Jul 2007 15:43:16 -0000      1.220
@@ -33,7 +33,7 @@
 use vars qw($VERSION @ISA @EXPORT);
 
 # set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.219 $' =~ /\d+/g; shift(@v).".".join( 
"_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = do { my @v = '$Revision: 1.220 $' =~ /\d+/g; shift(@v).".".join( 
"_", map { sprintf "%03d", $_ } @v ); };
 
 @ISA = qw( Exporter );
 
@@ -1750,9 +1750,9 @@
             }
             my $code = $subject_subfield->[0];
             $label .= $subject_subfield->[1].$authoritysep unless ( $code == 9 
);
-            $link  .= $subject_subfield->[1] . " and su-to:" unless ( $code == 
9 );
+            $link  .= " and su-to:".$subject_subfield->[1]  unless ( $code == 
9 );
             if ( $code == 9 ) {
-                $link = "Koha-Auth-Number:".$subject_subfield->[1];
+                $link = "an:".$subject_subfield->[1];
                 $flag = 1;
             }
             elsif ( ! $flag ) {
@@ -3957,10 +3957,11 @@
 
 =cut
 
-# $Id: Biblio.pm,v 1.219 2007/07/20 14:02:57 hdl Exp $
+# $Id: Biblio.pm,v 1.220 2007/07/20 15:43:16 hdl Exp $
 # $Log: Biblio.pm,v $
-# Revision 1.219  2007/07/20 14:02:57  hdl
-# Adding biblio.biblionumber to GetItemsfor Inventory
+# Revision 1.220  2007/07/20 15:43:16  hdl
+# Bug Fixing GetMarcSubjects.
+# Links parameters were mixed.
 #
 # Revision 1.218  2007/07/19 07:40:08  hdl
 # Adding selection by location for inventory