git.shiar.nl
/
perl
/
plp
/
.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
123b0af
)
remove undocumented function HiddenFields()
author
Mischa POSLAWSKY
<perl@shiar.org>
Sat, 31 Mar 2007 01:01:39 +0000
(
03:01
+0200)
committer
Mischa POSLAWSKY
<perl@shiar.org>
Sat, 31 Mar 2007 01:01:39 +0000
(
03:01
+0200)
PLP/Functions.pm
patch
|
blob
|
history
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;
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 ($) {
AddCookie ReadFile WriteFile AutoURL Counter Include exit/;
sub Include ($) {
@@
-32,16
+32,6
@@
sub PLP_END (&) {
push @PLP::END, shift;
}
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;
sub Entity (@) {
my $ref;
my @copy;