121 |
my $path = $rec->get_header('Node-path'); |
my $path = $rec->get_header('Node-path'); |
122 |
my $kind = $rec->get_header('Node-kind'); |
my $kind = $rec->get_header('Node-kind'); |
123 |
if ( $path ) { |
if ( $path ) { |
124 |
$rec->set_header('Node-path', remap($path,$kind) ); |
my $new_path = remap($path,$kind); |
125 |
|
if ( $new_path eq '' ) { |
126 |
|
warn "##> skipped $kind $path\n"; |
127 |
|
next; |
128 |
|
} |
129 |
|
$rec->set_header('Node-path', $new_path ); |
130 |
if ( $path = $rec->get_header('Node-copyfrom-path') ) { |
if ( $path = $rec->get_header('Node-copyfrom-path') ) { |
131 |
$rec->set_header('Node-copyfrom-path', remap($path,$kind) ); |
$rec->set_header('Node-copyfrom-path', remap($path,$kind) ); |
132 |
} |
} |