From 3b6f7a6d06e71662f4d5736383cbf584230694e7 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Tue, 14 Jan 2003 16:45:33 +0000
Subject: [PATCH] little improvments (mandatory subfields in item appear red if
 not filled)

---
 acqui.simple/additem.pl | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/acqui.simple/additem.pl b/acqui.simple/additem.pl
index a7da12c36b..cceac85c3b 100755
--- a/acqui.simple/additem.pl
+++ b/acqui.simple/additem.pl
@@ -171,9 +171,10 @@ foreach my $tag (sort keys %{$tagslib}) {
 		my %subfield_data;
 		$subfield_data{tag}=$tag;
 		$subfield_data{subfield}=$subfield;
-		$subfield_data{marc_lib}=$tagslib->{$tag}->{$subfield}->{lib};
-		$subfield_data{marc_mandatory}=$tagslib->{$tag}->{$subfield}->{mandatory};
-		$subfield_data{marc_repeatable}=$tagslib->{$tag}->{$subfield}->{repeatable};
+#		$subfield_data{marc_lib}=$tagslib->{$tag}->{$subfield}->{lib};
+		$subfield_data{marc_lib}="<DIV id=\"error$i\">".$tagslib->{$tag}->{$subfield}->{lib}."</div>";
+		$subfield_data{mandatory}=$tagslib->{$tag}->{$subfield}->{mandatory};
+		$subfield_data{repeatable}=$tagslib->{$tag}->{$subfield}->{repeatable};
 		my ($x,$value);
 		($x,$value) = find_value($tag,$subfield,$itemrecord) if ($itemrecord);
 		if ($tagslib->{$tag}->{$subfield}->{authorised_value}) {
-- 
2.39.5