View | Details | Raw Unified | Return to bug 29857
Collapse All | Expand All

(-)a/Koha/Exceptions/Exception.pm (-1 / +13 lines)
Lines 9-12 use Exception::Class ( Link Here
9
    },
9
    },
10
);
10
);
11
11
12
sub full_message {
13
    my $self = shift;
14
    my $msg = $self->description;
15
    my @fields;
16
    my $field_hash = $self->field_hash;
17
    while ( my ( $field, $value ) = each %$field_hash ) {
18
        push @fields, $field . " => " . $value;
19
    }
20
    return
21
      sprintf "Exception '%s' thrown '%s'" . ( @fields ? " with %s" : "" ) . "\n",
22
      ref($self), $msg, ( @fields ? join ', ', @fields : () );
23
}
24
12
1;
25
1;
13
- 

Return to bug 29857