Commit dfe70ab73c68a049162731ff86889bdeb63b77a3
1 parent
f815f1d6
Fix for prefix removing
Showing
1 changed file
with
2 additions
and
1 deletions
Show diff stats
calexium_lib/web/CXM_making_a_web_site.anubis
| ... | ... | @@ -2038,6 +2038,7 @@ define (List(Web_arg) lwa) -> Separated_Web_Args($State) |
| 2038 | 2038 | { |
| 2039 | 2039 | web_arg(n, value) then |
| 2040 | 2040 | with name = if substr(n,0,4) = "amp;" then substr(n, 4, length(n) - 4) else n, |
| 2041 | + println("--> " + name); | |
| 2041 | 2042 | if name = "s" then |
| 2042 | 2043 | swa(success(retrieve_state(value)),an1,op1) |
| 2043 | 2044 | else if name = "a" then |
| ... | ... | @@ -2045,7 +2046,7 @@ define (List(Web_arg) lwa) -> Separated_Web_Args($State) |
| 2045 | 2046 | else if name = "t" then |
| 2046 | 2047 | swa(ps1,an1,[web_arg("target",value) . op1]) |
| 2047 | 2048 | else |
| 2048 | - swa(ps1,an1,[wa_1 . op1]), | |
| 2049 | + swa(ps1,an1,[web_arg(name,value) . op1]), | |
| 2049 | 2050 | |
| 2050 | 2051 | upload(n,v,t) then |
| 2051 | 2052 | swa(ps1,an1,[wa_1 . op1]) | ... | ... |