debugify a warn

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>

diff --git a/C4/Labels/Label.pm b/C4/Labels/Label.pm
index 26bdcf5..9cf5026 100644 (file)
--- a/C4/Labels/Label.pm
+++ b/C4/Labels/Label.pm
@@ -205,9 +205,8 @@ sub _get_barcode_data {
         elsif ( $f =~ /^($match_kohatable).*/ ) {
             if ($item->{$f}) {
                 $datastring .= $item->{$f};
-            }
-            else {
-                warn sprintf("The '%s' field contains no data.", $f);
+            } else {
+                $debug and warn sprintf("The '%s' field contains no data.", $f);
             }
             $f = $';
             next FIELD_LIST;