Followup : fb4366cdad0ad96d0427810581763dc2fc189af1

 $input->{filecontent} used where never defined
 Replacing with $input->param("filecontent")

diff --git a/tools/batchMod.pl b/tools/batchMod.pl
index bb6300f..47de0e9 100755 (executable)
--- a/tools/batchMod.pl
+++ b/tools/batchMod.pl
@@ -114,7 +114,7 @@ if ($op eq "action") {
 
 if ($op eq "show"){
        my $filefh = $input->upload('uploadfile');
-       my $filecontent = $input->{'filecontent'};
+       my $filecontent = $input->param('filecontent');
 
     my @contentlist;
     if ($filefh){