- my $dbh = C4::Context->dbh;
- my $sth=$dbh->prepare("replace printers (printername,printqueue,printtype) values (?,?,?)");
- $sth->execute($input->param('printername'),$input->param('printqueue'),$input->param('printtype'));
- $sth->finish;
+ if ($input->param('add')){
+ my $sth=$dbh->prepare("INSERT INTO printers (printername,printqueue,printtype) VALUES (?,?,?)");
+ $sth->execute($input->param('printername'),$input->param('printqueue'),$input->param('printtype'));
+ } else {
+ my $sth=$dbh->prepare("UPDATE printers SET printqueue=?,printtype=? WHERE printername=?");
+ $sth->execute($input->param('printqueue'),$input->param('printtype'),$input->param('printername'));
+ }