X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=C4%2FRis.pm;h=dc86353ab634dc558163d3d75759fc75ceea8461;hb=5d4d33b22d72e16a4f6a4579ea4c2d98dfa091ab;hp=085b09cf51eb861fd0ca5b038eef862a577c986b;hpb=16f1fffdd1f5d1c97db0bf664f83496864b7e24d;p=koha_gimpoz

diff --git a/C4/Ris.pm b/C4/Ris.pm
index 085b09cf51..dc86353ab6 100644
--- a/C4/Ris.pm
+++ b/C4/Ris.pm
@@ -60,7 +60,7 @@ package C4::Ris;
 #
 
 #use strict;
-#use warnings; FIXME - Bug 2505
+#use warnings;
 
 use vars qw($VERSION @ISA @EXPORT);
 
@@ -763,7 +763,7 @@ sub get_keywords {
     my @subfields = ('a', 'b', 'c', 'd', 'e', 'f', 'g', 'h', 'j', 'k', 'l', 'm', 'n', 'o', 'p', 'q', 'r', 's', 't', 'u', 'v', 'x', 'y', 'z', '2', '3', '4');
 
     ## loop over all 6XX fields
-    foreach $kwfield (@keywords) {
+    foreach my $kwfield (@keywords) {
 	if ($kwfield != undef) {
 	    ## authornames get special treatment
 	    if ($fieldname eq "600") {
@@ -776,9 +776,9 @@ sub get_keywords {
 		@kwsubfields = $kwfield->subfields();
 		
 		## loop over all available subfield tuples
-		foreach $kwtuple (@kwsubfields) {
+        foreach my $kwtuple (@kwsubfields) {
 		    ## loop over all subfields to check
-		    foreach $subfield (@subfields) {
+            foreach my $subfield (@subfields) {
 			## [0] contains subfield code
 			if (@$kwtuple[0] eq $subfield) {
 			    ## [1] contains value, remove trailing separators
@@ -886,15 +886,15 @@ sub pool_subx {
     }
 
     ## loop over all notefields
-    foreach $notefield (@notefields) {
+    foreach my $notefield (@notefields) {
 	if ($notefield != undef) {
 	    ## retrieve all available subfield tuples
 	    @notesubfields = $notefield->subfields();
 
 	    ## loop over all subfield tuples
-	    foreach $notetuple (@notesubfields) {
+        foreach my $notetuple (@notesubfields) {
 		## loop over all subfields to check
-		foreach $subfield (@subfields) {
+        foreach my $subfield (@subfields) {
 		    ## [0] contains subfield code
 		    if (@$notetuple[0] eq $subfield) {
 			## [1] contains value, remove trailing separators
@@ -927,20 +927,20 @@ sub print_abstract {
     my @abstrings;
 
     ## loop over all abfields
-    foreach $abfield (@abfields) {
-	foreach $field (@subfields) { 
-	    if (length ($abfield->subfield($field)) > 0) {
-		my $ab = $abfield->subfield($field);
+    foreach my $abfield (@abfields) {
+        foreach my $field (@subfields) {
+            if ( length( $abfield->subfield($field) ) > 0 ) {
+                my $ab = $abfield->subfield($field);
 
-		print "<marc>field 520 subfield $field: $ab\r\n" if $marcprint;
+                print "<marc>field 520 subfield $field: $ab\r\n" if $marcprint;
 
-		## strip trailing separators
-		$ab =~ s% *[;,:./]*$%%;
+                ## strip trailing separators
+                $ab =~ s% *[;,:./]*$%%;
 
-		## add string to the list
-		push (@abstrings, $ab);
-	    }
-	}
+                ## add string to the list
+                push( @abstrings, $ab );
+            }
+        }
     }
 
     my $allabs = join "; ", @abstrings;