From: Mike Taylor <mike@indexdata.com>
Date: Mon, 19 Mar 2007 18:50:22 +0000 (+0000)
Subject: Pass old ID into _really_rewrite_record()
X-Git-Tag: CPAN-v1.02~521
X-Git-Url: http://jsfdemo.indexdata.com/cgi-bin?a=commitdiff_plain;h=acfeb1b0ef864a801e45eb7281819877997a8d07;p=irspy-moved-to-github.git

Pass old ID into _really_rewrite_record()
---

diff --git a/bin/test-xml-update.pl b/bin/test-xml-update.pl
index 321142d..8cc551c 100755
--- a/bin/test-xml-update.pl
+++ b/bin/test-xml-update.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl -w
 
-# $Id: test-xml-update.pl,v 1.8 2007-01-24 09:28:02 mike Exp $
+# $Id: test-xml-update.pl,v 1.9 2007-03-19 18:50:22 mike Exp $
 #
 # 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"
@@ -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());
+    ZOOM::IRSpy::_really_rewrite_record($conn, $xc->getContextNode(), $id);
     print "Rewrote record '$id'\n";
 }
 
diff --git a/web/htdocs/details/edit.mc b/web/htdocs/details/edit.mc
index 6dfbf0e..d437ec0 100644
--- a/web/htdocs/details/edit.mc
+++ b/web/htdocs/details/edit.mc
@@ -1,4 +1,4 @@
-%# $Id: edit.mc,v 1.27 2007-03-19 13:36:51 mike Exp $
+%# $Id: edit.mc,v 1.28 2007-03-19 18:51:18 mike Exp $
 <%args>
 $op
 $id => undef
@@ -561,7 +561,7 @@ if ($update && @changedFields) {
 					     "e:metaInfo/e:dateModified" ] },
 				{ dateModified => isodate(time()) });
     die "Didn't set dateModified!" if !@x;
-    ZOOM::IRSpy::_really_rewrite_record($conn, $xc->getContextNode());
+    ZOOM::IRSpy::_really_rewrite_record($conn, $xc->getContextNode(), $id);
 }
 
 </%perl>