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