(
"Link",
[undef],
"EMail",
[undef],
"hidden",
[undef],
"_amount",
0,
"_order",
undef,
"textarea",
[undef],
"Zahl",
[undef],
"Id",
[undef],
"_range",
undef,
"_entries",
[],
"_result",
"Beispiel",
"checkbox",
[undef],
"Code",
[undef],
"Datum",
[undef],
"text",
[undef],
"option",
[undef],
"radio",
[undef],
"_db",
"/iqws/Beispiel",
"_amount_query",
0,
"_offsets",
[]
)
Beispiel.fields
(
"Output",
[
undef,
"",
"",
"\$_ ne \"\"?'Ja':''",
"",
"",
"",
"\$_tdparam=\" align=right\"; \$_",
"\$_ eq \"\"?\"\":\"<a href=\\\"mailto:\$_\\\">\$_</a>\"",
"\$_=~ s'^http://''i;\$_ eq \"\"?\"\":'<a href=\"http://'.\$_.'\" target=\"_blank\">'.\$_.'</a>'",
"\$_tdparam.=\" align=right\" if index(\$_tdparam,\"align=\")<0; datum(\$_, 'Wochentag, Tag.Monatname.Jahr, Stunde:Minute') if defined \$_",
""
],
"Type",
[
"",
"text()",
"textarea()",
"checkbox",
"radio('Wert1\nWert2\nWert3')",
"option('Wert1\nWert2\nWert3')",
"hidden('HIDDEN')",
"text(7,undef,undef,undef,7)",
"text(30)",
"text(30)",
"datum(\"search\",'Tag.Monatname.Jahr, Stunde:Minute',undef, undef, \$_put{'_Datum_Jahr'}[0], \$_put{'_Datum_Monat'}[0], \$_put{'_Datum_Tag'}[0], \$_put{'_Datum_Stunde'}[0], \$_put{'_Datum_Minute'}[0], \$_put{'_Datum_Sekunde'}[0])",
""
],
"_raw",
{
"Delete" =>
[
undef,
undef,
undef,
undef,
undef,
undef,
undef,
undef,
undef,
undef,
undef,
undef
],
"Field" =>
[
"Id",
"text",
"textarea",
"checkbox",
"radio",
"option",
"hidden",
"Zahl",
"EMail",
"Link",
"Datum",
"Code"
],
"Id" => [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11],
"Index" => [1, 2, "", "", 2, 2, 2, 1, 2, 2, "", ""],
"Input" =>
[
"get_id",
"",
"",
"",
"",
"",
"",
"return \"\" if \$_ eq \"\";unless(/^\\s*-?\\d*(\\.\\d*)?\\s*\$/) { \$_errmsg=\"Das Feld \$_field darf nur eine Zahl enthalten.\"; return undef;}if(\$_<0) { \$_errmsg=\"Das Feld \$_field darf nicht kleiner als 0 sein.\"; return undef; }if(\$_>1000) { \$_errmsg=\"Das Feld \$_field darf nicht grösser als 1000 sein.\"; return undef; }sprintf(\"%.2f\",\$_)",
"if(\$_ ne \"\" && (index(\$_,\"\@\")<0 || index(\$_,\".\")<0)) { \$_errmsg=\"Die Eingabe für das Feld \$_field enthält kein At-Zeichen ( \@ ) und/oder keinen Punkt ( . ).\"; return undef; } \$_;",
"\$_;",
"datum(\"put\",'Tag.Monatname.Jahr, Stunde:Minute')",
""
],
"Javascript" => [undef, "", "", "", "", "", "", "", "", "", "", ""],
"Output" =>
[
undef,
"",
"",
"\$_ ne \"\"?'Ja':''",
"",
"",
"",
"\$_tdparam=\" align=right\"; \$_",
"\$_ eq \"\"?\"\":\"<a href=\\\"mailto:\$_\\\">\$_</a>\"",
"\$_=~ s'^http://''i;\$_ eq \"\"?\"\":'<a href=\"http://'.\$_.'\" target=\"_blank\">'.\$_.'</a>'",
"\$_tdparam.=\" align=right\" if index(\$_tdparam,\"align=\")<0; datum(\$_, 'Wochentag, Tag.Monatname.Jahr, Stunde:Minute') if defined \$_",
""
],
"Params" =>
[
undef,
"#text#2",
"#textarea#",
"#checkbox###Ja",
"#radio#2#Wert1\nWert2\nWert3",
"#option#2##Wert1\nWert2\nWert3",
"#hidden#2#HIDDEN",
"#Zahl#1##0#1000#2#Punkt",
"#EMail#1",
"#Link#1##http://#Keine##1",
"#Datum##Tag.Monatname.Jahr, Stunde:Minute#Wochentag, Tag.Monatname.Jahr, Stunde:Minute#Erstellung+Änderung",
"#Code#"
],
"Select" =>
[
undef,
undef,
undef,
undef,
undef,
undef,
undef,
undef,
undef,
undef,
"\$_op=\"~=\" if \$_op eq \"==\"; if(\$_ftype eq \"\") { return datum(\"sel\",'Tag.Monatname.Jahr, Stunde:Minute',\$_) } \$_a{\$_ftype}=\$_; if(index(\$\$_sel[\$_i+4],\"_\$_field\")!=0 || \$\$_sel[\$_i+3] ne \"&\") { my \$r=datum(\"sel\",'Tag.Monatname.Jahr, Stunde:Minute',\$_a{Jahr} || \$_a{Jahr2},\$_a{Monat} || \$_a{Monatname} || \$_a{Monatkurz}, \$_a{Tag},\$_a{Stunde},\$_a{Minute},\$_a{Sekunde}); undef %_a; return \$r; } else { return undef; }",
undef
],
"Type" =>
[
"",
"text()",
"textarea()",
"checkbox",
"radio('Wert1\nWert2\nWert3')",
"option('Wert1\nWert2\nWert3')",
"hidden('HIDDEN')",
"text(7,undef,undef,undef,7)",
"text(30)",
"text(30)",
"datum(\"search\",'Tag.Monatname.Jahr, Stunde:Minute',undef, undef, \$_put{'_Datum_Jahr'}[0], \$_put{'_Datum_Monat'}[0], \$_put{'_Datum_Tag'}[0], \$_put{'_Datum_Stunde'}[0], \$_put{'_Datum_Minute'}[0], \$_put{'_Datum_Sekunde'}[0])",
""
]
},
"_fnr",
{
"0" => 0,
"1" => 1,
"10" => 10,
"11" => 11,
"2" => 2,
"3" => 3,
"4" => 4,
"5" => 5,
"6" => 6,
"7" => 7,
"8" => 8,
"9" => 9
},
"Id",
[0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11],
"Index",
[1, 2, "", "", 2, 2, 2, 1, 2, 2, "", ""],
"Delete",
[
undef,
undef,
undef,
undef,
undef,
undef,
undef,
undef,
undef,
undef,
undef,
undef
],
"Field",
[
"Id",
"text",
"textarea",
"checkbox",
"radio",
"option",
"hidden",
"Zahl",
"EMail",
"Link",
"Datum",
"Code"
],
"_amount",
12,
"_order",
undef,
"_loop",
-1,
"_result",
"Fields",
"_entries",
[
"0|Id|1||get_id",
"1|text|2|text()||||#text#2",
"2|textarea||textarea()||||#textarea#",
"3|checkbox||checkbox||\$_ ne \"\"?'Ja':''||#checkbox###Ja",
"4|radio|2|radio('Wert1\\nWert2\\nWert3')||||#radio#2#Wert1\\nWert2\\nWert3",
"5|option|2|option('Wert1\\nWert2\\nWert3')||||#option#2##Wert1\\nWert2\\nWert3",
"6|hidden|2|hidden('HIDDEN')||||#hidden#2#HIDDEN",
"7|Zahl|1|text(7,undef,undef,undef,7)|return \"\" if \$_ eq \"\";unless(/^\\ss*-?\\sd*(\\s.\\sd*)?\\ss*\$/) { \$_errmsg=\"Das Feld \$_field darf nur eine Zahl enthalten.\"; return undef;}if(\$_<0) { \$_errmsg=\"Das Feld \$_field darf nicht kleiner als 0 sein.\"; return undef; }if(\$_>1000) { \$_errmsg=\"Das Feld \$_field darf nicht grösser als 1000 sein.\"; return undef; }sprintf(\"%.2f\",\$_)|\$_tdparam=\" align=right\"; \$_||#Zahl#1##0#1000#2#Punkt",
"8|EMail|2|text(30)|if(\$_ ne \"\" && (index(\$_,\"\@\")<0 \\p\\p index(\$_,\".\")<0)) { \$_errmsg=\"Die Eingabe für das Feld \$_field enthält kein At-Zeichen ( \@ ) und/oder keinen Punkt ( . ).\"; return undef; } \$_;|\$_ eq \"\"?\"\":\"<a href=\\s\"mailto:\$_\\s\">\$_</a>\"||#EMail#1",
"9|Link|2|text(30)|\$_;|\$_=~ s'^http://''i;\$_ eq \"\"?\"\":'<a href=\"http://'.\$_.'\" target=\"_blank\">'.\$_.'</a>'||#Link#1##http://#Keine##1",
"10|Datum||datum(\"search\",'Tag.Monatname.Jahr, Stunde:Minute',undef, undef, \$_put{'_Datum_Jahr'}[0], \$_put{'_Datum_Monat'}[0], \$_put{'_Datum_Tag'}[0], \$_put{'_Datum_Stunde'}[0], \$_put{'_Datum_Minute'}[0], \$_put{'_Datum_Sekunde'}[0])|datum(\"put\",'Tag.Monatname.Jahr, Stunde:Minute')|\$_tdparam.=\" align=right\" if index(\$_tdparam,\"align=\")<0; datum(\$_, 'Wochentag, Tag.Monatname.Jahr, Stunde:Minute') if defined \$_||#Datum##Tag.Monatname.Jahr, Stunde:Minute#Wochentag, Tag.Monatname.Jahr, Stunde:Minute#Erstellung+Änderung|\$_op=\"~=\" if \$_op eq \"==\"; if(\$_ftype eq \"\") { return datum(\"sel\",'Tag.Monatname.Jahr, Stunde:Minute',\$_) } \$_a{\$_ftype}=\$_; if(index(\$\$_sel[\$_i+4],\"_\$_field\")!=0 \\p\\p \$\$_sel[\$_i+3] ne \"&\") { my \$r=datum(\"sel\",'Tag.Monatname.Jahr, Stunde:Minute',\$_a{Jahr} \\p\\p \$_a{Jahr2},\$_a{Monat} \\p\\p \$_a{Monatname} \\p\\p \$_a{Monatkurz}, \$_a{Tag},\$_a{Stunde},\$_a{Minute},\$_a{Sekunde}); undef %_a; return \$r; } else { return undef; }",
"11|Code||||||#Code#"
],
"_range",
undef,
"Params",
[
undef,
"#text#2",
"#textarea#",
"#checkbox###Ja",
"#radio#2#Wert1\nWert2\nWert3",
"#option#2##Wert1\nWert2\nWert3",
"#hidden#2#HIDDEN",
"#Zahl#1##0#1000#2#Punkt",
"#EMail#1",
"#Link#1##http://#Keine##1",
"#Datum##Tag.Monatname.Jahr, Stunde:Minute#Wochentag, Tag.Monatname.Jahr, Stunde:Minute#Erstellung+Änderung",
"#Code#"
],
"Input",
[
"get_id",
"",
"",
"",
"",
"",
"",
"return \"\" if \$_ eq \"\";unless(/^\\s*-?\\d*(\\.\\d*)?\\s*\$/) { \$_errmsg=\"Das Feld \$_field darf nur eine Zahl enthalten.\"; return undef;}if(\$_<0) { \$_errmsg=\"Das Feld \$_field darf nicht kleiner als 0 sein.\"; return undef; }if(\$_>1000) { \$_errmsg=\"Das Feld \$_field darf nicht grösser als 1000 sein.\"; return undef; }sprintf(\"%.2f\",\$_)",
"if(\$_ ne \"\" && (index(\$_,\"\@\")<0 || index(\$_,\".\")<0)) { \$_errmsg=\"Die Eingabe für das Feld \$_field enthält kein At-Zeichen ( \@ ) und/oder keinen Punkt ( . ).\"; return undef; } \$_;",
"\$_;",
"datum(\"put\",'Tag.Monatname.Jahr, Stunde:Minute')",
""
],
"Javascript",
[undef, "", "", "", "", "", "", "", "", "", "", ""],
"Select",
[
undef,
undef,
undef,
undef,
undef,
undef,
undef,
undef,
undef,
undef,
"\$_op=\"~=\" if \$_op eq \"==\"; if(\$_ftype eq \"\") { return datum(\"sel\",'Tag.Monatname.Jahr, Stunde:Minute',\$_) } \$_a{\$_ftype}=\$_; if(index(\$\$_sel[\$_i+4],\"_\$_field\")!=0 || \$\$_sel[\$_i+3] ne \"&\") { my \$r=datum(\"sel\",'Tag.Monatname.Jahr, Stunde:Minute',\$_a{Jahr} || \$_a{Jahr2},\$_a{Monat} || \$_a{Monatname} || \$_a{Monatkurz}, \$_a{Tag},\$_a{Stunde},\$_a{Minute},\$_a{Sekunde}); undef %_a; return \$r; } else { return undef; }",
undef
],
"_offsets",
[0, 15, 42, 79, 134, 205, 280, 328, 755, 1010, 1143, 2081],
"_amount_query",
12,
"_db",
"/iqws/Beispiel.fields"
)