From a3c6a0277363f593c2f0c7416622d46b78044735 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Wed, 19 Jan 2005 17:17:08 +0000
Subject: [PATCH] fix for #902 (it's impossible to set the subfield 400$0)

---
 admin/auth_subfields_structure.pl | 2 +-
 admin/marc_subfields_structure.pl | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/admin/auth_subfields_structure.pl b/admin/auth_subfields_structure.pl
index 9b639d5a84..a172c25dd3 100755
--- a/admin/auth_subfields_structure.pl
+++ b/admin/auth_subfields_structure.pl
@@ -199,7 +199,7 @@ if ($op eq 'add_form') {
 	for (my $i=0; $i<= $#tagsubfield ; $i++) {
 		my $tagfield			=$input->param('tagfield');
 		my $tagsubfield		=$tagsubfield[$i];
-		$tagsubfield="@" unless $tagsubfield;
+		$tagsubfield="@" unless $tagsubfield ne '';
 		my $liblibrarian		=$liblibrarian[$i];
 		my $libopac			=$libopac[$i];
 		my $repeatable		=$input->param("repeatable$i")?1:0;
diff --git a/admin/marc_subfields_structure.pl b/admin/marc_subfields_structure.pl
index 128575d064..0e45d12907 100755
--- a/admin/marc_subfields_structure.pl
+++ b/admin/marc_subfields_structure.pl
@@ -281,7 +281,7 @@ if ($op eq 'add_form') {
 	for (my $i=0; $i<= $#tagsubfield ; $i++) {
 		my $tagfield			=$input->param('tagfield');
 		my $tagsubfield		=$tagsubfield[$i];
-		$tagsubfield="@" unless $tagsubfield;
+		$tagsubfield="@" unless $tagsubfield ne '';
 		my $liblibrarian		=$liblibrarian[$i];
 		my $libopac			=$libopac[$i];
 		my $repeatable		=$input->param("repeatable$i")?1:0;
-- 
2.39.5