From 4dc238f5990c1cc64ea68c1409dcf7db04711e24 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Wed, 31 Dec 2008 10:28:03 -0600 Subject: [PATCH] remove disused script admin/letter.pl Was moved to tools/letter.pl in 2006, but old (and nonfunctional) version was left in place. Signed-off-by: Galen Charlton --- admin/letter.pl | 210 ------------------------------------------------ 1 file changed, 210 deletions(-) delete mode 100755 admin/letter.pl diff --git a/admin/letter.pl b/admin/letter.pl deleted file mode 100755 index e0deea5c74..0000000000 --- a/admin/letter.pl +++ /dev/null @@ -1,210 +0,0 @@ -#!/usr/bin/perl - -#script to administer the aqbudget table -#written 20/02/2002 by paul.poulain@free.fr -# This software is placed under the gnu General Public License, v2 (http://www.gnu.org/licenses/gpl.html) - -# ALGO : -# this script use an $op to know what to do. -# if $op is empty or none of the above values, -# - the default screen is build (with all records, or filtered datas). -# - the user can clic on add, modify or delete record. -# if $op=add_form -# - if primkey exists, this is a modification,so we read the $primkey record -# - builds the add/modify form -# if $op=add_validate -# - the user has just send datas, so we create/modify the record -# if $op=delete_form -# - we show the record having primkey=$primkey and ask for deletion validation form -# if $op=delete_confirm -# - we delete the record having primkey=$primkey - - -# Copyright 2000-2002 Katipo Communications -# -# 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., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA - -use strict; -use CGI; -use C4::Dates; -use C4::Auth; -use C4::Context; -use C4::Output; - - -sub StringSearch { - my ($searchstring,$type)=@_; - my $dbh = C4::Context->dbh; - $searchstring=~ s/\'/\\\'/g; - my @data=split(' ',$searchstring); - my $count=@data; - my $sth=$dbh->prepare("Select * from letter where (code like ?) order by module,code"); - $sth->execute("$data[0]%"); - my @results; - my $cnt=0; - while (my $data=$sth->fetchrow_hashref){ - push(@results,$data); - $cnt++; - } - $sth->finish; - return ($cnt,\@results); -} - -my $input = new CGI; -my $searchfield=$input->param('searchfield'); -my $offset=$input->param('offset'); -my $script_name="/cgi-bin/koha/admin/letter.pl"; -my $code=$input->param('code'); -my $module = $input->param('module'); -my $pagesize=20; -my $op = $input->param('op'); -$searchfield=~ s/\,//g; -my $dbh = C4::Context->dbh; - -my ($template, $borrowernumber, $cookie) - = get_template_and_user({template_name => "tools/letter.tmpl", - query => $input, - type => "intranet", - authnotrequired => 0, - flagsrequired => {tools => 1}, - debug => 1, - }); - -if ($op) { - $template->param(script_name => $script_name, $op => 1); # we show only the TMPL_VAR names $op -} else { - $template->param(script_name => $script_name, else => 1); # we show only the TMPL_VAR names $op -} - -$template->param(action => $script_name); -################## ADD_FORM ################################## -# called by default. Used to create form to add or modify a record -if ($op eq 'add_form') { - #---- if primkey exists, it's a modify action, so read values to modify... - my $letter; - if ($code) { - my $sth=$dbh->prepare("select * from letter where module=? and code=?"); - $sth->execute($module,$code); - $letter=$sth->fetchrow_hashref; - $sth->finish; - } - # build field list - my @SQLfieldname; - foreach(qw(LibrarianFirstname LibrarianSurname LibrarianEmailaddress)) { - my %line = ('value' => $_, 'text' => $_); - push @SQLfieldname, \%line; - } - - foreach(qw(branches biblio biblioitems)) { - my $sth2=$dbh->prepare("SHOW COLUMNS from $_"); - $sth2->execute; - my %line = ('value' => "", 'text' => '---' . uc($_) . '---'); - push @SQLfieldname, \%line; - while ((my $field) = $sth2->fetchrow_array) { - %line = ('value' => "$_.".$field, 'text' => "$_.".$field); - push @SQLfieldname, \%line; - } - } - - my %line = ('value' => "", 'text' => '---ITEMS---'); - push @SQLfieldname, \%line; - %line = ('value' => "items.content", 'text' => 'items.content'); - push @SQLfieldname, \%line; - - my $sth2=$dbh->prepare("SHOW COLUMNS from borrowers"); - $sth2->execute; - %line = ('value' => "", 'text' => '---BORROWERS---'); - push @SQLfieldname, \%line; - while ((my $field) = $sth2->fetchrow_array) { - %line = ('value' => "borrowers.".$field, 'text' => "borrowers.".$field); - push @SQLfieldname, \%line; - } - if ($code) { - $template->param(modify => 1); - $template->param(code => $letter->{code}); - } else { - $template->param(adding => 1); - } - $template->param(name => $letter->{name}, - title => $letter->{title}, - content => $letter->{content}, - $letter->{module} => 1, - SQLfieldname => \@SQLfieldname,); - # 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; - if ($query->param('add')){ - # need to do an insert - my $sth=$dbh->prepare("INSERT INTO letter (module,code,name,title,content) VALUES (?,?,?,?,?)"); - $sth->execute(map {$input->param('module')} qw(code name title content)); - $sth->finish; - } - else { - # do an update - my $sth=$dbh->prepare("UPDATE letter SET module=?,name=?,title=?,content=? WHERE code=?"); - $sth->execute(map {$input->param('module')} qw(name title content code)); - $sth->finish; - } - print $input->redirect("letter.pl"); - exit; -################## DELETE_CONFIRM ################################## -# called by default form, used to confirm deletion of data in DB -} elsif ($op eq 'delete_confirm') { - my $dbh = C4::Context->dbh; - my $sth=$dbh->prepare("select * from letter where code=?"); - $sth->execute($code); - my $data=$sth->fetchrow_hashref; - $sth->finish; - $template->param(code => $code); - foreach(qw(module name content)) { - $template->param($_ => $data->{$_}); - } -################## 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 $code=uc($input->param('code')); - my $module=$input->param('module'); - my $sth=$dbh->prepare("delete from letter where module=? and code=?"); - $sth->execute($module,$code); - $sth->finish; - print $input->redirect("letter.pl"); - return; -################## DEFAULT ################################## -} else { # DEFAULT - if ($searchfield ne '') { - $template->param(search => 1); - $template->param(searchfield => $searchfield); - } - my ($count,$results)=StringSearch($searchfield,'web'); - my $toggle="white"; - my @loop_data =(); - for (my $i=$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){ - $toggle = ($toggle eq 'white') ? "#ffffcc" : "white" ; - my %row_data; - $row_data{toggle} = $toggle; - foreach (qw(module code name)) { - $row_data{$_} = $results->[$i]{$_}; - } - push(@loop_data, \%row_data); - } - $template->param(letter => \@loop_data); -} #---- END $OP eq DEFAULT - -output_html_with_http_headers $input, $cookie, $template->output; - -- 2.39.5