Error: [PETAL ERROR] Can't use string ("HASH(0xb87c73c)") as a HASH ref while "strict refs" in use at /usr/local/mkdoc-1-6/MKDoc/Util/LinkParser.pm line 454. . Debug info written in /tmp/petal_debug.1237.1149763391.jqlpffdhbe at /usr/lib/perl5/site_perl/5.8.8/Petal.pm line 473. Petal object dump: ================== $VAR1 = bless( { 'language' => 'en', 'file' => 'admin/content/en.html' }, 'Petal' ); Stack trace: ============ at /usr/lib/perl5/site_perl/5.8.8/Petal.pm line 373 Petal::process('Petal=HASH(0xafcd040)', 'self', 'flo::plugin::Admin::Content=HASH(0xb4bdc9c)', '__input__', 'XML', '__output__', 'XHTML') called at /usr/local/mkdoc-1-6/flo/Plugin.pm line 624 flo::Plugin::render('flo::plugin::Admin::Content=HASH(0xb4bdc9c)', 'self', 'flo::plugin::Admin::Content=HASH(0xb4bdc9c)', '__input__', 'XML', '__output__', 'XHTML') called at /usr/local/mkdoc-1-6/flo/Plugin.pm line 573 flo::Plugin::render_http('flo::plugin::Admin::Content=HASH(0xb4bdc9c)', 'self', 'flo::plugin::Admin::Content=HASH(0xb4bdc9c)', '__input__', 'XML', '__output__', 'XHTML') called at ../flo/plugin/Admin/Content.pm line 84 flo::plugin::Admin::Content::http_get('flo::plugin::Admin::Content=HASH(0xb4bdc9c)') called at /usr/local/mkdoc-1-6/flo/Plugin.pm line 222 flo::Plugin::run('flo::plugin::Admin::Content=HASH(0xb4bdc9c)') called at /usr/local/mkdoc-1-6/flo/Plugin.pm line 182 flo::Plugin::main('flo::plugin::Admin::Content') called at /usr/local/mkdoc-1-6/MKDoc.pm line 105 MKDoc::main() called at /usr/local/mkdoc-1-6/MKDoc.pm line 72 MKDoc::process('MKDoc') called at /usr/local/mkdoc-1-6/cgi/mkdoc.cgi line 52 eval {...} called at /usr/local/mkdoc-1-6/cgi/mkdoc.cgi line 35 Apache::ROOTusers_2exen_2dfc5_2ewebarchitects_2eco_2euk::handler('Apache=SCALAR(0xafa2efc)') called at /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi/Apache/Registry.pm line 149 eval {...} called at /usr/lib/perl5/site_perl/5.8.8/i386-linux-thread-multi/Apache/Registry.pm line 149 Apache::Registry::handler('Apache=SCALAR(0xafa2efc)') called at /dev/null line 0 eval {...} called at /dev/null line 0 Template perl code dump: ======================== 1. $VAR1 = sub { 2. my $hash = shift; 3. my $res = ""; 4. local $^W = 0; 5. $res .= "\<\!DOCTYPE\ html\ PUBLIC\ 6. \ \ \"\-\/\/W3C\/\/DTD\ XHTML\ 1\.0\ Transitional\/\/EN\"\ 7. \ \ \"http\:\/\/www\.w3\.org\/TR\/xhtml1\/DTD\/xhtml1\-transitional\.dtd\"\ 8. \>\ 9. \ 10. "; 11. $res .= do { 12. my $res = $hash->get_encoded ('set: uri self/uri'); 13. (defined $res) ? $res : ""; 14. }; 15. $res .= ""; 16. $res .= do { 17. my $res = $hash->get_encoded ('set: title string:Modify the Content of ${self/title}'); 18. (defined $res) ? $res : ""; 19. }; 20. $res .= ""; 21. $res .= do { 22. my $res = $hash->get_encoded ('set: dir self/direction'); 23. (defined $res) ? $res : ""; 24. }; 25. $res .= ""; 26. $res .= do { 27. my $res = $hash->get_encoded ('set: align self/align'); 28. (defined $res) ? $res : ""; 29. }; 30. $res .= ""; 31. $res .= do { 32. my $res = $hash->get_encoded ('set: document_uri self/parent/uri'); 33. (defined $res) ? $res : ""; 34. }; 35. $res .= ""; 36. $res .= do { 37. my $res = $hash->get_encoded ('set: document_title self/parent/title'); 38. (defined $res) ? $res : ""; 39. }; 40. $res .= ""; 41. $res .= do { 42. my $res = $hash->get_encoded ('set: document_lang self/parent/lang'); 43. (defined $res) ? $res : ""; 44. }; 45. $res .= "\get_encoded ('lang'); 48. if (defined($value)) { 49. $res .= "lang=\"$value\"" 50. } 51. } 52. $res .= "\ "; 53. { 54. my $value = $hash->get_encoded ('lang'); 55. if (defined($value)) { 56. $res .= "xml:lang=\"$value\"" 57. } 58. } 59. $res .= "\ "; 60. { 61. my $value = $hash->get_encoded ('dir'); 62. if (defined($value)) { 63. $res .= "dir=\"$value\"" 64. } 65. } 66. $res .= "\>\ 67. \ 68. \ 69. "; 70. $res .= do { 71. do { 72. my $new_hash = $hash->new(); 73. $new_hash->{__included_from__} = 'admin/content/en.html'; 74. my $res = eval { Petal->new (file => '/fragments/head_admin/', lang => 'en')->process ($new_hash) }; 75. $res = "" if (defined $@ and $@); 76. $res; 77. } || ''; 78. }; 79. $res .= "\ 80. \ \ \ 81. \ \ \get_encoded ('lang'); 84. if (defined($value)) { 85. $res .= "lang=\"$value\"" 86. } 87. } 88. $res .= "\ "; 89. { 90. my $value = $hash->get_encoded ('lang'); 91. if (defined($value)) { 92. $res .= "xml:lang=\"$value\"" 93. } 94. } 95. $res .= "\ "; 96. { 97. my $value = $hash->get_encoded ('dir'); 98. if (defined($value)) { 99. $res .= "dir=\"$value\"" 100. } 101. } 102. $res .= "\>\ 103. \ 104. \ \ \ \ "; 105. $res .= do { 106. do { 107. my $new_hash = $hash->new(); 108. $new_hash->{__included_from__} = 'admin/content/en.html'; 109. my $res = eval { Petal->new (file => '/fragments/admin/', lang => 'en')->process ($new_hash) }; 110. $res = "" if (defined $@ and $@); 111. $res; 112. } || ''; 113. }; 114. $res .= "\ 115. \ 116. \ \ \ \ \\ 117. \ \ \ \ \ \ \get_encoded ('align'); 120. if (defined($value)) { 121. $res .= "align=\"$value\"" 122. } 123. } 124. $res .= "\ lang\=\"en\"\ xml\:lang\=\"en\"\ dir\=\"ltr\"\>"; 125. $res .= do { 126. my $res = $hash->get_encoded ('title'); 127. (defined $res) ? $res : ""; 128. }; 129. $res .= "\<\/h1\>\ 130. \ 131. \ 132. \ \ \ \ \ \ \get_encoded ('self/uri'); 135. if (defined($value)) { 136. $res .= "action=\"$value\"" 137. } 138. } 139. $res .= "\ method\=\"post\"\>\ 140. \ \ \ \ \ \ \ \ \get_encoded ('align'); 143. if (defined($value)) { 144. $res .= "align=\"$value\"" 145. } 146. } 147. $res .= "\ lang\=\"en\"\ class\=\"en\"\ xml\:lang\=\"en\"\ dir\=\"ltr\"\>\ 148. \ \ \ \ \ 149. \ \ \ \ \ \ \ \ \ \ \ Edit\ and\ add\ components\ as\ required\ and\ then\ 150. \ \ \ \ \ \ \ \ \ \ \get_encoded ('self/title'); 153. (defined $res) ? $res : ""; 154. }; 155. $res .= "\"\ type\=\"submit\"\ \/\>\ 156. \ \ \ \ \ \ \ \ \ \ \ \.\ 157. \ \ \ \ \ \ \ \ \<\/p\>\ 158. \ \ \ \ \ 159. \ \ \ \ \ \ \ \ "; 160. $res .= do { 161. do { 162. my $new_hash = $hash->new(); 163. $new_hash->{__included_from__} = 'admin/content/en.html'; 164. my $res = eval { Petal->new (file => '/error/', lang => 'en')->process ($new_hash) }; 165. $res = "" if (defined $@ and $@); 166. $res; 167. } || ''; 168. }; 169. $res .= "\ 170. \ \ \ \ \ 171. \ \ \ \ \ \ \ \ "; 172. $res .= do { 173. my $res = $hash->get_encoded ('structure self/editor/edit'); 174. (defined $res) ? $res : ""; 175. }; 176. $res .= "\ 177. \ \ \ \ \ 178. \ \ \