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

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