|
|
| version 1.32, 2001/03/21 16:48:19 | version 1.305, 2001/09/10 15:51:41 |
|---|---|
| Line 1 | Line 1 |
| @main[] | @main[] |
| <form method=post> | ^testdom2[] |
| (^$form:name=$form:name)<BR> | #^testdom1[] |
| <input name=name value="^default[$form:name;םו חםא]"> | #^testdom0[] |
| <input type=submit> | |
| </form> | |
| @default[test;def] | @testdom2[] |
| ^if(^test.length[]){$test}{$def} | $dom[^dom::load[test.xml]] |
| #^dom.save[$.encoding[windows-1251];write.xml] | |
| #^dom.save[;write.xml] | |
| ^dom.save[$.encoding[windows-1251];write.xml] | |
| @exception[origin;source;comment;type;code] | @testdom1[] |
| ERROR: | $dom[^dom::load[test.xml]] |
| ^if(def $source){$origin '$source'} | $dom[^dom.xslt[test.xsl;$.param1(48)]] |
| ${comment}. | $response:body[^dom.file[windows-1251]] |
| ^if(def $type){type=$type} | |
| ^if(def $code){code=$code} | @testdom0[] |
| $dom[^dom::load[test.xml]] | |
| ^dom.save[windows-1251;write.xml] | |
| ^dom.string[windows-1251] | |
| $פאיכ[^dom.file[windows-1251]] | |
| ^פאיכ.save[binary;writefile.xml] | |
| $response:body[$פאיכ] | |
| OK | |