r1303@llin: dpavlin | 2007-06-26 19:46:53 +0200

 added dump for missing_subfield

git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@875 07558da8-63fa-0310-ba24-9fe276d99e06

diff --git a/lib/WebPAC/Validate.pm b/lib/WebPAC/Validate.pm
index 3c0f65b..a86f841 100644 (file)
--- a/lib/WebPAC/Validate.pm
+++ b/lib/WebPAC/Validate.pm
@@ -273,6 +273,7 @@ sub validate_rec {
 #                                      $errors->{dump} = $rec_dump if ($rec_dump);
                                } elsif (ref($v) ne 'HASH') {
                                        $errors->{$f}->{missing_subfield} = join(",", @{ $r->{$f} }) . " required";
+                                       $errors->{$f}->{dump} = $v;
                                        next;
                                } else {
 

diff --git a/t/1-validate.t b/t/1-validate.t
index 70a32f9..8b62d47 100755 (executable)
--- a/t/1-validate.t
+++ b/t/1-validate.t
@@ -163,7 +163,7 @@ test_v({
 
 my $expected_error = {
    900 => { not_repeatable => "probably bug in parsing input data" },
-   901 => { missing_subfield => "a required" },
+   901 => { missing_subfield => "a required", "dump" => "baz" },
    902 => {
             "dump"   => "^a1^b1^b2",
             subfield => { extra => { a => 1 }, extra_repeatable => { b => 1 } },