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