version 1.14, 2003/06/02 16:44:01
|
version 1.17, 2003/12/27 01:44:49
|
Line 32 package Apache::lonmysql;
|
Line 32 package Apache::lonmysql;
|
use strict; |
use strict; |
use DBI; |
use DBI; |
use Apache::lonnet(); |
use Apache::lonnet(); |
|
use POSIX qw(strftime mktime); |
|
|
|
|
###################################################################### |
###################################################################### |
###################################################################### |
###################################################################### |
Line 1000 sub remove_from_table {
|
Line 1002 sub remove_from_table {
|
return undef if (!defined(&connect_to_db())); |
return undef if (!defined(&connect_to_db())); |
# |
# |
$table_id = &translate_id($table_id); |
$table_id = &translate_id($table_id); |
my $command = 'DELETE FROM '.$table_id.' WHERE '.$dbh->quote($column). |
my $command = 'DELETE FROM '.$table_id.' WHERE '.$column. |
" LIKE BINARY ".$dbh->quote($value); |
" LIKE BINARY ".$dbh->quote($value); |
my $sth = $dbh->prepare($command); |
my $sth = $dbh->prepare($command); |
$sth->execute(); |
unless ($sth->execute()) { |
if ($sth->err) { |
|
$errorstring = "ERROR on execution of ".$command."\n".$sth->errstr; |
$errorstring = "ERROR on execution of ".$command."\n".$sth->errstr; |
return undef; |
return undef; |
} |
} |
Line 1038 sub drop_table {
|
Line 1039 sub drop_table {
|
return undef; |
return undef; |
} |
} |
$debugstring = $command; |
$debugstring = $command; |
|
delete($Tables{$table_id}); # remove any knowledge of the table |
return 1; # if we got here there was no error, so return a 'true' value |
return 1; # if we got here there was no error, so return a 'true' value |
} |
} |
|
|
|
|
|
|
|
|
|
# ---------------------------- convert 'time' format into a datetime sql format |
|
sub sqltime { |
|
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = |
|
localtime(&unsqltime($_[0])); |
|
$mon++; $year+=1900; |
|
return "$year-$mon-$mday $hour:$min:$sec"; |
|
} |
|
|
|
sub maketime { |
|
my %th=@_; |
|
return POSIX::mktime(($th{'seconds'},$th{'minutes'},$th{'hours'}, |
|
$th{'day'},$th{'month'}-1, |
|
$th{'year'}-1900,0,0,$th{'dlsav'})); |
|
} |
|
|
|
|
|
######################################### |
|
# |
|
# Retro-fixing of un-backward-compatible time format |
|
|
|
sub unsqltime { |
|
my $timestamp=shift; |
|
if ($timestamp=~/^(\d+)\-(\d+)\-(\d+)\s+(\d+)\:(\d+)\:(\d+)$/) { |
|
$timestamp=&maketime('year'=>$1,'month'=>$2,'day'=>$3, |
|
'hours'=>$4,'minutes'=>$5,'seconds'=>$6); |
|
} |
|
return $timestamp; |
|
} |
|
|
|
|
1; |
1; |
|
|
__END__; |
__END__; |