forked from Lainports/freebsd-ports
648db49f38
input. It implements the XML 1.0 standard, as well as support for namespaces and a number of other optional standards related to XML. WWW: http://libre.adacore.com/ (add correct port) PR: ports/107435 Submitted by: John Merryweather Cooper <john_m_cooper@yahoo.com> Repocopy by: marcus
18 lines
730 B
Ada
18 lines
730 B
Ada
--- schema/schema-validators-extensions.adb.orig Tue Jan 2 10:16:54 2007
|
|
+++ schema/schema-validators-extensions.adb Tue Jan 2 10:19:58 2007
|
|
@@ -199,13 +199,13 @@
|
|
begin
|
|
Had_Extension := True;
|
|
|
|
- if Validator.Base.Block_Restriction and then Had_Restriction then
|
|
+ if Validator.Base.Block_Restriction then
|
|
Validation_Error
|
|
("Restrictions of type """
|
|
& Get_Local_Name (Validator.Base) & """ are forbidden");
|
|
end if;
|
|
|
|
- if Validator.Base.Block_Extension and then Had_Extension then
|
|
+ if Validator.Base.Block_Extension then
|
|
Validation_Error
|
|
("Extensions of type """
|
|
& Get_Local_Name (Validator.Base) & """ are forbidden");
|