use utf8;
use warnings; no warnings "redefine";
use strict;
use Loader qw(line_in log_update);
use Dbase::Help qw(Do DoFn qquote);

sub set_nicdata_handle_re($;$) {
	my($nic,$kn) = @_;

	my $re = line_in "Regexp: "; return undef unless defined $re;
	return undef if $re eq "";
	if($re eq "-") {
		$re = "NULL";
	} else {
		$re =~ s/^\\A//;
		$re =~ s/^\^//;
		$re =~ s/\$$//;
		$re =~ s/\\z$//;
		$re = qquote($re);
	}

	log_update("nicdata","nic",$nic,undef,"handle_re",undef,
		DoFn("select handle_re from nicdata where nic=$nic"));
	Do("update nicdata set handle_re=$re where nic=$nic");

	1;
}
1;
