Author: sparky
Date: Thu Oct 22 16:58:57 2009
New Revision: 10818
Modified:
toys/rsget.pl/RSGet/Form.pm
Log:
- allow value 0
Modified: toys/rsget.pl/RSGet/Form.pm
==============================================================================
--- toys/rsget.pl/RSGet/Form.pm (original)
+++ toys/rsget.pl/RSGet/Form.pm Thu Oct 22 16:58:57 2009
@@ -93,7 +93,8 @@
$values{ $name } = undef;
}
if ( $el eq "input" and lc $attr->{type} eq "hidden" ) {
- $values{ $name } = $attr->{value} || "";
+ my $v = $attr->{value};
+ $values{ $name } = defined $v ? $v : "";
}
}
$self->{order} = \...@order;
@@ -119,7 +120,7 @@
s/(\S+)//;
$value = $1;
}
- $attr{ $name } = de_ml( $value || "" );
+ $attr{ $name } = defined $value ? de_ml( $value ) : "";
} else {
$attr{ $name } = $name;
}
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
