Owen Leonard
14b66041f0
The road types interface didn't block deletion of road types in use, but the script included the same queries that cities.pl did, as if it intended to. Signed-off-by: Galen Charlton <gmcharlt@gmail.com> Signed-off-by: Chris Cormack <chrisc@catalyst.net.nz>
129 lines
4.1 KiB
Perl
Executable file
129 lines
4.1 KiB
Perl
Executable file
#! /usr/bin/perl
|
|
|
|
# Copyright 2006 SAN OUEST-PROVENCE et Paul POULAIN
|
|
#
|
|
# This file is part of Koha.
|
|
#
|
|
# Koha is free software; you can redistribute it and/or modify it under the
|
|
# terms of the GNU General Public License as published by the Free Software
|
|
# Foundation; either version 2 of the License, or (at your option) any later
|
|
# version.
|
|
#
|
|
# Koha is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
|
|
# A PARTICULAR PURPOSE. See the GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License along
|
|
# with Koha; if not, write to the Free Software Foundation, Inc.,
|
|
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
use CGI;
|
|
use C4::Context;
|
|
use C4::Output;
|
|
use C4::Auth;
|
|
|
|
|
|
sub StringSearch {
|
|
my $sth = C4::Context->dbh->prepare("Select * from roadtype where (road_type like ?) ORDER BY road_type");
|
|
$sth->execute((shift || '') . '%');
|
|
return $sth->fetchall_arrayref({});
|
|
}
|
|
|
|
my $input = new CGI;
|
|
my $searchfield=$input->param('road_type');
|
|
my $script_name="/cgi-bin/koha/admin/roadtype.pl";
|
|
my $roadtypeid=$input->param('roadtypeid');
|
|
my $op = $input->param('op') || '';
|
|
|
|
my ($template, $loggedinuser, $cookie)
|
|
= get_template_and_user({template_name => "admin/roadtype.tmpl",
|
|
query => $input,
|
|
type => "intranet",
|
|
authnotrequired => 0,
|
|
flagsrequired => {parameters => 1},
|
|
debug => 1,
|
|
});
|
|
|
|
|
|
$template->param( script_name => $script_name,
|
|
roadtypeid => $roadtypeid ,
|
|
searchfield => $searchfield);
|
|
|
|
|
|
################## ADD_FORM ##################################
|
|
# called by default. Used to create form to add or modify a record
|
|
if ($op eq 'add_form') {
|
|
$template->param(add_form => 1);
|
|
|
|
#---- if primkey exists, it's a modify action, so read values to modify...
|
|
my $data;
|
|
if ($roadtypeid) {
|
|
my $dbh = C4::Context->dbh;
|
|
my $sth=$dbh->prepare("select roadtypeid,road_type from roadtype where roadtypeid=?");
|
|
$sth->execute($roadtypeid);
|
|
$data=$sth->fetchrow_hashref;
|
|
$sth->finish;
|
|
}
|
|
|
|
$template->param(
|
|
road_type => $data->{'road_type'},
|
|
);
|
|
##############ICI#####################
|
|
# END $OP eq ADD_FORM
|
|
################## ADD_VALIDATE #################################
|
|
# called by add_form, used to insert/modify data in DB
|
|
} elsif ($op eq 'add_validate') {
|
|
my $dbh = C4::Context->dbh;
|
|
my $sth;
|
|
|
|
if ($input->param('roadtypeid') ){
|
|
$sth=$dbh->prepare("UPDATE roadtype SET road_type=? WHERE roadtypeid=?");
|
|
$sth->execute($input->param('road_type'),$input->param('roadtypeid'));
|
|
|
|
}
|
|
else{
|
|
$sth=$dbh->prepare("INSERT INTO roadtype (road_type) VALUES (?)");
|
|
$sth->execute($input->param('road_type'));
|
|
}
|
|
$sth->finish;
|
|
print $input->redirect("/cgi-bin/koha/admin/roadtype.pl");
|
|
exit;
|
|
|
|
# END $OP eq ADD_VALIDATE
|
|
################## DELETE_CONFIRM ##################################
|
|
# called by default form, used to confirm deletion of data in DB
|
|
} elsif ($op eq 'delete_confirm') {
|
|
$template->param(delete_confirm => 1);
|
|
my $dbh = C4::Context->dbh;
|
|
my $sth2=$dbh->prepare("select roadtypeid,road_type from roadtype where roadtypeid=?");
|
|
$sth2->execute($roadtypeid);
|
|
my $data=$sth2->fetchrow_hashref;
|
|
$sth2->finish;
|
|
|
|
$template->param(
|
|
road_type => ( $data->{'road_type'}),
|
|
);
|
|
|
|
|
|
# END $OP eq DELETE_CONFIRM
|
|
################## DELETE_CONFIRMED ##################################
|
|
# called by delete_confirm, used to effectively confirm deletion of data in DB
|
|
} elsif ($op eq 'delete_confirmed') {
|
|
my $dbh = C4::Context->dbh;
|
|
my $categorycode=uc($input->param('roadtypeid'));
|
|
my $sth=$dbh->prepare("delete from roadtype where roadtypeid=?");
|
|
$sth->execute($roadtypeid);
|
|
$sth->finish;
|
|
print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=roadtype.pl\"></html>";
|
|
exit;
|
|
# END $OP eq DELETE_CONFIRMED
|
|
} else { # DEFAULT
|
|
$template->param(else => 1);
|
|
$template->param(loop => StringSearch($searchfield));
|
|
|
|
|
|
} #---- END $OP eq DEFAULT
|
|
output_html_with_http_headers $input, $cookie, $template->output;
|