Error: Can't use string ("HASH(0xb7a4b44)") as a HASH ref while "strict refs" in use at /usr/local/mkdoc-1-6/MKDoc/Util/LinkParser.pm line 454. Petal object dump: ================== $VAR1 = bless( { 'lang' => 'en', 'file' => 'editor/link/en.html' }, 'Petal' ); Stack trace: ============ at /usr/lib/perl5/site_perl/5.8.8/Petal.pm line 373 Petal::process('Petal=HASH(0xafd0220)', 'self', 'flo::editor::Link=HASH(0xb0db20c)') called at ../flo/Component.pm line 315 flo::Component::edit('flo::editor::Link=HASH(0xb0db20c)') called at /usr/local/mkdoc-1-6/flo/Editor.pm line 740 flo::Editor::edit('flo::Editor=HASH(0xb7da998)') called at /usr/lib/perl5/site_perl/5.8.8/Petal/Hash/Var.pm line 86 Petal::Hash::Var::process('Petal::Hash::Var', 'Petal::Hash=HASH(0xa532388)', 'self/editor/edit') called at /usr/lib/perl5/site_perl/5.8.8/Petal/Hash.pm line 187 Petal::Hash::fetch('Petal::Hash=HASH(0xa532388)', 'self/editor/edit') called at /usr/lib/perl5/site_perl/5.8.8/Petal/Hash.pm line 160 Petal::Hash::__FETCH('Petal::Hash=HASH(0xa532388)', 'structure self/editor/edit') called at /usr/lib/perl5/site_perl/5.8.8/Petal/Hash.pm line 117 Petal::Hash::get('Petal::Hash=HASH(0xa532388)', 'structure self/editor/edit') called at /usr/lib/perl5/site_perl/5.8.8/Petal/Hash.pm line 129 Petal::Hash::get_encoded('Petal::Hash=HASH(0xa532388)', 'structure self/editor/edit') called at (eval 446) line 145 Petal::__ANON__('Petal::Hash=HASH(0xa532388)') called at /usr/lib/perl5/site_perl/5.8.8/Petal.pm line 370 eval {...} called at /usr/lib/perl5/site_perl/5.8.8/Petal.pm line 361 Petal::process('Petal=HASH(0xa5341c4)', 'self', 'flo::plugin::Admin::Content=HASH(0xb4be074)', '__input__', 'XML', '__output__', 'XHTML') called at /usr/local/mkdoc-1-6/flo/Plugin.pm line 624 flo::Plugin::render('flo::plugin::Admin::Content=HASH(0xb4be074)', 'self', 'flo::plugin::Admin::Content=HASH(0xb4be074)', '__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(0xb4be074)', 'self', 'flo::plugin::Admin::Content=HASH(0xb4be074)', '__input__', 'XML', '__output__', 'XHTML') called at ../flo/plugin/Admin/Content.pm line 84 flo::plugin::Admin::Content::http_get('flo::plugin::Admin::Content=HASH(0xb4be074)') called at /usr/local/mkdoc-1-6/flo/Plugin.pm line 222 flo::Plugin::run('flo::plugin::Admin::Content=HASH(0xb4be074)') 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_2elinktest_2ewebarchitects_2eco_2euk::handler('Apache=SCALAR(0xb49b928)') 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(0xb49b928)') 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 .= ""; 6. $res .= do { 7. my $res = $hash->get_encoded ('set: align self/align'); 8. (defined $res) ? $res : ""; 9. }; 10. $res .= ""; 11. $res .= do { 12. my $res = $hash->get_encoded ('set: dir self/direction'); 13. (defined $res) ? $res : ""; 14. }; 15. $res .= ""; 16. $res .= do { 17. my $res = $hash->get_encoded ('set: name_delete string:${self/block_name}_delete'); 18. (defined $res) ? $res : ""; 19. }; 20. $res .= ""; 21. $res .= do { 22. my $res = $hash->get_encoded ('set: name_url string:${self/block_name}_url'); 23. (defined $res) ? $res : ""; 24. }; 25. $res .= ""; 26. $res .= do { 27. my $res = $hash->get_encoded ('set: name_title string:${self/block_name}_title'); 28. (defined $res) ? $res : ""; 29. }; 30. $res .= ""; 31. $res .= do { 32. my $res = $hash->get_encoded ('set: name_description string:${self/block_name}_description'); 33. (defined $res) ? $res : ""; 34. }; 35. $res .= "\\ 36. \ 37. \ 38. \ \ \get_encoded ('self/block_name'); 41. if (defined($value)) { 42. $res .= "name=\"$value\"" 43. } 44. } 45. $res .= "\ "; 46. { 47. my $value = $hash->get_encoded ('self/block_name'); 48. if (defined($value)) { 49. $res .= "id=\"$value\"" 50. } 51. } 52. $res .= "\ type\=\"hidden\"\ \/\>\ 53. \ 54. \ 55. \ \ \get_encoded ('align'); 58. if (defined($value)) { 59. $res .= "align=\"$value\"" 60. } 61. } 62. $res .= "\ lang\=\"en\"\ xml\:lang\=\"en\"\ dir\=\"ltr\"\>Link\ component\<\/legend\>\ 63. \ 64. \ \ "; 65. if ($hash->get ('self/has_errors')) { 66. $res .= ""; 67. my @array = @{$hash->get ('self/errors')}; 68. for (my $i=0; $i < @array; $i++) { 69. my $hash = $hash->new(); 70. my $number = $i + 1; 71. my $odd = $number % 2; 72. my $even = $i % 2; 73. my $start = ($i == 0); 74. my $end = ($i == $#array); 75. my $inner = ($i and $i < @array); 76. $hash->{__count__} = $number; 77. $hash->{__is_first__} = $start; 78. $hash->{__is_last__} = $end; 79. $hash->{__is_inner__} = $inner; 80. $hash->{__even__} = $even; 81. $hash->{__odd__} = $odd; 82. $hash->{repeat} = { 83. index => $i, 84. number => $number, 85. even => $even, 86. odd => $odd, 87. start => $start, 88. end => $end, 89. inner => $inner, 90. }; 91. $hash->{'error'} = $array[$i]; 92. $res .= "\\ 93. \ \ \ \ "; 94. if ($hash->get ('error/is --component/link/title_empty')) { 95. $res .= "\The\ \'Title\'\ field\ is\ empty\.\<\/p\>"; 96. }; 97. $res .= "\ 98. \ \ \ \ "; 99. if ($hash->get ('error/is --component/link/url_empty')) { 100. $res .= "\The\ \'URI\'\ field\ is\ empty\.\<\/p\>"; 101. }; 102. $res .= "\ 103. \ \ \ \ "; 104. if ($hash->get ('error/is --component/link/invalid_internal_url')) { 105. $res .= "\The\ \'URI\'\ field\ points\ to\ a\ document\ which\ does\ not\ exist\.\<\/p\>"; 106. }; 107. $res .= "\ 108. \ \ \ \ "; 109. if ($hash->get ('error/is --component/link/description_empty')) { 110. $res .= "\The\ \'Description\'\ field\ is\ empty\.\<\/p\>"; 111. }; 112. $res .= "\ 113. \ \ \<\/div\>"; 114. }; 115. $res .= ""; 116. }; 117. $res .= "\ 118. \ 119. \ \ "; 120. $res .= do { 121. do { 122. my $new_hash = $hash->new(); 123. $new_hash->{__included_from__} = 'editor/link/en.html'; 124. my $res = eval { Petal->new (file => '/fragments/move_control/', lang => 'en')->process ($new_hash) }; 125. $res = "" if (defined $@ and $@); 126. $res; 127. } || ''; 128. }; 129. $res .= "\ 130. \ 131. \ \ \ \ \\ 132. \ \ \ \ \ \ \\ 133. \ \ \ \ \ \ \ \ External\ links\ should\ start\ with\ \http\:\/\/\<\/tt\>\,\ email\ addresses\ with\ 134. \ \ \ \ \ \ \ \ \mailto\:\<\/tt\>\ and\ internal\ links\ with\ a\ \\/\<\/tt\>\.\ \ 135. \ \ \ \ \ \ \<\/em\>\ 136. \ \ \ \ \ \ \get_encoded ('name_url'); 139. if (defined($value)) { 140. $res .= "for=\"$value\"" 141. } 142. } 143. $res .= "\ xml\:lang\=\"en\"\ dir\=\"ltr\"\>Address\ \(URI\)\<\/label\>\ 144. \ \ \ \ \ \ \\ 145. \ \ \ \ \ \ \get_encoded ('self/render_url'); 148. if (defined($value)) { 149. $res .= "value=\"$value\"" 150. } 151. } 152. $res .= "\ "; 153. { 154. my $value = $hash->get_encoded ('name_url'); 155. if (defined($value)) { 156. $res .= "name=\"$value\"" 157. } 158. } 159. $res .= "\ size\=\"35\"\ title\=\"Enter\ the\ URI\ of\ the\ link\ here\.\"\ class\=\"input\-text\"\ "; 160. { 161. my $value = $hash->get_encoded ('name_url'); 162. if (defined($value)) { 163. $res .= "id=\"$value\"" 164. } 165. } 166. $res .= "\ type\=\"text\"\ \/\>\ 167. \ \ \ \ \<\/p\>\ 168. \ 169. \ 170. \ \ \ \ \\ 171. \ \ \ \ \ \ \\ 172. \ \ \ \ \ \ \ \ The\ text\ that\ you\ want\ to\ be\ turned\ into\ a\ link\ in\ the\ document\.\ 173. \ \ \ \ \ \ \<\/em\>\ 174. \ \ \ \ \ \ \get_encoded ('name_title'); 177. if (defined($value)) { 178. $res .= "for=\"$value\"" 179. } 180. } 181. $res .= "\ xml\:lang\=\"en\"\ dir\=\"ltr\"\>Title\<\/label\>\ 182. \ \ \ \ \ \ \\ 183. \ \ \ \ \ \ \get_encoded ('self/title'); 186. if (defined($value)) { 187. $res .= "value=\"$value\"" 188. } 189. } 190. $res .= "\ "; 191. { 192. my $value = $hash->get_encoded ('name_title'); 193. if (defined($value)) { 194. $res .= "name=\"$value\"" 195. } 196. } 197. $res .= "\ size\=\"35\"\ title\=\"Enter\ the\ Title\ of\ the\ link\ here\.\"\ class\=\"input\-text\"\ "; 198. { 199. my $value = $hash->get_encoded ('name_title'); 200. if (defined($value)) { 201. $res .= "id=\"$value\"" 202. } 203. } 204. $res .= "\ type\=\"text\"\ \/\>\ 205. \ \ \ \ \<\/p\>\ 206. \ 207. \ 208. \ \ \ \ \\ 209. \ \ \ \ \ \ \\ 210. \ \ \ \ \ \ \ \ A\ description\ of\ the\ document\ at\ the\ link\ address\.\ \ \ 211. \ \ \ \ \ \ \<\/em\>\ 212. \ \ \ \ \ \ \get_encoded ('name_description'); 215. if (defined($value)) { 216. $res .= "for=\"$value\"" 217. } 218. } 219. $res .= "\ xml\:lang\=\"en\"\ dir\=\"ltr\"\>Description\<\/label\>\ 220. \ \ \ \ \ \ \\ 221. \ \ \ \ \ \ \get_encoded ('name_description'); 224. if (defined($value)) { 225. $res .= "name=\"$value\"" 226. } 227. } 228. $res .= "\ rows\=\"2\"\ cols\=\"45\"\ class\=\"adminform\"\ title\=\"Description\ of\ the\ link\.\"\ "; 229. { 230. my $value = $hash->get_encoded ('name_description'); 231. if (defined($value)) { 232. $res .= "id=\"$value\"" 233. } 234. } 235. $res .= "\>"; 236. $res .= do { 237. my $res = $hash->get_encoded ('self/description'); 238. (defined $res) ? $res : ""; 239. }; 240. $res .= "\<\/textarea\>\ 241. \ \ \ \ \<\/p\>\ 242. \ 243. \ 244. \ \ \ \ \\ 245. \ \ \ \ \ \ \get_encoded ('name_delete'); 248. if (defined($value)) { 249. $res .= "name=\"$value\"" 250. } 251. } 252. $res .= "\ xml\:lang\=\"en\"\ dir\=\"ltr\"\ type\=\"submit\"\ title\=\"Delete\ this\ component\.\"\ "; 253. { 254. my $value = $hash->get_encoded ('name_delete'); 255. if (defined($value)) { 256. $res .= "id=\"$value\"" 257. } 258. } 259. $res .= "\ \/\>\ 260. \ \ \ \ \ \ \|\ 261. \ \ \ \ \ \ \get_encoded ('string:${self/mkdoc_uri},copy'); 264. if (defined($value)) { 265. $res .= "href=\"$value\"" 266. } 267. } 268. $res .= "\ xml\:lang\=\"en\"\ dir\=\"ltr\"\>Copy\ to\ another\ document\<\/a\>\ 269. \ \ \ \ \ \ \|\ 270. \ \ \ \ \ \ \get_encoded ('string:${self/mkdoc_uri},move'); 273. if (defined($value)) { 274. $res .= "href=\"$value\"" 275. } 276. } 277. $res .= "\ xml\:lang\=\"en\"\ dir\=\"ltr\"\>Move\ to\ another\ document\<\/a\>\ 278. \ \ \ \ \<\/p\>\ 279. \ 280. \<\/fieldset\>"; 281. return $res; 282. };