+++ /dev/null
-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<perl>.
-
-=cut
-
+++ /dev/null
-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)
+++ /dev/null
-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)=@_;
- }
projects / koha_gimpoz / commitdiff