koha-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Koha-cvs] CVS: koha/admin auth_subfields_structure.pl,1.3,1.3.2.1 marc_


From: Paul POULAIN
Subject: [Koha-cvs] CVS: koha/admin auth_subfields_structure.pl,1.3,1.3.2.1 marc_subfields_structure.pl,1.32,1.32.2.1
Date: Wed, 19 Jan 2005 09:17:32 -0800

Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24771/admin

Modified Files:
      Tag: rel_2_2
        auth_subfields_structure.pl marc_subfields_structure.pl 
Log Message:
fix for #902 (it's impossible to set the subfield 400$0)

Index: auth_subfields_structure.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/auth_subfields_structure.pl,v
retrieving revision 1.3
retrieving revision 1.3.2.1
diff -C2 -r1.3 -r1.3.2.1
*** auth_subfields_structure.pl 10 Jun 2004 08:58:34 -0000      1.3
--- auth_subfields_structure.pl 19 Jan 2005 17:17:08 -0000      1.3.2.1
***************
*** 200,204 ****
                my $tagfield                    =$input->param('tagfield');
                my $tagsubfield         =$tagsubfield[$i];
!               $tagsubfield="@" unless $tagsubfield;
                my $liblibrarian                =$liblibrarian[$i];
                my $libopac                     =$libopac[$i];
--- 200,204 ----
                my $tagfield                    =$input->param('tagfield');
                my $tagsubfield         =$tagsubfield[$i];
!               $tagsubfield="@" unless $tagsubfield ne '';
                my $liblibrarian                =$liblibrarian[$i];
                my $libopac                     =$libopac[$i];

Index: marc_subfields_structure.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/marc_subfields_structure.pl,v
retrieving revision 1.32
retrieving revision 1.32.2.1
diff -C2 -r1.32 -r1.32.2.1
*** marc_subfields_structure.pl 3 Jan 2005 12:56:30 -0000       1.32
--- marc_subfields_structure.pl 19 Jan 2005 17:17:10 -0000      1.32.2.1
***************
*** 282,286 ****
                my $tagfield                    =$input->param('tagfield');
                my $tagsubfield         =$tagsubfield[$i];
!               $tagsubfield="@" unless $tagsubfield;
                my $liblibrarian                =$liblibrarian[$i];
                my $libopac                     =$libopac[$i];
--- 282,286 ----
                my $tagfield                    =$input->param('tagfield');
                my $tagsubfield         =$tagsubfield[$i];
!               $tagsubfield="@" unless $tagsubfield ne '';
                my $liblibrarian                =$liblibrarian[$i];
                my $libopac                     =$libopac[$i];




reply via email to

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