loncom/interface/lonmysql.pm - diff

Return to lonmysql.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.39, 2011/05/31 02:40:02	version 1.41, 2019/11/20 18:02:55
Line 1259 Fixes a table name so that it will work	Line 1259 Fixes a table name so that it will work
sub fix_table_name {	sub fix_table_name {
my ($name) = @_;	my ($name) = @_;
$name =~ s/^(\d+[eE]\d+)/_$1/;	$name =~ s/^(\d+[eE]\d+)/_$1/;
	$name =~ s/\W//g;
return $name;	return $name;
}	}

Line 1287 sub unsqltime {	Line 1288 sub unsqltime {
my $timestamp=shift;	my $timestamp=shift;
if ($timestamp=~/^(\d+)\-(\d+)\-(\d+)\s+(\d+)\:(\d+)\:(\d+)$/) {	if ($timestamp=~/^(\d+)\-(\d+)\-(\d+)\s+(\d+)\:(\d+)\:(\d+)$/) {
$timestamp=&maketime('year'=>$1,'month'=>$2,'day'=>$3,	$timestamp=&maketime('year'=>$1,'month'=>$2,'day'=>$3,
'hours'=>$4,'minutes'=>$5,'seconds'=>$6);	'hours'=>$4,'minutes'=>$5,'seconds'=>$6,'dlsav'=>-1);
}	}
return $timestamp;	return $timestamp;
}	}