|
A system error has just occured, and ResLogic support has been automatically notified.
Click here to go back.
Error DetailsCall Stack:
Error:Could not obtain missing column's table name. Exhausted all efforts to add missing column(CONJSURL) at d:/inetpub/wwwroot/wrm/perl/engine/Recordset/Recordset_Execute.pm line 237.
Call Stackadv_connect::check_error_for_fixable_probs(237)
adv_connect::adv_getRecordset(346)
sf_Table::getData_process_table(416)
sf_Table::getData_process_data(236)
sf_Table::getData(133)
Row_Object::getRawTpl(420)
Consumer::prep_screen_processing(312)
Consumer::perform_screen_processing(11)
Consumer::process_consumer(131)
Common_cgi::onPageLoad(176)
_start_cgi::CGI_Begin(27)
(eval)(34)
(eval)(33)
FCGI::IIS::_worker(54)
FCGI::IIS::import(15)
main::BEGIN(0)
(eval)(0)
Source code of problem function:
{
package adv_connect;
use strict 'refs';
201: my($s_sql, $s_error) = @_;
202: my $h_in = $SmartForms::Global::h_in || Common_cgi::desperately_get_h_in();
204: if ($s_error =~ /index is corrupt/i or $s_error =~ /Invalid record number/i) {
205: die 'An index was found to be corrupt. Try rebuilding the indexes to fix this error.';
} elsif ($s_error =~ /pointer given was not valid/i) {
216: die 'Try rebuilding the indexes to fix this error.';
} elsif ($s_error =~ /The specified table, memo file, or index file was unable to be opened. Table name:\s*([\w\_]+)/i) {
219: $$h_in{'n_open_error_retries_left'} = 5 if not defined $$h_in{'n_open_error_retries_left'};
221: if ($$h_in{'n_open_error_retries_left'}--) {
222: warn 'open retry error...trying again in 0.5 seconds';
223: sleep 0.5;
224: return 2;
} else {
226: my $s_missing_table = $1;
227: die "this could mean a file is locked or a missing index in $s_missing_table is causing this problems. Try rebuilding the indexes as the next step.";
}
} elsif ($s_error =~ /Column not found:\s*([\w\_]+)/i) {
233: my $s_missing_col = $1;
236: if (not $$s_sql =~ /(\w+)\.$s_missing_col/) {
237: die "Could not obtain missing column's table name. Exhausted all efforts to add missing column($s_missing_col)";
}
240: my $s_missing_col_table = $1;
242: my $o_table = sf_Workspace::getTable($s_missing_col_table);
243: my $o_missing_col = $$o_table{'h_cols'}{$s_missing_col_table . '.' . $s_missing_col};
245: if ($o_missing_col) {
246: my $b_company_loaded = $$h_in{'_db_cache'}{'CURRENT_CONFIG'};
248: Common_benchmarks::add_warning("<h3>Missing column from database that is in the definition: $s_missing_col_table.$s_missing_col </h3>");
249: my $b_added_col;
251: $$h_in{'_Body'} .= "<h4>Missing field ($s_missing_col_table.$s_missing_col). The DB update routine needs to be run ASAP.</h4>" if not $$h_in{'alt_login'};
252: if (not $b_added_col) {
253: if ($b_company_loaded) {
254: $$o_missing_col{'COL_NAME'} = $$o_missing_col{'FULL_COL_NAME'} = $$o_missing_col{'TABLE_NAME'} = undef;
255: delete $$o_table{'h_cols'}{$s_missing_col_table . '.' . $s_missing_col};
}
257: my $s_col_format1 = $s_missing_col_table . '\\.' . $s_missing_col;
258: my $s_col_format2 = '\\[' . $s_missing_col_table . '\\]\\.\\[' . $s_
|