push @where, "dord.$item = ?";
push @values, conv_i($form->{$item});
}
push @where, "dord.$item = ?";
push @values, conv_i($form->{$item});
}
push @where, qq|dord.employee_id = (select id from employee where login= ?)|;
push @values, $::myconfig{login};
}
push @where, qq|dord.employee_id = (select id from employee where login= ?)|;
push @values, $::myconfig{login};
}
}
do_statement($form, $h_pg, $q_pg, conv_i($form->{"id_$i"}));
}
do_statement($form, $h_pg, $q_pg, conv_i($form->{"id_$i"}));