remove undocumented function HiddenFields()

diff --git a/PLP/Functions.pm b/PLP/Functions.pm
index ef5b311070ec6c35744169a9cd9cf79160144f91..fa23270ba7b01439f56e2e11de5d01ad34770655 100644 (file)
--- 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;