+
+
+sub melm_handler {
+ my ($rule, $match) = @_;
+ my ($field, $subfield) = ($match =~ /([^\$]+)\$?(.*)/);
+ my $xpath = '/*/';
+
+ if ( $field =~ /^00/ ) {
+ $xpath .= $marc_prefix . ':controlfield[@tag=\'' . $field . '\']';
+ } else {
+ $xpath .= $marc_prefix . ':datafield[@tag=\'' . $field . '\']/' .
+ $marc_prefix . ':subfield';
+
+ if ( $subfield ne '' ) {
+ $xpath .= '[@code=\'' . $subfield . '\']';
+ }
+ }
+
+ return $xpath;
+}
+
+
+