richter 2002/08/20 22:48:54
Modified: Embperl/Form/Validate Tag: Embperl2c Default.pm
driver Tag: Embperl2c eplibxslt.c
Log:
Fix form validate required for empty strings
Revision Changes Path
No revision
No revision
1.1.2.9 +3 -3 embperl/Embperl/Form/Validate/Attic/Default.pm
Index: Default.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Form/Validate/Attic/Default.pm,v
retrieving revision 1.1.2.8
retrieving revision 1.1.2.9
diff -u -r1.1.2.8 -r1.1.2.9
--- Default.pm 21 Aug 2002 05:44:10 -0000 1.1.2.8
+++ Default.pm 21 Aug 2002 05:48:54 -0000 1.1.2.9
@@ -116,7 +116,7 @@
{
my ($self, $key, $value, $arg, $fdat, $pref) = @_ ;
- return defined($value) ? undef : ['validate_required'] ;
+ return defined($value) && $value ne '' ? undef : ['validate_required'] ;
}
# --------------------------------------------------------------
No revision
No revision
1.1.2.23 +4 -3 embperl/driver/Attic/eplibxslt.c
Index: eplibxslt.c
===================================================================
RCS file: /home/cvs/embperl/driver/Attic/eplibxslt.c,v
retrieving revision 1.1.2.22
retrieving revision 1.1.2.23
diff -u -r1.1.2.22 -r1.1.2.23
--- eplibxslt.c 1 Jul 2002 06:57:13 -0000 1.1.2.22
+++ eplibxslt.c 21 Aug 2002 05:48:54 -0000 1.1.2.23
@@ -299,10 +299,11 @@
ProviderLibXSLT_ExternalEnityLoader(const char *URL, const char *ID,
xmlParserCtxtPtr ctxt)
{
- dTHX ;
- tReq * r = CurrReq ;
+ tReq * r ;
char * sFile ;
+ dTHX ;
+ r = CurrReq ;
sFile = embperl_PathSearch (r, r -> pPool, URL, r -> Component.nPathNdx) ;
if (sFile && pCurrentExternalEntityLoader)
return (*pCurrentExternalEntityLoader)(sFile, ID, ctxt) ;
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
