view release on metacpan or  search on metacpan

lib/Apache/Voodoo/Table.pm  view on Meta::CPAN

253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
        # if there wasn't a successful add, then there's no details :)
        return unless $self->{'success'};
 
        return $self->{'add_details'} || [];
}
 
sub add_insert_callback {
        my $self    = shift;
        my $sub_ref = shift;
 
        push(@{$self->{'insert_callbacks'}},$sub_ref);
}
 
sub add_update_callback {
        my $self    = shift;
        my $sub_ref = shift;
 
        push(@{$self->{'update_callbacks'}},$sub_ref);
}
 
sub list_param_parser {
        my $self    = shift;
        my $sub_ref = shift;
 
        $self->{'list_param_parser'} = $sub_ref;
}
 
sub validate_add {
        my $self   = shift;
        my $p      = shift;
 
        my $dbh    = $p->{'dbh'};
        my $params = $p->{'params'};
 
        my $errors = {};
 
        # call each of the insert callbacks
        foreach (@{$self->{'insert_callbacks'}}) {
                my $callback_errors = $_->($dbh,$params);
                @{$errors}{keys %{$callback_errors}} = values %{$callback_errors};
        }
 
        # do all the normal parameter checking
        my ($values,$e) = $self->{valid}->validate($params);
 
        # copy the errors from the process_params
        $errors = { %{$errors}, %{$e} } if ref($e) eq "HASH";

lib/Apache/Voodoo/Table.pm  view on Meta::CPAN

338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
my $p      = shift;
 
my $dbh    = $p->{'dbh'};
my $params = $p->{'params'};
 
unless ($params->{$self->{'pkey'}} =~ /$self->{'pkey_regexp'}/) {
        return $self->display_error("Invalid ID");
}
 
my $errors = {};
# call each of the update callbacks
foreach (@{$self->{'update_callbacks'}}) {
        # call back should return a list of error strings
        my $callback_errors = $_->($dbh,$params);
        @{$errors}{keys %{$callback_errors}} = values %{$callback_errors};
}
 
# run the standard error checks
my ($values,$e) = $self->{valid}->validate($params);
 
# copy the errors from the process_params
$errors = { %{$errors}, %{$e} } if ref($e) eq "HASH";

lib/Apache/Voodoo/Validate.pm  view on Meta::CPAN

30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
        my $sub_ref = shift;
 
        #unless (defined($context)) {
        #       Apache::Vodooo::Exception::RunTime->throw("add_callback requires a context name as the first parameter");
        #}
 
        unless (ref($sub_ref) eq "CODE") {
                Apache::Vodooo::Exception::RunTime::BadConfig->throw("add_callback requires a subroutine reference as the second paramter");
        }
 
        #push(@{$self->{'callbacks'}->{$context}},$sub_ref);
        $self->{'vc'} = $sub_ref;
}
 
sub set_error_formatter {
        my $self    = shift;
        my $sub_ref = shift;
 
        if (ref($sub_ref) eq "CODE") {
                $self->{'ef'} = $sub_ref;
        }