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

[Paul POULAIN]

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

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

Index: marctagstructure.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/marctagstructure.pl,v
retrieving revision 1.15
retrieving revision 1.16
diff -C2 -r1.15 -r1.16
*** marctagstructure.pl 2 May 2003 16:18:52 -0000       1.15
--- marctagstructure.pl 1 Aug 2003 14:23:52 -0000       1.16
***************
*** 129,139 ****
        my $mandatory =$input->param('mandatory');
        my $authorised_value =$input->param('authorised_value');
!       $sth->execute($tagfield,
!                                               $liblibrarian,
!                                               $libopac,
!                                               $repeatable?1:0,
!                                               $mandatory?1:0,
!                                               $authorised_value
!                                               );
        $sth->finish;
        print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; 
URL=marctagstructure.pl?tagfield=$tagfield\"></html>";
--- 129,141 ----
        my $mandatory =$input->param('mandatory');
        my $authorised_value =$input->param('authorised_value');
!       unless (C4::Context->config('demo') eq 1) {
!               $sth->execute($tagfield,
!                                                       $liblibrarian,
!                                                       $libopac,
!                                                       $repeatable?1:0,
!                                                       $mandatory?1:0,
!                                                       $authorised_value
!                                                       );
!       }
        $sth->finish;
        print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; 
URL=marctagstructure.pl?tagfield=$tagfield\"></html>";
***************
*** 156,161 ****
  } elsif ($op eq 'delete_confirmed') {
        my $dbh = C4::Context->dbh;
!       $dbh->do("delete from marc_tag_structure where 
$pkfield='$searchfield'");
!       $dbh->do("delete from marc_subfield_structure where 
tagfield='$searchfield'");
                                                                                
                        # END $OP eq DELETE_CONFIRMED
  ################## DEFAULT ##################################
--- 158,165 ----
  } elsif ($op eq 'delete_confirmed') {
        my $dbh = C4::Context->dbh;
!       unless (C4::Context->config('demo') eq 1) {
!               $dbh->do("delete from marc_tag_structure where 
$pkfield='$searchfield'");
!               $dbh->do("delete from marc_subfield_structure where 
tagfield='$searchfield'");
!       }
                                                                                
                        # END $OP eq DELETE_CONFIRMED
  ################## DEFAULT ##################################