From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sat, 31 Mar 2007 01:01:39 +0000 (+0200)
Subject: remove undocumented function HiddenFields()
X-Git-Tag: 3.19~4
X-Git-Url: http://git.shiar.net/perl/plp/.git/commitdiff_plain/d7eecb5ca73d043897b6e49c14845bda97ba2202

remove undocumented function HiddenFields()
---

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;