loncom/interface/lonmysql.pm - diff

Return to lonmysql.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.38, 2009/02/01 22:03:42	version 1.41, 2019/11/20 18:02:55
Line 817 sub build_table_creation_request {	Line 817 sub build_table_creation_request {
unless($table_des->{'permanent'} eq 'yes') {	unless($table_des->{'permanent'} eq 'yes') {
$request.="COMMENT = 'temporary' ";	$request.="COMMENT = 'temporary' ";
}	}
$request .= "TYPE=MYISAM";	$request .= "ENGINE=MYISAM";
return $request,$table_id;	return $request,$table_id;
}	}

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;
}	}