<pre>
111111
</pre>
```
//配置完成的情况下进行回填`
if($OperType eq 'cfgdeploy'){
my $taskid = $SubTaskHashRef->{'TASKID'};
my $statement = "select wsnbr from ServTask where taskid = '$taskid'";
my $sth = &doselect($dbh,$statement);
my $ref=$sth->fetchrow_hashref();
my $wsnbr = $ref->{WSNBR};
$sth->finish;
$statement = "insert into worksheetext(wsnbr,servtypeid,wsitemcode,wsitemvalue,custservtypeid,isrole)
values ($wsnbr,'IPSL','LPPORT',?,'IPSL',1) ";
my $sth = $dbh->prepare($statement);
if(${PVLAN} == 0){
$sth->execute("${BASPort}.${CVLAN}");
}
else{
$sth->execute("${BASPort}.${PVLAN}");
}
$sth->finish;
}
```
