[Koha-cvs] CVS: koha MARCdetail.pl,1.25.2.10,1.25.2.11

Paul POULAIN tipaul at users.sourceforge.net
Fri Sep 23 13:10:46 CEST 2005


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;





More information about the Koha-cvs mailing list