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