[open-ils-commits] r7519 - trunk/Open-ILS/xul/staff_client/server/cat

[svn at svn.open-ils.org]

Author: phasefx
Date: 2007-07-05 10:33:27 -0400 (Thu, 05 Jul 2007)
New Revision: 7519

Modified:
   trunk/Open-ILS/xul/staff_client/server/cat/z3950.js
Log:
require ALLOW_ALT_TCN perm to .override an overlay collision (which would try a different TCN).  I'm not exactly clear on what all of this means in English :)

Modified: trunk/Open-ILS/xul/staff_client/server/cat/z3950.js
===================================================================
--- trunk/Open-ILS/xul/staff_client/server/cat/z3950.js	2007-07-05 12:55:00 UTC (rev 7518)
+++ trunk/Open-ILS/xul/staff_client/server/cat/z3950.js	2007-07-05 14:33:27 UTC (rev 7519)
@@ -619,6 +619,20 @@
 										var msg = 'A record with TCN ' + r.payload.tcn + ' already exists.\nFIXME: add record summary here';
 										var title = 'Import Collision';
 										var btn1 = typeof r.payload.new_tcn == 'undefined' ? null : 'Overlay with alternate TCN ' + r.payload.new_tcn;
+										if (btn1) {
+											var robj = obj.network.simple_request(
+												'PERM_CHECK',[
+													ses(),
+													data.list.au[0].id(),
+													data.list.au[0].ws_ou(),
+													[ 'ALLOW_ALT_TCN' ]
+												]
+											);
+											if (typeof robj.ilsevent != 'undefined') {
+												obj.error.standard_unexpected_error_alert('check permission',E);
+											}
+											if (robj.length != 0) btn1 = null;
+										}
 										var btn2 = 'Cancel Import';
 										var p = obj.error.yns_alert(msg,title,btn1,btn2,null,'Check here to confirm this action');
 										obj.error.sdump('D_ERROR','option ' + p + 'chosen');