From 6b84ddf24cf495a854257acae7120b74b01d5d09 Mon Sep 17 00:00:00 2001 From: tipaul Date: Tue, 17 Jan 2006 16:09:50 +0000 Subject: [PATCH] removing unused package --- C4/Query.pm | 110 ------------------------------------------------- C4/Scan.pm | 50 ---------------------- C4/Security.pm | 83 ------------------------------------- 3 files changed, 243 deletions(-) delete mode 100755 C4/Query.pm delete mode 100644 C4/Scan.pm delete mode 100644 C4/Security.pm diff --git a/C4/Query.pm b/C4/Query.pm deleted file mode 100755 index 83c7ad6b2c..0000000000 --- a/C4/Query.pm +++ /dev/null @@ -1,110 +0,0 @@ -package C4::Query; - -# Copyright 2004 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 - -# $Id$ - -use 5.006; -use strict; -use warnings; - -require Exporter; -use AutoLoader qw(AUTOLOAD); - -our @ISA = qw(Exporter); - -our %EXPORT_TAGS = ( - 'all' => [ - qw( - - ) - ] -); - -our @EXPORT_OK = ( @{ $EXPORT_TAGS{'all'} } ); - -our @EXPORT = qw( - -); - -our $VERSION = do { my @v = '$Revision$' =~ /\d+/g; - shift (@v) . "." . join ( "_", map { sprintf "%03d", $_ } @v ); -}; - -# Preloaded methods go here. - -sub new { - my $class = shift; - my $search_string = shift; # high level query to construct search from - my $self = {}; - $self->{"search_string"} = $search_string; - bless $self, $class; - return $self; -} - -sub count { - my $self = shift; - -} - -sub results { - my $self = shift; - -} - -# Autoload methods go after =cut, and are processed by the autosplit program. - -1; -__END__ - -# Below is stub documentation for your module. You better edit it! - -=head1 NAME - -C4::Query - -=head1 SYNOPSIS - - use C4::Query; - - -=head1 DESCRIPTION - -=head2 METHODS - -=item new - -$query = new C4::Query("title:bob marley"); - - - -=head2 EXPORT - -None by default. - - -=head1 AUTHOR - -Koha Development Team - -=head1 SEE ALSO - -L. - -=cut - diff --git a/C4/Scan.pm b/C4/Scan.pm deleted file mode 100644 index 3770930153..0000000000 --- a/C4/Scan.pm +++ /dev/null @@ -1,50 +0,0 @@ -package C4::Scan; #assumes C4/Scan.pm - - -# 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; -require Exporter; - -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); - -# set the version for version checking -$VERSION = 0.01; - -=head1 NAME - -C4::Scan - Does nothing - -=head1 SYNOPSIS - - use C4::Scan; - -=head1 DESCRIPTION - -This module doesn't do anything. - -=cut - -@ISA = qw(Exporter); -@EXPORT = qw(&getbarcode); - -# FIXME - Never used -sub Getbarcode { -} - -END { } # module clean-up code here (global destructor) diff --git a/C4/Security.pm b/C4/Security.pm deleted file mode 100644 index 47d306f5ab..0000000000 --- a/C4/Security.pm +++ /dev/null @@ -1,83 +0,0 @@ -package C4::Security; - -# $Id$ - -# 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 - -# FIXME - As far as I can tell, this module is only used by the CDK -# stuff, which appears to be stillborn. In other words, this module -# isn't used. - -use strict; -require Exporter; -use DBI; -use C4::Context; -use C4::Format; -use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS); - -# set the version for version checking -$VERSION = 0.01; - -@ISA = qw(Exporter); -@EXPORT = qw(&Login &CheckAccess); - -sub Login { - my ($env)=@_; - my $dbh = C4::Context->dbh; - my @branches; - my $query = "select * from branches order by branchname"; - my $sth=$dbh->prepare($query); - $sth->execute; - while (my $branchrec=$sth->fetchrow_hashref) { - my $branchdet = - fmtstr($env,$branchrec->{'branchcode'},"L2")." ".$branchrec->{'branchname'}; - push @branches,$branchdet; - } - $sth->finish; - my $valid = "f"; - &startint($env,"Logging In"); - until ($valid eq "t") { - my ($reason,$username,$password,$branch) = logondialog ($env,"Logon to System",\@branches); - $username = uc $username; - $password = uc $password; - my $query = "select * from users where usercode = '$username' and password ='$password'"; - $sth=$dbh->prepare($query); - $sth->execute; -# debug_msg("",$query); - if (my $userrec = $sth->fetchrow_hashref) { - if ($userrec->{'usercode'} ne ''){ - if ($branch ne "") { - $valid = "t"; - my @dummy = split ' ', $branch; - $branch = $dummy[0]; - $env->{'usercode'} = $username; - $env->{'branchcode'} = $branch; - } - - } else { - debug_msg("","not found"); - } - } - $sth->finish; - } - &endint(); -} - -sub CheckAccess { - my ($env)=@_; - } -- 2.39.2