-- A kolcsonzesek táblába beszúrandó XML dokumentumok szerkezetét megadót XML séma
-----------------------------------------------------------------------------------------------------------------------

declare
  doc varchar2(3000):=
  '<?xml version="1.0"?>
<xs:schema targetNamespace="http://people.inf.elte.hu/balhal/Oracle/XML/kolcsonzes"
xmlns:xs="http://www.w3.org/2001/XMLSchema"
xmlns:xdb="http://xmlns.oracle.com/xdb"
xmlns="http://people.inf.elte.hu/balhal/Oracle/XML/kolcsonzes">
	<xs:element name="kolcsonzesek" type="kolcsonzesekType"
	xdb:SQLName="kolcsonzesek"/>
	<xs:complexType name="kolcsonzesekType" xdb:SQLType=" kolcsonzesekType_T">
		<xs:sequence>
			<xs:element name="kolcsonzo" type="kolcsonzoType" minOccurs="1"
			maxOccurs="unbounded" xdb:SQLName="kolcsonzo"/>
		</xs:sequence>
	</xs:complexType>
	<xs:complexType name="kolcsonzoType" xdb:SQLType="kolcsonzoType_T">
		<xs:sequence>
			<xs:element name="nev" type="xs:string" maxOccurs="1"
			xdb:SQLName="nev"/>
			<xs:element name="konyvek" type="konyvekType" minOccurs="0" maxOccurs="1"
			xdb:SQLName="konyvek"/>
			<xs:element name="cd_k" type="cd_kType" minOccurs="0" maxOccurs="1"
			xdb:SQLName="cd_k"/>
			<xs:element name="dvd_k" type="dvd_kType" minOccurs="0" maxOccurs="1"
			xdb:SQLName="dvd_k"/>
		</xs:sequence>
		<xs:attribute name="azon" type="azonType" use="required" xdb:SQLName="azon"/>
	</xs:complexType>
	<xs:complexType name="konyvekType" xdb:SQLType="konyvekType_T">
		<xs:sequence>
			<xs:element name="konyv" type="konyvType" maxOccurs="unbounded"
			xdb:SQLName="konyv"/>
		</xs:sequence>
	</xs:complexType>
	<xs:complexType name="konyvType" xdb:SQLType="konyvType_T">
		<xs:sequence>
			<xs:element name="cim" type="xs:string" xdb:SQLName="cim"/>
			<xs:element name="szerzo" type="xs:string" xdb:SQLName="szerzo"/>
		</xs:sequence>
		<xs:attribute name="ar" type="xs:integer" xdb:SQLName="ar"/>
	</xs:complexType>
	<xs:complexType name="cd_kType" xdb:SQLType="cd_kType_T">
		<xs:sequence>
			<xs:element name="cd" type="cd_dvdType" maxOccurs="unbounded"
			xdb:SQLName="cd"/>
		</xs:sequence>
	</xs:complexType>
	<xs:complexType name="dvd_kType" xdb:SQLType="dvd_kType_T">
		<xs:sequence>
			<xs:element name="dvd" type="cd_dvdType" maxOccurs="unbounded"
			xdb:SQLName="dvd"/>
		</xs:sequence>
	</xs:complexType>
	<xs:complexType name="cd_dvdType" xdb:SQLType="cd_dvd_type_T">
		<xs:sequence>
			<xs:element name="cim" type="xs:string" xdb:SQLName="cim"/>
			<xs:element name="ar" type="xs:integer" xdb:SQLName="ar"/>
		</xs:sequence>
		<xs:attribute name="eloado" type="xs:string" use="optional"
		xdb:SQLName="eloado"/>
	</xs:complexType>
	<xs:simpleType name="azonType">
		<xs:restriction base="xs:string">
			<xs:pattern value="[0-9]{3}"/>
		</xs:restriction>
	</xs:simpleType>
</xs:schema>';
begin
  dbms_xmlschema.registerSchema(
    SCHEMAURL=>'http://people.inf.elte.hu/balhal/Oracle/XML/kolcsonzes',
    schemaDoc=>doc);
end;

-- Kolcsonzesek tábla definíciója és adatokkal való feltöltése
-------------------------------------------------------------------------------------------------------

create table kolcsonzesek of XMLType;

insert into kolcsonzesek values (
XMLType(
'<?xml version="1.0"?>
<kolcsonzesek xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xsi:schemaLocation="http://people.inf.elte.hu/balhal/Oracle/XML/kolcsonzes kolcsonzes.xsd">
	<kolcsonzo azon="001">
		<nev>Gipsz Jakab</nev>
		<konyvek>
			<konyv ar="2000">
				<cim>Momo</cim> 
				<szerzo>Michael Ende</szerzo>
			</konyv>
			<konyv ar="2500">
				<cim>Tuskevar</cim> 
				<szerzo>Fekete Istvan</szerzo>
			</konyv>
		</konyvek>
		<cd_k>
			<cd eloado="Zoran">
				<cim>Szep holnap</cim>
				<ar>3000</ar>
			</cd>
		</cd_k>
		<dvd_k>
			<dvd>
				<cim>Jegkorszak</cim>
				<ar>4000</ar>
			</dvd>
		</dvd_k>
	</kolcsonzo>
	<kolcsonzo azon="002">
		<nev>Kis Virag</nev>
		<cd_k>
			<cd eloado="ABBA">  
				<cim>Best Of</cim>   
				<ar>2000</ar>
			</cd>
			<cd eloado="Zoran">  
				<cim>Igy alakult</cim>   
				<ar>3200</ar>
			</cd>
		</cd_k>
		<dvd_k>
			<dvd>
				<cim>Shrek</cim>
				<ar>3500</ar>
			</dvd>
		</dvd_k>
	</kolcsonzo>
	<kolcsonzo azon="003">
		<nev>Nagy Pal</nev>
		<dvd_k>
			<dvd>
				<cim>Betty Blue</cim>
				<ar>2500</ar>
			</dvd>
		</dvd_k>
	</kolcsonzo>
</kolcsonzesek>'));

-- A levelezes táblába beszúrandó emailek XML dokumentom szerkezetét megadó XML séma
----------------------------------------------------------------------------------------------------------------------------------

declare
  doc varchar2(1000):=
  '<?xml version="1.0"?>
<xs:schema targetNamespace="http://people.inf.elte.hu/balhal/Oracle/XML/email"
xmlns:xs="http://www.w3.org/2001/XMLSchema"
xmlns:xdb="http://xmlns.oracle.com/xdb"
xmlns="http://people.inf.elte.hu/balhal/Oracle/XML/email">
	<xs:element name="emailek" type="emailekType" xdb:SQLName="emailek"/>
	<xs:complexType name="emailekType" xdb:SQLType="emailekType_T">
		<xs:sequence>
			<xs:element name="email" type="emailType" xdb:SQLName="email" minOccurs="1" maxOccurs="unbounded"/>
		</xs:sequence>
	</xs:complexType>
	<xs:complexType name="emailType" xdb:SQLType="emailType_T">
		<xs:sequence>
			<xs:element name="cimzett" type="xs:string" xdb:SQLName="cimzett"/>
			<xs:element name="cim" type="xs:string" xdb:SQLName="cim"/>
			<xs:element name="subject" type="xs:string" xdb:SQLName="subject"/>
			<xs:element name="szoveg" type="xs:string" xdb:SQLName="szoveg"/>
		</xs:sequence>
	</xs:complexType>
</xs:schema>';
begin
  dbms_xmlschema.registerSchema(
    SCHEMAURL=>'http://people.inf.elte.hu/balhal/Oracle/XML/email',
    schemaDoc=>doc);
end;

-- Levelezes tábla létrehozatala és adatokkal való feltöltése
-------------------------------------------------------------------------------------------------------------

drop table levelezes;

create table levelezes (
  felhasznalo varchar2(15),
  belepes     timestamp,
  kilepes     timestamp,
  gep_azon    varchar2(3),
  emailek       XMLType);

   insert into levelezes values
  ('barbie', timestamp '2007-11-12 12:26:54', timestamp '2007-11-12 13:12:32', 'G01', xmltype (
'<?xml version="1.0"?>
<emailek xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xsi:schemaLocation="http://people.inf.elte.hu/balhal/Oracle/XML/email email.xsd">
	<email>
		<cimzett>Luca</cimzett>
		<cim>luca@yahoo.com</cim>
		<subject>meghivo</subject>
		<szoveg>Penteken van a szulinapi partim, gyere el! Pusz...</szoveg>
	</email>
	<email>
		<cimzett>Melak</cimzett>
		<cim>melak@yahoo.com</cim>
		<subject>hasmenes</subject>
		<szoveg>Melak ne egyel olyan sok malnat, mert hasmenest kapsz! Es maskor 
		ne bofogj hangosan vendegsegben! Kosz! Pusz...</szoveg>
	</email>
	<email>
		<cimzett>Zsofi</cimzett>
		<cim>melak@yahoo.com</cim>
		<subject>kutya</subject>
		<szoveg>Zsofi! Etesd mar meg a kutyam legyszi! Kosz! Pusz...</szoveg>
	</email>
</emailek>'));

 insert into levelezes values
  ('luca', timestamp '2007-11-12 20:03:31', timestamp '2007-11-12 20:42:19', 'G07', xmltype (
'<?xml version="1.0"?>
<emailek xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xsi:schemaLocation="http://people.inf.elte.hu/balhal/Oracle/XML/email email.xsd">
	<email>
		<cimzett>Barbie</cimzett>
		<cim>barbie@gmail.com</cim>
		<subject>RE:meghivo</subject>
		<szoveg>Tudom, tegnap is irtad. Valaszoltam is, hogy sajnos nem tudok elmenni. Pusz...</szoveg>
	</email>
	<email>
		<cimzett>Melak</cimzett>
		<cim>melak@yahoo.com</cim>
		<subject>RE:love</subject>
		<szoveg>Melak hagyjal beken, szamtalanszor megmondtam!!!</szoveg>
	</email>
	<email>
		<cimzett>Zsofi</cimzett>
		<cim>zsofi@yahoo.com</cim>
		<subject>okadek</subject>
		<szoveg>Melak nem szall le rolam, legszivesebben lehanynam...</szoveg>
	</email>
</emailek>'));

insert into levelezes values
  ('melak', timestamp '2007-11-12 15:11:11', timestamp '2007-11-12 15:29:11', 'G05', xmltype (
'<?xml version="1.0"?>
<emailek xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xsi:schemaLocation="http://people.inf.elte.hu/balhal/Oracle/XML/email email.xsd">
	<email>
		<cimzett>Luca</cimzett>
		<cim>luca@yahoo.com</cim>
		<subject>love</subject>
		<szoveg>Szeretlek! Nem birok nelkuled ki mar egy percet sem tovabb! Talalkozzunk, konyorgom! ((:</szoveg>
	</email>
	<email>
		<cimzett>Barbie</cimzett>
		<cim>barbie@gmail.com</cim>
		<subject>RE:kutya</subject>
		<szoveg>Egyreszt nem vagyok Zsofi, masreszt meg a jotanacsaidat tartsd meg magadnak!</szoveg>
	</email>
</emailek>'));

insert into levelezes values
  ('zsofi', timestamp '2007-11-12 21:14:08', timestamp '2007-11-12 21:26:09', 'G03', xmltype (
'<?xml version="1.0"?>
<emailek xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xsi:schemaLocation="http://people.inf.elte.hu/balhal/Oracle/XML/email email.xsd">
	<email>
		<cimzett>Luca</cimzett>
		<cim>luca@yahoo.com</cim>
		<subject>RE:okadek</subject>
		<szoveg>Ne torodj vele, az egy barom, ugy bofog, mint egy diszno...</szoveg>
	</email>
	<email>
		<cimzett>Melak</cimzett>
		<cim>melak@yahoo.com</cim>
		<subject>RE:ebed</subject>
		<szoveg>Melak ne haragudj, de a holnap 2 ora nem jo, Zolival megyunk zoknit vasarolni. Holnaputan sem erek
		majd ra sajna egesz nap. Es vszleg azutan sem...</szoveg>
	</email>
	<email>
		<cimzett>Barbie</cimzett>
		<cim>barbie@gmail.com</cim>
		<subject>RE:kutya</subject>
		<szoveg>Megetettem Barbie, ne aggodj!</szoveg>
	</email>
</emailek>'));

insert into levelezes values
  ('melak', timestamp '2007-11-12 21:02:01', timestamp '2007-11-12 21:10:53', 'G03', xmltype (
'<?xml version="1.0"?>
<emailek xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xsi:schemaLocation="http://people.inf.elte.hu/balhal/Oracle/XML/email email.xsd">
	<email>
		<cimzett>Zsofi</cimzett>
		<cim>zsofi@yahoo.com</cim>
		<subject>ebed</subject>
		<szoveg>Zsofi, nagyon jol allt ma rajtad az a lila pulover. Csak neztelek, es arra gondoltam milyen regen
		beszelgettunk mar mi ketten egymassal. Nincs kedved holnap egyutt ebedelni velem?</szoveg>
	</email>
</emailek>'));

insert into levelezes values
  ('barbie', timestamp '2007-11-12 18:23:33', timestamp '2007-11-12 18:26:51', 'G01', xmltype (
'<?xml version="1.0"?>
<emailek xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"
xsi:schemaLocation="http://people.inf.elte.hu/balhal/Oracle/XML/email email.xsd">
	<email>
		<cimzett>Zsofi</cimzett>
		<cim>zsofi@yahoo.com</cim>
		<subject>kutya</subject>
		<szoveg>Zsofi! Etesd mar meg a kutyam legyszi! Kosz! Pusz...</szoveg>
	</email>
</emailek>'));