[Koha-cvs] CVS: koha/admin marctagstructure.pl,1.22,1.23 systempreferences.pl,1.20,1.21

[Paul POULAIN]

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

Modified Files:
        marctagstructure.pl systempreferences.pl 
Log Message:
bugfixes

Index: marctagstructure.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/marctagstructure.pl,v
retrieving revision 1.22
retrieving revision 1.23
diff -C2 -r1.22 -r1.23
*** marctagstructure.pl 3 Jun 2004 10:01:28 -0000       1.22
--- marctagstructure.pl 17 Jun 2004 08:18:42 -0000      1.23
***************
*** 287,293 ****
        }
  
!       $sth = $dbh->prepare("select 
frameworkcode,tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,authorised_value,thesaurus_category,value_builder,seealso
 from marc_subfield_structure where frameworkcode=?");
        $sth->execute($oldframeworkcode);
!       $sth_insert = $dbh->prepare("insert into marc_subfield_structure 
(frameworkcode,tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,authorised_value,thesaurus_category,value_builder,seealso)
 values (?,?,?,?,?,?,?,?,?,?,?,?,?)");
        while ( my ($frameworkcode, $tagfield, $tagsubfield, $liblibrarian, 
$libopac, $repeatable, $mandatory, $kohafield, $tab, $authorised_value, 
$thesaurus_category, $value_builder, $seealso) = $sth->fetchrow) {
                $sth_insert->execute($newframeworkcode, $tagfield, 
$tagsubfield, $liblibrarian, $libopac, $repeatable, $mandatory, $kohafield, 
$tab, $authorised_value, $thesaurus_category, $value_builder, $seealso);
--- 287,293 ----
        }
  
!       $sth = $dbh->prepare("select 
frameworkcode,tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,authorised_value,authtypecode,value_builder,seealso
 from marc_subfield_structure where frameworkcode=?");
        $sth->execute($oldframeworkcode);
!       $sth_insert = $dbh->prepare("insert into marc_subfield_structure 
(frameworkcode,tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,authorised_value,authtypecode,value_builder,seealso)
 values (?,?,?,?,?,?,?,?,?,?,?,?,?)");
        while ( my ($frameworkcode, $tagfield, $tagsubfield, $liblibrarian, 
$libopac, $repeatable, $mandatory, $kohafield, $tab, $authorised_value, 
$thesaurus_category, $value_builder, $seealso) = $sth->fetchrow) {
                $sth_insert->execute($newframeworkcode, $tagfield, 
$tagsubfield, $liblibrarian, $libopac, $repeatable, $mandatory, $kohafield, 
$tab, $authorised_value, $thesaurus_category, $value_builder, $seealso);

Index: systempreferences.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/systempreferences.pl,v
retrieving revision 1.20
retrieving revision 1.21
diff -C2 -r1.20 -r1.21
*** systempreferences.pl        28 May 2004 13:43:25 -0000      1.20
--- systempreferences.pl        17 Jun 2004 08:18:43 -0000      1.21
***************
*** 247,251 ****
        } else {
                unless (C4::Context->config('demo') eq 1) {
!                       my $sth=$dbh->prepare("insert into systempreferences 
(variable,value,explanation,type,options) values (?,?,?)");
                        $sth->execute($input->param('variable'), 
$input->param('value'), $input->param('explanation'), 
$input->param('preftype'), $input->param('prefoptions'));
                        $sth->finish;
--- 247,251 ----
        } else {
                unless (C4::Context->config('demo') eq 1) {
!                       my $sth=$dbh->prepare("insert into systempreferences 
(variable,value,explanation,type,options) values (?,?,?,?,?)");
                        $sth->execute($input->param('variable'), 
$input->param('value'), $input->param('explanation'), 
$input->param('preftype'), $input->param('prefoptions'));
                        $sth->finish;