loncom/interface/lonmysql.pm - diff

Return to lonmysql.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.24, 2004/08/20 01:27:05	version 1.25, 2004/12/20 19:53:36
Line 556 sub update_table_info {	Line 556 sub update_table_info {
#	#
my @info=$sth->fetchrow_array;	my @info=$sth->fetchrow_array;
for (my $i=0;$i<= $#info ; $i++) {	for (my $i=0;$i<= $#info ; $i++) {
$Tables{$tablename}->{$tabledesc[$i]}= $info[$i];	if ($tabledesc[$i] !~ /^(Create_\|Update_\|Check_)time$/) {
	$Tables{$tablename}->{$tabledesc[$i]}=
	&unsqltime($info[$i]);
	} else {
	$Tables{$tablename}->{$tabledesc[$i]}= $info[$i];
	}
}	}
#	#
# Determine the column order	# Determine the column order
Line 580 sub update_table_info {	Line 585 sub update_table_info {
$debugstring = "Retrieved table info for $tablename";	$debugstring = "Retrieved table info for $tablename";
return 1;	return 1;
}	}

	###############################

	=pod

	=item &table_information()

	Inputs: table id

	Returns: hash with the table status

	=cut

	###############################
	sub table_information {
	my $table_id=shift;
	if (&update_table_info($table_id)) {
	return %{$Tables{$table_id}};
	} else {
	return ();
	}
	}

###############################	###############################

=pod	=pod
Line 592 Returns: array with column order	Line 620 Returns: array with column order

=cut	=cut

	###############################
sub col_order {	sub col_order {
my $table_id=shift;	my $table_id=shift;
if (&update_table_info($table_id)) {	if (&update_table_info($table_id)) {