Roxen.git / server / base_server / html.pike

version» Context lines:

Roxen.git/server/base_server/html.pike:1:   // This file is part of Roxen WebServer.   // Copyright © 1996 - 2009, Roxen IS. - // $Id: html.pike,v 1.17 2009/05/07 14:15:52 mast Exp $ + // $Id$      #pragma strict_types      string input(string name, string value, void|int size,    void|mapping(string:string) args, void|int xml)   {    if(!args)    args=([]);    else    args+=([]);       args->name=name;    args->value=value;    if(size)    args->size=(string)size;       string render="<input";    -  foreach(indices(args), string attr) { +  foreach([array(string)]indices(args), string attr) {    render+=" "+attr+"=";    if(!has_value(args[attr], "\"")) render+="\""+args[attr]+"\"";    else if(!has_value(args[attr], "'")) render+="'"+args[attr]+"'";    else render+="\""+replace(args[attr], "'", "&#39;")+"\"";    }       if(xml) return render+" />";    return render+">";   }