X-Git-Url: http://git.indexdata.com/?p=irspy-moved-to-github.git;a=blobdiff_plain;f=bin%2Ftest-xml-update.pl;h=f9b37fd1d5762e1b2e41d51af7256868805da926;hp=8cc551c6dda3f17096977c0f3f36e959ed37d999;hb=7cfd357a4adad76aa368d2198f3756c83e86a708;hpb=b9ca08e394940033862cce3fd077deb68ac3864b

diff --git a/bin/test-xml-update.pl b/bin/test-xml-update.pl
index 8cc551c..f9b37fd 100755
--- a/bin/test-xml-update.pl
+++ b/bin/test-xml-update.pl
@@ -1,6 +1,4 @@
-#!/usr/bin/perl -w
-
-# $Id: test-xml-update.pl,v 1.9 2007-03-19 18:50:22 mike Exp $
+#!/usr/bin/perl
 #
 # Run like this:
 #	perl -I ../lib ./test-xml-update.pl bagel.indexdata.dk:210/gils title "Test Database" author "Adam" description "This is a nice database"
@@ -10,7 +8,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 +78,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";
 }