[Koha-cvs] CVS: koha/admin marc_subfields_structure.pl,1.7,1.8

[Paul POULAIN]

Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1:/tmp/cvs-serv26524

Modified Files:
	marc_subfields_structure.pl 
Log Message:
bugfix for #143 : deletion ask for confirmation of the asked-for-deletion subfield, not for another one !

Index: marc_subfields_structure.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/marc_subfields_structure.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** marc_subfields_structure.pl	10 Dec 2002 17:35:53 -0000	1.7
--- marc_subfields_structure.pl	18 Dec 2002 10:45:48 -0000	1.8
***************
*** 52,56 ****
  my $tagsubfield=$input->param('tagsubfield');
  my $pkfield="tagfield";
! my $reqsel="select tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,authorised_value,thesaurus_category,value_builder from marc_subfield_structure where tagfield='$tagfield'";
  my $reqdel="delete from marc_subfield_structure where tagfield='$tagfield' and tagsubfield='$tagsubfield'";
  my $offset=$input->param('offset');
--- 52,56 ----
  my $tagsubfield=$input->param('tagsubfield');
  my $pkfield="tagfield";
! my $reqsel="select tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,authorised_value,thesaurus_category,value_builder from marc_subfield_structure where tagfield='$tagfield' and tagsubfield='$tagsubfield'";
  my $reqdel="delete from marc_subfield_structure where tagfield='$tagfield' and tagsubfield='$tagsubfield'";
  my $offset=$input->param('offset');
***************
*** 133,137 ****
  	closedir DIR;
  
- 	warn "$value_builder[0] § $value_builder[1]";
  	# build values list
  	my $sth=$dbh->prepare("select tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,authorised_value,thesaurus_category,value_builder from marc_subfield_structure where tagfield='$tagfield'"); # and tagsubfield='$tagsubfield'");
--- 133,136 ----
***************
*** 292,296 ****
  	$sth->finish;
  	$template->param(liblibrarian => $data->{'liblibrarian'},
! 							tagsubfield => $tagsubfield,
  							delete_link => $script_name,
  							tagfield      =>$tagfield,
--- 291,295 ----
  	$sth->finish;
  	$template->param(liblibrarian => $data->{'liblibrarian'},
! 							tagsubfield => $data->{'tagsubfield'},
  							delete_link => $script_name,
  							tagfield      =>$tagfield,