|
Lines 106-118
if ($op eq 'add_form') {
Link Here
|
| 106 |
|
106 |
|
| 107 |
if ( $new_authorised_value =~ /^[a-zA-Z0-9\-_]+$/ ) { |
107 |
if ( $new_authorised_value =~ /^[a-zA-Z0-9\-_]+$/ ) { |
| 108 |
if ( $id ) { # Update |
108 |
if ( $id ) { # Update |
| 109 |
my $sth = $dbh->prepare( "SELECT category, authorised_value FROM authorised_values WHERE id='$id' "); |
109 |
my $sth = $dbh->prepare( "SELECT category, authorised_value FROM authorised_values WHERE id=? "); |
| 110 |
$sth->execute(); |
110 |
$sth->execute($id); |
| 111 |
my ($category, $authorised_value) = $sth->fetchrow_array(); |
111 |
my ($category, $authorised_value) = $sth->fetchrow_array(); |
| 112 |
if ( $authorised_value ne $new_authorised_value ) { |
112 |
if ( $authorised_value ne $new_authorised_value ) { |
| 113 |
my $sth = $dbh->prepare_cached( "SELECT COUNT(*) FROM authorised_values " . |
113 |
my $sth = $dbh->prepare_cached( "SELECT COUNT(*) FROM authorised_values " . |
| 114 |
"WHERE category = '$new_category' AND authorised_value = '$new_authorised_value' and id<>$id"); |
114 |
"WHERE category = ? AND authorised_value = ? and id <> ?"); |
| 115 |
$sth->execute(); |
115 |
$sth->execute($new_category,$new_authorised_value,$id); |
| 116 |
($duplicate_entry) = $sth->fetchrow_array(); |
116 |
($duplicate_entry) = $sth->fetchrow_array(); |
| 117 |
warn "**** duplicate_entry = $duplicate_entry"; |
117 |
warn "**** duplicate_entry = $duplicate_entry"; |
| 118 |
} |
118 |
} |
|
Lines 135-142
if ($op eq 'add_form') {
Link Here
|
| 135 |
} |
135 |
} |
| 136 |
else { # Insert |
136 |
else { # Insert |
| 137 |
my $sth = $dbh->prepare_cached( "SELECT COUNT(*) FROM authorised_values " . |
137 |
my $sth = $dbh->prepare_cached( "SELECT COUNT(*) FROM authorised_values " . |
| 138 |
"WHERE category = '$new_category' AND authorised_value = '$new_authorised_value' "); |
138 |
"WHERE category = ? AND authorised_value = ? "); |
| 139 |
$sth->execute(); |
139 |
$sth->execute($new_category,$new_authorised_value); |
| 140 |
($duplicate_entry) = $sth->fetchrow_array(); |
140 |
($duplicate_entry) = $sth->fetchrow_array(); |
| 141 |
unless ( $duplicate_entry ) { |
141 |
unless ( $duplicate_entry ) { |
| 142 |
my $sth=$dbh->prepare( 'INSERT INTO authorised_values |
142 |
my $sth=$dbh->prepare( 'INSERT INTO authorised_values |
| 143 |
- |
|
|