Index: openacs-4/packages/acs-templating/www/resources/xinha-nightly/plugins/OacsAttach/oacs-attach.css
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/resources/xinha-nightly/plugins/OacsAttach/oacs-attach.css,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-templating/www/resources/xinha-nightly/plugins/OacsAttach/oacs-attach.css	18 Aug 2006 18:37:46 -0000	1.1
@@ -0,0 +1,20 @@
+/* styles for the LearnAtWU /HTMLArea */
+ilink {
+	background-image:url(/resources/acs-subsite/action-link-marker.png);
+	padding-left:12px;
+	background-repeat:no-repeat;
+	background-position:left;
+	border-bottom:1px dotted red;
+	color:red;
+	display:inline;
+}
+
+keyref {
+	background-image:url(/resources/acs-subsite/action-link-marker.png);
+	padding-left:12px;
+	background-repeat:no-repeat;
+	background-position:left;
+	border-bottom:1px dotted green;
+	color:green;
+	display:inline;
+}
\ No newline at end of file
Index: openacs-4/packages/acs-templating/www/resources/xinha-nightly/plugins/OacsAttach/oacs-attach.js
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/resources/xinha-nightly/plugins/OacsAttach/oacs-attach.js,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/acs-templating/www/resources/xinha-nightly/plugins/OacsAttach/oacs-attach.js	18 Aug 2006 18:37:46 -0000	1.1
@@ -0,0 +1,302 @@
+// File-Selector Plugin for xinha
+// Developed in the Learn@WU Project of the
+// Vienna University of Economics and Business Administration
+// www.wu-wien.ac.at
+//
+// Authors: G�nter Ernst guenter.ernst@wu-wien.ac.at
+//     Gustaf Neumann (cleanup and addons)
+//
+// Distributed under the same terms as HTMLArea itself.
+// This notice MUST stay intact for use (see license.txt).
+//
+
+// HTMLArea.loadStyle("oacs-attach.css", "OacsAttach");
+
+OacsAttach._pluginInfo = {
+    name          : "OacsAttach",
+    version       : "0.2",
+    developer     : "Guenter Ernst",
+    developer_url : "http://learn.wu-wien.ac.at",
+    c_owner       : "Guenter Ernst",
+    sponsor       : "Wirtschaftsuniversit�t Wien",
+    sponsor_url   : "http://www.wu-wien.ac.at",
+    license       : "htmlArea"
+};
+
+function OacsAttach(editor) {
+    var args = arguments;
+    this.editor = editor;
+    var ArgsString = args[1].toString();
+    var additionalArgs = ArgsString.split(",");
+    OacsAttach.package_id = this.editor.config.package_id;
+    if (!this.editor.config.attach_parent_id) {
+        OacsAttach.attach_parent_id = OacsAttach.package_id;
+    } else {
+        OacsAttach.attach_parent_id = this.editor.config.attach_parent_id;
+    }
+    OacsAttach.folder_id     = this.editor.config.folder_id;
+    OacsAttach.file_types    = this.editor.config.file_types;
+    OacsAttach.fullscreen_mode = additionalArgs[1]; 
+	
+    var cfg = editor.config;
+    var tt = OacsAttach.I18N;
+    var bl = OacsAttach.btnList;
+    var self = this;
+
+    //alert(this.editor.config.fs_package_id);
+
+    // register the toolbar buttons provided by this plugin
+    for (var i = 0; i < bl.length; ++i) {
+	var btn = bl[i];
+	var id = "LW-" + btn[0];
+	cfg.registerButton(id, HTMLArea._lc(btn[1], "OacsAttach"), editor.imgURL(btn[0] + ".gif", "OacsAttach"), false,
+			   function(editor, id) {
+			       // dispatch button press event
+			       self.buttonPress(editor, id);
+			   });
+		
+	switch (id) {
+	case "LW-insert-ilink":
+	    cfg.addToolbarElement(id, "createlink", +1);
+	    break;
+	case "LW-insert-image":
+	    cfg.addToolbarElement(id, "insertimage", +1);
+	    break;
+	}
+    }
+    cfg.hideSomeButtons(" insertimage ");
+    cfg.pageStyle = "@import url(" + _editor_url + 
+	"plugins/OacsAttach/oacs-attach.css) screen; "
+};
+
+OacsAttach.btnList = [
+		  ["insert-ilink", "Insert Internal Link"],
+		  ["insert-image", "Insert Image"],
+		  ];
+
+OacsAttach.prototype.buttonPress = function(editor, id) {
+    OacsAttach.editor = editor;
+    switch (id) {
+    case "LW-insert-ilink":
+	this.insertInternalLink();
+	break;
+    case "LW-insert-image":
+	this.insertImage();
+	break;
+    case "LW-close":
+	window.close();
+	break;
+    }
+};
+
+// Called when the user clicks on "InsertLink" button.  If the link is already
+// there, it will just modify it's properties.
+OacsAttach.prototype.insertInternalLink = function(link) {
+    var editor = OacsAttach.editor;	// for nested functions
+    var outparam = null;
+
+    if (typeof link == "undefined") {
+	link = editor.getParentElement();
+	if (link && !/^a$/i.test(link.tagName))
+	    link = null;
+    }
+    if (link) {
+	outparam = {
+	    f_href   : HTMLArea.is_ie ? editor.stripBaseURL(link.href) : 
+	    link.getAttribute("href"),
+	    f_title  : link.title,
+	    f_target : link.target,
+	    f_usetarget : link.f_usetarget
+	};
+    } else {
+	outparam = {
+	    f_href   : '',
+	    f_title  : '',
+	    f_target : '',
+	    f_usetarget : ''
+	};
+    }
+
+    // normally, allow-tcl-page is turned of, so the link shows under /resources
+    // the tcl source code, but not the result.
+    // var PopupUrl = _editor_url + 
+    //   "/acs-templating/scripts/xinha/insert-image.tcl?fs_package_id=" + 
+    // fs_package_id;
+
+    var PopupUrl = "/acs-templating/scripts/xinha/insert-ilink?";
+    if (typeof OacsAttach.fs_package_id != "undefined") {
+	PopupUrl = PopupUrl + "&fs_package_id=" + OacsAttach.fs_package_id;
+    }
+    if (typeof OacsAttach.folder_id != "undefined") {
+	PopupUrl = PopupUrl + "&folder_id=" + OacsAttach.folder_id;
+    }
+    if (typeof OacsAttach.file_types != "undefined") {
+	PopupUrl = PopupUrl + "&file_types=" + OacsAttach.file_types;
+    }
+
+    Dialog(PopupUrl, function(param) {
+	       if (!param) {	// user must have pressed Cancel
+		   return false;
+	       }
+	       var ilink = editor._doc.createElement("a");
+	       ilink.href = param.f_href.trim();
+	       ilink.innerHTML = param.f_title.trim();
+	       ilink.title = param.f_title.trim();
+	       ilink.setAttribute("target", param.f_target.trim());
+	       //ilink.setAttribute("use_target",param.f_usetarget.trim());
+
+	       if (!link || link == null) {
+		   if (HTMLArea.is_ie) {
+		       editor.insertHTML(ilink.outerHTML);
+		   } else {
+		       editor.insertNodeAtSelection(ilink);
+		   }
+	       } else { 
+		   var parent = link.parentNode;
+		   parent.replaceChild(ilink, link);
+	       }
+	   }, outparam);
+};
+
+
+OacsAttach.prototype.insertInternalLinkTlf = function(link) {
+    var editor = OacsAttach.editor;
+    var outparam = null;
+	
+    if (typeof link == "undefined") {
+	link = editor.getParentElement();
+	if (link && /^a$/i.test(link.tagName)) {
+	    alert("This is an external link and cannot be edited");
+	    return false;
+	}
+	if (link && ((/^ilink$/i.test(link.tagName)== false) && 
+		     (/^keyref$/i.test(link.tagName) == false) ))
+	    link = null;
+    }
+	
+	
+    if (link) {
+	outparam = {
+	    f_title       : link.getAttribute("title"),
+	    f_area        : link.getAttribute("area"),
+	    f_restype     : link.getAttribute("restype"),
+	    f_shortname   : link.getAttribute("shortname"),
+	    f_presentation: link.getAttribute("presentation"),
+	    f_label       : link.innerHTML
+	};
+    }
+
+		
+    var PopupUrl = "/acs-templating/scripts/xinha/insert-ilink?";
+    if (typeof OacsAttach.fs_package_id != "undefined") {
+	PopupUrl = PopupUrl + "&fs_package_id=" + OacsAttach.fs_package_id;
+    }
+    if (typeof OacsAttach.folder_id != "undefined") {
+	PopupUrl = PopupUrl + "&folder_id=" + OacsAttach.folder_id;
+    }
+	
+    Dialog(PopupUrl, function(param) {
+	       if (!param)
+		   return false;
+		
+	       // create new ilink
+	       var iLinkTagName;
+	       if (param.f_restype.trim()== "glo") {
+		   iLinkTagName = "keyref";
+	       } else {
+		   iLinkTagName = "ilink";
+	       }
+		
+	       var iLink = editor._doc.createElement(iLinkTagName);
+	       iLink.innerHTML = param.f_title.trim();
+	       iLink.title = param.f_title.trim();
+	       iLink.setAttribute("area", param.f_area.trim());
+	       iLink.setAttribute("shortname",param.f_shortname.trim());
+	       iLink.setAttribute("restype",param.f_restype.trim());		
+		
+	       // 		
+	       if (!link || link == null) {
+		   if (HTMLArea.is_ie) {
+		       editor.insertHTML(iLink.outerHTML);
+		   } else {
+		       editor.insertNodeAtSelection(iLink);
+		   }
+	       } else { 
+		   var iLinkParent = link.parentNode;
+		   iLinkParent.replaceChild(iLink, link);
+	       }
+	       // 		var selection = editor._getSelection();
+	       // 		selection.removeAllRanges();
+	       editor.updateToolbar();
+	   }, outparam);
+};
+
+
+// Called when the user clicks on "InsertImage" button.  If an image is already
+// there, it will just modify it's properties.
+OacsAttach.prototype.insertImage = function(image) {
+    var editor = OacsAttach.editor;	// for nested functions
+    var fs_package_id = OacsAttach.fs_package_id;
+    var outparam = null;
+    if (typeof image == "undefined") {
+	image = editor.getParentElement();
+	if (image && !/^img$/i.test(image.tagName))
+	    image = null;
+    }
+    if (image) outparam = {
+	f_url    : HTMLArea.is_ie ? editor.stripBaseURL(image.src) : 
+	image.getAttribute("src"),
+	f_alt    : image.alt,
+	f_border : image.border,
+	f_align  : image.align,
+	f_vert   : image.vspace,
+	f_horiz  : image.hspace
+    };
+
+    // normally, allow tcl page is turned of, so the link shows under /resources
+    // the source code, but not the result.
+    // var PopupUrl = _editor_url + 
+    //   "/acs-templating/scripts/xinha/insert-image.tcl?fs_package_id=" + 
+    // fs_package_id;
+
+    var PopupUrl = "/acs-templating/scripts/xinha/insert-file?";
+    if (typeof OacsAttach.attach_parent_id != "undefined") {
+	PopupUrl = PopupUrl + "&parent_id=" + OacsAttach.attach_parent_id;
+    }
+    if (typeof OacsAttach.folder_id != "undefined") {
+	PopupUrl = PopupUrl + "&folder_id=" + OacsAttach.folder_id;
+    }
+	
+    Dialog(PopupUrl, function(param) {
+	       if (!param) {	// user must have pressed Cancel
+		   return false;
+	       }
+	       var img = image;
+	       if (!img) {
+		   var sel = editor._getSelection();
+		   var range = editor._createRange(sel);
+		   editor._doc.execCommand("insertimage", false, param.f_url);
+		   if (HTMLArea.is_ie) {
+		       img = range.parentElement();
+		       // wonder if this works...
+		       if (img.tagName.toLowerCase() != "img") {
+			   img = img.previousSibling;
+		       }
+		   } else {
+		       img = range.startContainer.previousSibling;
+		   }
+	       } else {
+		   img.src = param.f_url;
+	       }
+	       for (field in param) {
+		   var value = param[field];
+		   switch (field) {
+		   case "f_alt"    : img.alt	 = value; break;
+		   case "f_border" : img.border = parseInt(value || "0"); break;
+		   case "f_align"  : img.align	 = value; break;
+		   case "f_vert"   : img.vspace = parseInt(value || "0"); break;
+		   case "f_horiz"  : img.hspace = parseInt(value || "0"); break;
+		   }
+	       }
+	   }, outparam);
+};
Index: openacs-4/packages/acs-templating/www/resources/xinha-nightly/plugins/OacsAttach/img/close.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/resources/xinha-nightly/plugins/OacsAttach/img/close.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/acs-templating/www/resources/xinha-nightly/plugins/OacsAttach/img/insert-ilink.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/resources/xinha-nightly/plugins/OacsAttach/img/insert-ilink.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/acs-templating/www/resources/xinha-nightly/plugins/OacsAttach/img/insert-image.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/resources/xinha-nightly/plugins/OacsAttach/img/insert-image.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/acs-templating/www/resources/xinha-nightly/plugins/OacsAttach/img/qmark.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/resources/xinha-nightly/plugins/OacsAttach/img/qmark.gif,v
diff -u
Binary files differ
Index: openacs-4/packages/acs-templating/www/resources/xinha-nightly/plugins/OacsAttach/img/up.gif
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/www/resources/xinha-nightly/plugins/OacsAttach/img/up.gif,v
diff -u
Binary files differ