From d7eecb5ca73d043897b6e49c14845bda97ba2202 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 31 Mar 2007 03:01:39 +0200
Subject: [PATCH] remove undocumented function HiddenFields()

---
 PLP/Functions.pm | 12 +-----------
 1 file changed, 1 insertion(+), 11 deletions(-)

diff --git a/PLP/Functions.pm b/PLP/Functions.pm
index ef5b311..fa23270 100644
--- a/PLP/Functions.pm
+++ b/PLP/Functions.pm
@@ -4,7 +4,7 @@ use base 'Exporter';
 use Fcntl qw(:flock);
 use strict;
 
-our @EXPORT = qw/HiddenFields Entity DecodeURI EncodeURI Entity include PLP_END
+our @EXPORT = qw/Entity DecodeURI EncodeURI include PLP_END
                  AddCookie ReadFile WriteFile AutoURL Counter Include exit/;
 
 sub Include ($) {
@@ -32,16 +32,6 @@ sub PLP_END (&) {
     push @PLP::END, shift;
 }
 
-sub HiddenFields ($@) {
-    my $hash = shift;
-    my %saves;
-    @saves{@_} = ();
-    for (keys %$hash) {
-	print qq{<input type=hidden name="$_" value="$hash->{$_}">}
-	    unless exists $saves{$_};
-    }
-}
-
 sub Entity (@) {
     my $ref;
     my @copy;    
-- 
2.30.0