X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=bin%2Ftest-xml-update.pl;h=ad7f086704c3290b1f2b41546204be3387681af5;hp=8cc551c6dda3f17096977c0f3f36e959ed37d999;hb=b7dc5228a01abb3117bb654e108c9dd8f1b48f78;hpb=79914e0d6322665df7ca093d9d86ebb1e0093fe3 diff --git a/bin/test-xml-update.pl b/bin/test-xml-update.pl index 8cc551c..ad7f086 100755 --- a/bin/test-xml-update.pl +++ b/bin/test-xml-update.pl @@ -10,7 +10,7 @@ use warnings; use Getopt::Std; use ZOOM; use ZOOM::IRSpy::Utils qw(irspy_xpath_context modify_xml_document); -use ZOOM::IRSpy; # For _really_rewrite_record() +use ZOOM::IRSpy; # For _rewrite_zeerex_record() # This array copied from ../web/htdocs/details/edit.mc my @fields = @@ -80,7 +80,7 @@ print("Document modified with $nchanges change", $nchanges == 1 ? "" : "s", ": ", join(", ", map { $_->[2] } @changedFields), "\n"); if ($opts{w}) { - ZOOM::IRSpy::_really_rewrite_record($conn, $xc->getContextNode(), $id); + ZOOM::IRSpy::_rewrite_zeerex_record($conn, $xc->getContextNode(), $id); print "Rewrote record '$id'\n"; }