Subversion Repositories VORC

Rev

Rev 229 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 229 Rev 230
Line 13... Line 13...
13
use Exporter 'import';
13
use Exporter 'import';
14
use cPanelUserConfig;
14
use cPanelUserConfig;
15
use DBI ();
15
use DBI ();
16
use WebDB;
16
use WebDB;
Line 17... Line 17...
17
 
17
 
Line 18... Line 18...
18
our @EXPORT = qw( byfield currentTime exportExcel fetchColEntries fetchDerbyNameWithRCid filter getData getDBConnection inArray notInArray uniq whereInArray printTablePage );
18
our @EXPORT = qw( byfield currentTime exportExcel fetchColEntries fetchDerbyNameWithRCid filter getFilterValue getData getDBConnection inArray notInArray uniq whereInArray printTablePage );
Line 19... Line 19...
19
 
19
 
20
my $internalDBH = WebDB::connect () || die "Unable to connect to Database\n\n";
20
my $internalDBH = WebDB::connect () || die "Unable to connect to Database\n\n";
Line 237... Line 237...
237
  } elsif ($colFilterTypeHash{$colName} eq 'none') {
237
  } elsif ($colFilterTypeHash{$colName} eq 'none') {
238
    return;
238
    return;
239
  }
239
  }
240
}
240
}
Line -... Line 241...
-
 
241
 
-
 
242
sub getFilterValue {
-
 
243
  my $colName = shift;
-
 
244
  return $FORM{"filter-${colName}"};
-
 
245
#  my $tmpFormValue = param ("filter-${colName}");
-
 
246
#  $tmpFormValue //= url_param ("filter-${colName}");
-
 
247
#  $tmpFormValue //= $FORM{"filter-${colName}"};
-
 
248
#  
-
 
249
#  return $tmpFormValue;
Line 241... Line 250...
241
 
250
}
242
 
251
 
243
sub getData {
252
sub getData {
244
  my $fields = shift;
253
  my $fields = shift;