|
Lines 234-240
sub DeleteOnePref {
Link Here
|
| 234 |
sub CheckVersionPref { #additional precaution |
234 |
sub CheckVersionPref { #additional precaution |
| 235 |
#if there are versions, compare them |
235 |
#if there are versions, compare them |
| 236 |
my ($hash) = @_; |
236 |
my ($hash) = @_; |
| 237 |
my $hv = $hash->{version}->{value}; |
237 |
my $hv = exists $hash->{version}? $hash->{version}->{value}: undef; |
| 238 |
return if !defined $hv; |
238 |
return if !defined $hv; |
| 239 |
my ($dv) = $dbh->selectrow_array( |
239 |
my ($dv) = $dbh->selectrow_array( |
| 240 |
'SELECT value FROM systempreferences |
240 |
'SELECT value FROM systempreferences |
| 241 |
- |
|
|