koha-cvs
[Top][All Lists]
Advanced

[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;




reply via email to

[Prev in Thread] Current Thread [Next in Thread]