jyapayne/nimforum
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fixes #33

Browse source
This commit is contained in:
Dominik Picheta 2014-12-08 22:15:32 +00:00
commit 5dc95b27cb
2 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
forms.tmpl
View file

@ -181,7 +181,7 @@
</div> </div>
<form action="${c.req.makeUri(action, false) & "#preview"}" method="POST"> <form action="${c.req.makeUri(action, false) & "#preview"}" method="POST">
#if action == "doreply": #if action == "doreply":
<input type="hidden" name="subject" value="${title}"/> ${HiddenField(c, "subject", title)}
#else: #else:
${FieldValid(c, "subject", "Subject:")} ${FieldValid(c, "subject", "Subject:")}
${TextWidget(c, "subject", title, maxlength=100)} ${TextWidget(c, "subject", title, maxlength=100)}

5
forum.nim
View file

@ -103,6 +103,11 @@ proc TextWidget(c: TForumData, name, defaultText: string,
return """<input type="text" name="$1" maxlength="$2" value="$3" $4/>""" % [ return """<input type="text" name="$1" maxlength="$2" value="$3" $4/>""" % [
name, $maxlength, x, if size != -1: "size=\"" & $size & "\"" else: ""] name, $maxlength, x, if size != -1: "size=\"" & $size & "\"" else: ""]
proc HiddenField(c: TForumData, name, defaultText: string): string =
let x = if defaultText != reuseText: defaultText
else: xmlEncode(c.req.params[name])
return """<input type="hidden" name="$1" value="$2"/>""" % [name, x]
proc TextAreaWidget(c: TForumData, name, defaultText: string): string = proc TextAreaWidget(c: TForumData, name, defaultText: string): string =
let x = if defaultText != reuseText: defaultText let x = if defaultText != reuseText: defaultText
else: xmlEncode(c.req.params[name]) else: xmlEncode(c.req.params[name])