[MMBASE CVS] src/org/mmbase/module/builders AbstractServletBuilder.java

[Michiel Meeuwissen]

Update of /var/cvs/src/org/mmbase/module/builders
In directory james.mmbase.org:/tmp/cvs-serv25495/module/builders

Modified Files:
        AbstractServletBuilder.java 
Log Message:
added 'url' function


See also: http://cvs.mmbase.org/viewcvs/src/org/mmbase/module/builders


Index: AbstractServletBuilder.java
===================================================================
RCS file: /var/cvs/src/org/mmbase/module/builders/AbstractServletBuilder.java,v
retrieving revision 1.54
retrieving revision 1.55
diff -u -b -r1.54 -r1.55
--- AbstractServletBuilder.java 29 Jul 2008 08:38:53 -0000      1.54
+++ AbstractServletBuilder.java 7 Sep 2008 10:03:55 -0000       1.55
@@ -30,7 +30,7 @@
  *
  *
  * @author Michiel Meeuwissen
- * @version $Id: AbstractServletBuilder.java,v 1.54 2008/07/29 08:38:53 pierre 
Exp $
+ * @version $Id: AbstractServletBuilder.java,v 1.55 2008/09/07 10:03:55 
michiel Exp $
  * @since   MMBase-1.6
  */
 public abstract class AbstractServletBuilder extends MMObjectBuilder {
@@ -529,6 +529,22 @@
                 }
             });
 
+        addFunction(new NodeFunction<String>("url", new Parameter[] { 
Parameter.REQUEST, Parameter.CLOUD }) {
+                public String getFunctionValue(Node node, Parameters a) {
+                    String sp = node.getFunctionValue("servletpath", 
a).toString();
+                    MMObjectNode mmnode = node.getNumber() > 0 ?
+                        AbstractServletBuilder.this.getNode(node.getNumber()) :
+                        new MMObjectNode(AbstractServletBuilder.this, new 
org.mmbase.bridge.util.NodeMap(node));
+                    if(addFileName(mmnode, sp)) {
+                        StringBuilder buf = new StringBuilder(sp);
+                        buf.append('/');
+                        sp = getFileName(mmnode, buf).toString();
+                    }
+                    return sp;
+                }
+            });
+
+
     }
 
 
_______________________________________________
Cvs mailing list
Cvs@lists.mmbase.org
http://lists.mmbase.org/mailman/listinfo/cvs