get_real_fields($table, $record, \@real_fields));
}
- if( defined($extra_sql) ){
- if( $statement =~ /\sWHERE\s/i ){
- if( $extra_sql =~ /^\s*AND /i ){
- # correct format
- }elsif($extra_sql =~ /^\s*WHERE /i ){
- $extra_sql =~ s/WHERE /AND /i;
- }else{
- $extra_sql = " AND $extra_sql";
- }
- }else{
- if( $extra_sql =~ /^\s*AND /i ){
- $extra_sql =~ s/AND /WHERE /i;
- }elsif($extra_sql =~ /^\s*WHERE /i ){
- # correct format
- }else{
- $extra_sql = " WHERE $extra_sql";
- }
- }
- $statement .= " $extra_sql";
- }
+ $statement .= " $extra_sql" if defined($extra_sql);
$statement .= " $order_by" if defined($order_by);
push @statement, $statement;
=cut
-use Storable qw(thaw);
use Data::Dumper;
-use MIME::Base64;
sub process_batch_import {
- my($job, $opt) = ( shift, shift );
+ my($job, $opt, $param) = @_;
my $table = $opt->{table};
my @pass_params = $opt->{params} ? @{ $opt->{params} } : ();
my %formats = %{ $opt->{formats} };
- my $param = thaw(decode_base64(shift));
warn Dumper($param) if $DEBUG;
my $files = $param->{'uploaded_files'}
Check/untaint phone numbers. May be null. If there is an error, returns
the error, otherwise returns false.
-Takes an optional two-letter ISO country code; without it or with unsupported
-countries, ut_phonen simply calls ut_alphan.
+Takes an optional two-letter ISO 3166-1 alpha-2 country code; without
+it or with unsupported countries, ut_phonen simply calls ut_alphan.
=cut
defined($scalar) ? $scalar : '';
}
-=item count [ WHERE ]
+=item count [ WHERE [, PLACEHOLDER ...] ]
Convenience method for the common case of "SELECT COUNT(*) FROM table",
with optional WHERE. Must be called as method on a class with an
my $table = $self->table or die 'count called on object of class '.ref($self);
my $sql = "SELECT COUNT(*) FROM $table";
$sql .= " WHERE $where" if $where;
- $self->scalar_sql($sql);
+ $self->scalar_sql($sql, @_);
}
=back