[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha MARCdetail.pl,1.25.2.10,1.25.2.11
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha MARCdetail.pl,1.25.2.10,1.25.2.11 |
Date: |
Fri, 23 Sep 2005 04:10:46 -0700 |
Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17986
Modified Files:
Tag: rel_2_2
MARCdetail.pl
Log Message:
* removing warnings
* if a subfield is alone, don't show it's label, the field name is enough
Index: MARCdetail.pl
===================================================================
RCS file: /cvsroot/koha/koha/MARCdetail.pl,v
retrieving revision 1.25.2.10
retrieving revision 1.25.2.11
diff -C2 -r1.25.2.10 -r1.25.2.11
*** MARCdetail.pl 27 Jun 2005 23:24:08 -0000 1.25.2.10
--- MARCdetail.pl 23 Sep 2005 11:10:44 -0000 1.25.2.11
***************
*** 73,77 ****
$itemtype = &MARCfind_frameworkcode($dbh,$bibid) if not ($itemtype);
$itemtype = '' if ($itemtype eq 'Default');
- warn "itemtype :".$itemtype;
my $tagslib = &MARCgettagslib($dbh,1,$itemtype);
--- 73,76 ----
***************
*** 101,105 ****
}
$curfwk=$itemtype;
- warn "current fwk :".$curfwk ;
my $framework=CGI::scrolling_list( -name => 'Frameworks',
-id => 'Frameworks',
--- 100,103 ----
***************
*** 160,163 ****
--- 158,165 ----
}
}
+ if ($#subfields_data==0) {
+ $subfields_data[0]->{marc_lib}='';
+ $subfields_data[0]->{marc_subfield}='';
+ }
if ($#subfields_data>=0) {
my %tag_data;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha MARCdetail.pl,1.25.2.10,1.25.2.11,
Paul POULAIN <=