[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/admin authorised_values.pl,1.7,1.8
From: |
Serge Renaux |
Subject: |
[Koha-cvs] CVS: koha/admin authorised_values.pl,1.7,1.8 |
Date: |
Tue, 17 Jun 2003 02:30:58 -0700 |
Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1:/tmp/cvs-serv30205
Modified Files:
authorised_values.pl
Log Message:
Index: authorised_values.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/authorised_values.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -r1.7 -r1.8
*** authorised_values.pl 2 Jun 2003 03:56:53 -0000 1.7
--- authorised_values.pl 17 Jun 2003 09:30:56 -0000 1.8
***************
*** 111,115 ****
my $dbh = C4::Context->dbh;
my $sth=$dbh->prepare("replace authorised_values
(id,category,authorised_value,lib) values (?,?,?,?)");
! $sth->execute($input->param('id'), $input->param('category'),
$input->param('authorised_value'),$input->param('lib'));
$sth->finish;
print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0;
URL=authorised_values.pl?searchfield=".$input->param('category')."\"></html>";
--- 111,118 ----
my $dbh = C4::Context->dbh;
my $sth=$dbh->prepare("replace authorised_values
(id,category,authorised_value,lib) values (?,?,?,?)");
! my $lib = $input->param('lib');
! undef $lib if ($lib eq ""); # to insert NULL instead of a blank string
!
! $sth->execute($input->param('id'), $input->param('category'),
$input->param('authorised_value'), $lib);
$sth->finish;
print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0;
URL=authorised_values.pl?searchfield=".$input->param('category')."\"></html>";
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/admin authorised_values.pl,1.7,1.8,
Serge Renaux <=