-#!/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"
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 =
": ", 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";
}