296 |
|
|
297 |
$log->debug("key = $key"); |
$log->debug("key = $key"); |
298 |
|
|
|
my $create = "save_into_lookup('$key', $e[7] $e[8] );\n"; |
|
|
|
|
|
$log->debug("create: $create"); |
|
|
|
|
299 |
return $self->_lookup_error("invalid database $e[3] in $path" ) unless $self->valid_database( $e[3] ); |
return $self->_lookup_error("invalid database $e[3] in $path" ) unless $self->valid_database( $e[3] ); |
300 |
return $self->_lookup_error("invalid input $e[5] of database $e[3] in $path", ) unless $self->valid_database_input( $e[3], $e[5] ); |
return $self->_lookup_error("invalid input $e[5] of database $e[3] in $path", ) unless $self->valid_database_input( $e[3], $e[5] ); |
301 |
|
|
302 |
|
my $create = qq{ |
303 |
|
save_into_lookup($e[3],$e[5],'$key', $e[7] $e[8] ); |
304 |
|
}; |
305 |
|
|
306 |
|
$log->debug("create: $create"); |
307 |
|
|
308 |
# save code to create this lookup |
# save code to create this lookup |
309 |
$self->{_lookup_create}->{ _q($e[3]) }->{ _q($e[5]) } .= $create; |
$self->{_lookup_create}->{ _q($e[3]) }->{ _q($e[5]) } .= $create; |
310 |
$self->{_lookup_create_key}->{ _q($e[3]) }->{ _q($e[5]) }->{ _q($key) }++; |
$self->{_lookup_create_key}->{ _q($e[3]) }->{ _q($e[5]) }->{ _q($key) }++; |