moving fields around toCVS: ----------------------------------------------------...

[koha_fer] / C4 / Database.pm

diff --git a/C4/Database.pm b/C4/Database.pm
index 81ae6f3..dfa3c0c 100755 (executable)
--- a/C4/Database.pm
+++ b/C4/Database.pm
@@ -1,156 +1,33 @@
-package C4::Database; #asummes C4/Database
-
-#requires DBI.pm to be installed
-#uses DBD:Pg
+package C4::Database;
+
+# $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
 
 use strict;
 require Exporter;
 use DBI;
-use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
-  
-# 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;
-
-
-
-sub C4Connect  {
-  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 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;
-}
+use vars qw($VERSION @ISA @EXPORT);
 
+$VERSION = 0.01;
 
-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);
-}
+@ISA = qw(Exporter);
+@EXPORT = qw( );
 
-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)
+1;
+__END__