Monotone-Parent: e882dd493394b515a79fea37ddd165ef2da04de0

Monotone-Revision: d7355e980d99c04e1e5eb5def96cba208b810cd2

Monotone-Author: wsourdeau@inverse.ca
Monotone-Date: 2007-03-29T18:04:41
Monotone-Branch: ca.inverse.sogo

UI/WebServerResources/UIxMailEditor.js

@@ -1,5 +1,24 @@
 var contactSelectorAction = 'mailer-contacts';
 
+function onContactAdd() {
+  var selector = null;
+  var selectorURL = '?popup=YES&selectorId=mailer-contacts';
+ 
+  urlstr = ApplicationBaseURL;
+  if (urlstr[urlstr.length-1] != '/')
+    urlstr += '/';
+  urlstr += ("../../" + UserLogin + "/Contacts/"
+             + contactSelectorAction + selectorURL);
+//   log (urlstr);
+  var w = window.open(urlstr, "Addressbook",
+                      "width=640,height=400,resizable=1,scrollbars=0");
+  w.selector = selector;
+  w.opener = this;
+  w.focus();
+
+  return false;
+ }
+
 function addContact(tag, fullContactName, contactId, contactName, contactEmail) {
   if (!mailIsRecipient(contactEmail)) {
     var neededOptionValue = 0;