[Top][All Lists]
[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];
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [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,
Paul POULAIN <=
- Prev by Date:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/npl/en/parameters auth_subfields_structure.tmpl,NONE,1.1 auth_tag_structure.tmpl,NONE,1.1 authtypes.tmpl,NONE,1.1
- Next by Date:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/default/en/parameters categorie.tmpl,1.22,1.22.2.1
- Previous by thread:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/npl/en/parameters auth_subfields_structure.tmpl,NONE,1.1 auth_tag_structure.tmpl,NONE,1.1 authtypes.tmpl,NONE,1.1
- Next by thread:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/default/en/parameters categorie.tmpl,1.22,1.22.2.1
- Index(es):