gitea
/
Koha-clms
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Cleaning out all unused cruft. 

C4Connect is the only function that was actually being used in this module
This commit is contained in:
rangi 2002-04-30 09:21:03 +00:00
parent 9e53e8dbe7
commit 8ea1f94eb7
1 changed files with 3 additions and 131 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

134
C4/Database.pm
View File

@ -1,54 +1,16 @@
package C4::Database; #asummes C4/Database
#requires DBI.pm to be installed
#uses DBD:Pg
use strict;
require Exporter;
use DBI;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
$VERSION = 0.01;
@ISA = qw(Exporter);
@EXPORT = qw(&C4Connect &sqlinsert &sqlupdate &getmax &makelist
&OpacConnect);
%EXPORT_TAGS = ( ); # eg: TAG => [ qw!name1 name2! ],
# your exported package globals go here,
# as well as any optionally exported functions
@EXPORT_OK = qw($Var1 %Hashit);
# non-exported package globals go here
use vars qw(@more $stuff);
# initalize package globals, first exported ones
my $Var1 = '';
my %Hashit = ();
# then the others (which are still accessible as $Some::Module::stuff)
my $stuff = '';
my @more = ();
# all file-scoped lexicals must be created before
# the functions below that use them.
# file-private lexicals go here
my $priv_var = '';
my %secret_hash = ();
# here's a file-private function as a closure,
# callable as &$priv_func; it cannot be prototyped.
my $priv_func = sub {
# stuff goes here.
};
# make all your functions, whether exported or not;
@EXPORT = qw(&C4Connect);
sub C4Connect {
@ -78,95 +40,5 @@ sub C4Connect {
return $dbh;
}
sub Opaconnect {
my $dbname="c4";
# my $dbh = DBI->connect("dbi:Pg:dbname=$dbname", "chris", "");
my $database='c4test';
my $hostname='localhost';
my $user='hdl';
my $pass='testing';
my $dbh=DBI->connect("DBI:mysql:$database:$hostname",$user,$pass);
return $dbh;
}
sub sqlinsert {
my ($table,%data)=@_;
my $dbh=C4Connect;
my $query="INSERT INTO $table \(";
while (my ($key,$value) = each %data){
if ($key ne 'type' && $key ne 'updtype'){
$query=$query."$key,";
}
}
$query=~ s/\,$/\)/;
$query=$query." VALUES (";
while (my ($key,$value) = each %data){
if ($key ne 'type' && $key ne 'updtype'){
$query=$query."'$value',";
}
}
$query=~ s/\,$/\)/;
print $query;
my $sth=$dbh->prepare($query);
$sth->execute;
$sth->finish;
$dbh->disconnect;
}
sub sqlupdate {
my ($table,$keyfld,$keyval,%data)=@_;
my $dbh=C4Connect;
my $query="UPDATE $table SET ";
my @sets;
my @keyarr = split("\t",$keyfld);
my @keyvalarr = split("\t",$keyval);
my $numkeys = @keyarr;
while (my ($key,$value) = each %data){
if (($key ne 'type')&&($key ne 'updtype')){
my $temp = " ".$key."='".$value."' ";
push(@sets,$temp);
}
}
my $fsets = join(",", @sets);
$query=$query.$fsets." WHERE $keyarr[0] = '$keyvalarr[0]'";
if ($numkeys > 1) {
my $i = 1;
while ($i < $numkeys) {
$query=$query." AND $keyarr[$i] = '$keyvalarr[$i]'";
$i++;
}
}
# $query=~ s/\,$/\)/;
print $query;
my $sth=$dbh->prepare($query);
$sth->execute;
$sth->finish;
$dbh->disconnect;
}
sub getmax {
my ($table,$item)=@_;
my $dbh=C4Connect;
my $sth=$dbh->prepare("Select max($item) from $table");
$sth->execute;
my $data=$sth->fetchrow_hashref;
$sth->finish;
$dbh->disconnect;
return($data);
}
sub makelist {
my ($table,$kfld,$dfld)=@_;
my $data;
my $dbh=C4Connect;
my $sth=$dbh->prepare("Select $kfld,$dfld from $table order by $dfld");
$sth->execute;
while (my $drec=$sth->fetchrow_hashref) {
$data = $data."\t".$drec->{$kfld}."\t".$drec->{$dfld};
}
$sth->finish;
$dbh->disconnect;
return($data);
}
END { } # module clean-up code here (global destructor)
END { }