2018-03-27

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

}

```