use DBI;
use Getopt::Std;
-###################################################
-# GLOBALS
-$dbname = "phpgroupware";
-$dbhost = "192.168.0.2"; # This can be an IP address or name
-$dbport = 3306;
-$dbuser = "phpgroupware"; # This may require an additional '\@localhost'
-$dbpass = "phpgroupware";
-###################################################
+$mydir = `cd \$(dirname $0) 2>/dev/null; pwd`; chomp($mydir);
+unshift @INC,("$mydir/../setup");
+if( -f "$mydir/../setup/db_config.local") { require "db_config.local"; }
+else { require "db_config"; }
%hometeaching_data = ();
%membership_data = ();
$companionship = $hometeaching_data{$index}{'Comp ID'};
$sth = $dbh->prepare("update eq_family set companionship='$companionship' where name_id='$name_id'");
$sth->execute or die "-E- DB error: $DBI::errstr\n";
+
+ # In addition to changing the hometeaching assignment, update the eq_visit table
+ # so that all previous visits made by the old hometeaching companionship, get
+ # updated with the id of the new companionship. This will allow us to go in and
+ # edit the history as needed for the family being hometaught under their new
+ # companionship. Otherwise, we will not be able to update this history.
+ #$family_id = $data[0]->{family};
+ #print " update eq_visit set companionship='$companionship' where family='$family_id' and companionship!='0'\n";
+ #$sth = $dbh->prepare("update eq_visit set companionship='$companionship' where companionship='$old_companionship'");
+ #$sth->execute or die "-E- DB error: $DBI::errstr\n";
}
}
}
###################################################
# Open a connection to the database
-$dbh=DBI->connect("dbi:mysql:dbname=$dbname;host=$dbhost;port=$dbport",$dbuser,$dbpass,{
+$dbh=DBI->connect("dbi:mysql:dbname=$dbname:host=$dbhost:port=$dbport",$dbuser,$dbpass,{
AutoCommit=>0,
PrintError=>0}) or print "Connect Failure:".$DBI::errstr."\n" and exit 2;