|
Lines 148-154
Will return undef if the record cannot be built
Link Here
|
| 148 |
|
148 |
|
| 149 |
sub record_strip_nonxml { |
149 |
sub record_strip_nonxml { |
| 150 |
|
150 |
|
| 151 |
my ($self, $params) = @_; |
151 |
my ( $self, $params ) = @_; |
| 152 |
|
152 |
|
| 153 |
my $record; |
153 |
my $record; |
| 154 |
my $marcxml_error; |
154 |
my $marcxml_error; |
|
Lines 159-165
sub record_strip_nonxml {
Link Here
|
| 159 |
$self->schema |
159 |
$self->schema |
| 160 |
); |
160 |
); |
| 161 |
}; |
161 |
}; |
| 162 |
if( $@ ){ |
162 |
if ($@) { |
| 163 |
$marcxml_error = $@; |
163 |
$marcxml_error = $@; |
| 164 |
chomp $marcxml_error; |
164 |
chomp $marcxml_error; |
| 165 |
warn $marcxml_error; |
165 |
warn $marcxml_error; |
|
Lines 167-173
sub record_strip_nonxml {
Link Here
|
| 167 |
} |
167 |
} |
| 168 |
|
168 |
|
| 169 |
$params->{record} = $record; |
169 |
$params->{record} = $record; |
| 170 |
return $self->record( $params ); |
170 |
return $self->record($params); |
| 171 |
} |
171 |
} |
| 172 |
|
172 |
|
| 173 |
=head2 Internal methods |
173 |
=head2 Internal methods |
| 174 |
- |
|
|