- my $query = "replace categories (categorycode,description,enrolmentperiod,upperagelimit,dateofbirthrequired,finetype,bulk,enrolmentfee,issuelimit,reservefee,overduenoticerequired) values (";
- $query.= $dbh->quote($input->param('categorycode')).",";
- $query.= $dbh->quote($input->param('description')).",";
- $query.= $dbh->quote($input->param('enrolmentperiod')).",";
- $query.= $dbh->quote($input->param('upperagelimit')).",";
- $query.= $dbh->quote($input->param('dateofbirthrequired')).",";
- $query.= $dbh->quote($input->param('finetype')).",";
- $query.= $dbh->quote($input->param('bulk')).",";
- $query.= $dbh->quote($input->param('enrolmentfee')).",";
- $query.= $dbh->quote($input->param('issuelimit')).",";
- $query.= $dbh->quote($input->param('reservefee')).",";
- $query.= $dbh->quote($input->param('overduenoticerequired')).")";
- my $sth=$dbh->prepare($query);
- $sth->execute;
- $sth->finish;
+ if ($is_a_modif) {
+ my $sth=$dbh->prepare("UPDATE categories SET description=?,enrolmentperiod=?,upperagelimit=?,dateofbirthrequired=?,enrolmentfee=?,reservefee=?,overduenoticerequired=?,category_type=? WHERE categorycode=?");
+ $sth->execute(map { $input->param($_) } ('description','enrolmentperiod','upperagelimit','dateofbirthrequired','enrolmentfee','reservefee','overduenoticerequired','category_type','categorycode'));
+ $sth->finish;
+ } else {
+ my $sth=$dbh->prepare("INSERT INTO categories (categorycode,description,enrolmentperiod,upperagelimit,dateofbirthrequired,enrolmentfee,reservefee,overduenoticerequired,category_type) values (?,?,?,?,?,?,?,?,?)");
+ $sth->execute(map { $input->param($_) } ('categorycode','description','enrolmentperiod','upperagelimit','dateofbirthrequired','enrolmentfee','reservefee','overduenoticerequired','category_type'));
+ $sth->finish;
+ }
+ print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=categorie.pl\"></html>";
+ exit;
+