|
version 1.17, 2003/12/27 01:44:49
|
version 1.18, 2003/12/27 16:58:36
|
|
Line 559 sub update_table_info {
|
Line 559 sub update_table_info {
|
| $debugstring = "Retrieved table info for $tablename"; |
$debugstring = "Retrieved table info for $tablename"; |
| return 1; |
return 1; |
| } |
} |
| |
############################### |
| |
|
| |
=pod |
| |
|
| |
=item &col_order() |
| |
|
| |
Inputs: table id |
| |
|
| |
Returns: array with column order |
| |
|
| |
=cut |
| |
|
| |
|
| |
sub col_order { |
| |
my $table_id=shift; |
| |
if (&update_table_info($table_id)) { |
| |
return @{$Tables{$table_id}->{'Col_order'}}; |
| |
} else { |
| |
return (); |
| |
} |
| |
} |
| ############################### |
############################### |
| |
|
| =pod |
=pod |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonmysql.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface