From 8a49736d9519da9771f05167bf5b71264d23abb2 Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Fri, 23 Sep 2005 11:10:44 +0000
Subject: [PATCH] * removing warnings * if a subfield is alone, don't show it's
 label, the field name is enough

---
 MARCdetail.pl | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/MARCdetail.pl b/MARCdetail.pl
index c0867da988..b111d7b5ad 100755
--- a/MARCdetail.pl
+++ b/MARCdetail.pl
@@ -72,7 +72,6 @@ $bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblionumber) unless $bi
 $biblionumber = &MARCfind_oldbiblionumber_from_MARCbibid($dbh,$bibid) unless $biblionumber;
 $itemtype = &MARCfind_frameworkcode($dbh,$bibid) if not ($itemtype);
 $itemtype = '' if ($itemtype eq 'Default');
-warn "itemtype :".$itemtype;
 
 my $tagslib = &MARCgettagslib($dbh,1,$itemtype);
 
@@ -100,7 +99,6 @@ while (my ($description, $fwk) =$queryfwk->fetchrow) {
 	$select_fwk{$fwk} = $description;
 }
 $curfwk=$itemtype;
-warn "current fwk :".$curfwk ;
 my $framework=CGI::scrolling_list( -name     => 'Frameworks',
 			-id => 'Frameworks',
 			-default => $curfwk,
@@ -159,6 +157,10 @@ for (my $tabloop = 0; $tabloop<=10;$tabloop++) {
 				push(@subfields_data, \%subfield_data);
 			}
 		}
+		if ($#subfields_data==0) {
+			$subfields_data[0]->{marc_lib}='';
+			$subfields_data[0]->{marc_subfield}='';
+		}
 		if ($#subfields_data>=0) {
 			my %tag_data;
 			if ($fields[$x_i]->tag() eq $fields[$x_i-1]->tag()) {
-- 
2.39.5