[Koha-cvs] CVS: koha/admin marc_subfields_structure.pl,1.15,1.16

[Paul POULAIN]

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

Modified Files:
        marc_subfields_structure.pl 
Log Message:
demo mode added

Index: marc_subfields_structure.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/marc_subfields_structure.pl,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -r1.15 -r1.16
*** marc_subfields_structure.pl 15 Jul 2003 23:09:18 -0000      1.15
--- marc_subfields_structure.pl 1 Aug 2003 14:25:12 -0000       1.16
***************
*** 272,286 ****
                my $value_builder=$value_builder[$i];
                if ($liblibrarian) {
!                       $sth->execute ($tagfield,
!                                                               $tagsubfield,
!                                                               $liblibrarian,
!                                                               $libopac,
!                                                               $repeatable,
!                                                               $mandatory,
!                                                               $kohafield,
!                                                               $tab,
!                                                               
$authorised_value,
!                                                               
$thesaurus_category,
!                                                               $value_builder);
                }
        }
--- 272,288 ----
                my $value_builder=$value_builder[$i];
                if ($liblibrarian) {
!                       unless (C4::Context->config('demo') eq 1) {
!                               $sth->execute ($tagfield,
!                                                                       
$tagsubfield,
!                                                                       
$liblibrarian,
!                                                                       
$libopac,
!                                                                       
$repeatable,
!                                                                       
$mandatory,
!                                                                       
$kohafield,
!                                                                       $tab,
!                                                                       
$authorised_value,
!                                                                       
$thesaurus_category,
!                                                                       
$value_builder);
!                       }
                }
        }
***************
*** 309,315 ****
  } elsif ($op eq 'delete_confirmed') {
        my $dbh = C4::Context->dbh;
!       my $sth=$dbh->prepare($reqdel);
!       $sth->execute;
!       $sth->finish;
        print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; 
URL=marc_subfields_structure.pl?tagfield=$tagfield\"></html>";
        exit;
--- 311,319 ----
  } elsif ($op eq 'delete_confirmed') {
        my $dbh = C4::Context->dbh;
!       unless (C4::Context->config('demo') eq 1) {
!               my $sth=$dbh->prepare($reqdel);
!               $sth->execute;
!               $sth->finish;
!       }
        print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; 
URL=marc_subfields_structure.pl?tagfield=$tagfield\"></html>";
        exit;