Item13165: perl warning using experimental feature

foswiki · Dec 17, 2014 · 003bfce · 003bfce
1 parent 1b14a0b
commit 003bfce
Show file tree

Hide file tree

Showing 2 changed files with 1 addition and 2 deletions.
diff --git a/NatEditPlugin/lib/Foswiki/Plugins/NatEditPlugin/RestAttachments.pm b/NatEditPlugin/lib/Foswiki/Plugins/NatEditPlugin/RestAttachments.pm
@@ -84,7 +84,7 @@ sub handle {
                   . "/rest/ImagePlugin/resize?topic=$web.$topic;file=$attachment->{name};size=48x48>&crop=northwest";
             }
 
-            foreach my $key ( sort keys $attachment ) {
+            foreach my $key ( sort keys %{$attachment} ) {
                 $record->{$key} = $attachment->{$key};
             }
 

diff --git a/NatEditPlugin/templates/editform.natedit.tmpl b/NatEditPlugin/templates/editform.natedit.tmpl
@@ -1,5 +1,4 @@
 %TMPL:INCLUDE{"edit"}%
 %TMPL:DEF{"title"}%%TMPL:P{"topictitle"}% (%MAKETEXT{"edit form"}%) - %WIKITOOLNAME%%TMPL:END%
 %TMPL:DEF{"titleaction"}%%IF{"defined 'rev'" then="%MAKETEXT{"restore form"}%" else="%MAKETEXT{"edit form"}%"}%%TMPL:END%
-%TMPL:DEF{"pagetitle"}%[[%WEB%.%TOPIC%]] (%MAKETEXT{"edit form"}%)%TMPL:END%
 %TMPL:DEF{"firsttab"}%<textarea class="natedit foswikiHidden" data-show-toolbar="false"></textarea>%TMPL:END%