// DESCRIPTION Export to Ant Movie Catalog XML database file with covers; Version 1.1 - Mod by soulsnake
// BASED ON Yves Charrazac's / Jerome Juin's XML export script
// AUTHOR bad4u - Mod by soulsnake
// LANGUAGE All

MessageVersion, amcXML, Temp are String

// Changement de langues
Switch Language
Case 3 // Anglais
MessageVersion = "Please, install 6.08 version or higher. Thanks"
Case 5 // Francais
MessageVersion = "Veuillez installer la version 6.08 ou sup\'e9rieure. Merci."
End

If param.version_texte+"."+param.release_texte<6.08 Then
 UserErrorMessage (MessageVersion)
End

fRep_Initial is String = fRepEnCours() + "\\"
First_fRep is String =  StringLeft (fRep_Initial , 3 )

amcXML = "<?xml version=""1.0"" encoding=""iso-8859-1""?>" + cr + "<AntMovieCatalog Format=""35"" Version=""3.5.1 (2007-09-22)"" Date=""01/01/2008 00:00:00"">" + cr + " <Catalog>" + cr + "  <Properties/>" + cr + "  <Contents>" + cr

Debut:

HLitPremier(VIDEOTAP, "titre")
TANTQUE PAS HEnDehors(VIDEOTAP)
MAJ_Fiche:

amcXML = amcXML + "   <Movie"

// Number
Temp = ""
Temp = VIDEOTAP.vicleunik
Temp = StringReplace(Temp, """", "&#34;")
If Temp <> "" Then
amcXML = amcXML + " Number=""" + Temp + """"
End 

// Media Label
Temp = ""
Temp = VIDEOTAP.label
Temp = StringReplace(Temp, """", "&#34;")
If Temp <> "" Then
amcXML = amcXML + " MediaLabel=""" + Temp + """"
End

// Media Type
Temp = ""
Temp = VIDEOTAP.TYPE
Temp = StringReplace(Temp, """", "&#34;")
If Temp <> "" Then
amcXML = amcXML + " MediaType=""" + Temp + """"
End

// Source
HReadSeek(PROPRIET, "P1CLEUNIK", VIDEOTAP.p1cleunik)
Temp = ""
If VIDEOTAP.p1cleunik > -1 Then
Temp = PROPRIET.NOM
Temp = StringReplace(Temp, """", "&#34;")
If Temp <> "" Then
amcXML = amcXML + " Source=""" + Temp + """"
End
End

// Date
Temp = ""
Temp = DateVersChaine(VIDEOTAP.date_acquis)
// Delete the "//" on the beginning of the NEXT line, if your date format is dd.mm.yyyy instead of dd/mm/yyyy
// Temp = StringReplace (Temp , "/" , ".")
Temp = StringReplace (Temp, """", "&#34;")
If Temp <> "" Then
amcXML = amcXML + " Date=""" + Temp + """"
End

// Rating
If VIDEOTAP.cote_amour > -1 Then
amcXML = amcXML + " Rating=""" + ((VIDEOTAP.cote_amour) * 2) + ".0"""
End

// Original Title
Temp = ""
Temp = VIDEOTAP.titre_orig
Temp = StringReplace(Temp, """", "&#34;")
If Temp <> "" Then
amcXML = amcXML + " OriginalTitle=""" + Temp + """"
End

// Translated Title
Temp = ""
Temp = VIDEOTAP.titre
Temp = StringReplace(Temp, """", "&#34;")
If Temp <> "" Then
amcXML = amcXML + " TranslatedTitle=""" + Temp + """"
End

// Director
Realisateur is String = Liste_Acteurs (VIDEOTAP.vicleunik , "VIDEO" , "REALISATEUR")
Realisateur = replace (Realisateur , RC , "; ")
Realisateur = StringReplace(Realisateur, """", "&#34;")
If Realisateur <> "" and Realisateur <> "(Nothing)" and Realisateur <> "(N\'e9ant)" Then
amcXML = amcXML + " Director=""" + Realisateur + """"
End

// Producer
Producteur is String = Liste_Acteurs (VIDEOTAP.vicleunik , "VIDEO" , "PRODUCTEUR")
Producteur = replace (Producteur , RC , "; ")
Producteur = StringReplace(Producteur, """", "&#34;")
If Producteur <> "" and Producteur <> "(Nothing)" and Producteur <> "(N\'e9ant)" Then
amcXML = amcXML + " Producer=""" + Producteur + """"
End

// Country
HReadSeek (PAYS, "P0CLEUNIK" , VIDEOTAP.p0cleunik)
Temp = ""
If VIDEOTAP.p0cleunik > -1 Then
Temp = PAYS.PAYS
Temp = StringReplace(Temp, """", "&#34;")
If Temp <> "" Then
amcXML = amcXML + " Country=""" + Temp + """"
End
End

// Genre
HReadSeek (CATEG, "CACLEUNIK", VIDEOTAP.CACLEUNIK)
Temp = ""
If VIDEOTAP.CACLEUNIK > -1 Then
Temp = CATEG.CATEGORIE
Temp = StringReplace(Temp, """", "&#34;")
If Temp <> "" Then
amcXML = amcXML + " Category=""" + Temp + """"
End
End

// Year
Temp = ""
Temp = VIDEOTAP.annee_real
Temp = StringReplace(Temp, """", "&#34;")
If Temp <> "" Then
amcXML = amcXML + " Year=""" + Temp + """"
End

// Length
Temp = ""
Temp = VIDEOTAP.duree
Temp = StringReplace(Temp, """", "&#34;")
If Temp <> "" and Temp <> "0" Then
amcXML = amcXML + " Length=""" + Temp + """"
End

// Actors
ListActHTTP is String = Liste_Acteurs (VIDEOTAP.vicleunik , "VIDEO" , "ACTEUR")
ListActHTTP = replace (ListActHTTP , RC , "; ")
ListActHTTP = StringReplace(ListActHTTP, """", "&#34;")
If ListActHTTP <> "" and ListActHTTP <> "(Nothing)" and ListActHTTP <> "(N\'e9ant)" Then
amcXML = amcXML + " Actors=""" + ListActHTTP + """"
End

// URL
Temp = ""
Temp = VIDEOTAP.Movie_URL_Value
Temp = StringReplace(Temp, """", "&#34;")
If Temp <> "" Then
amcXML = amcXML + " URL=""" + Temp + """"
End

// Description
HReadSeek (NOTEFILM, "VICLEUNIK", VIDEOTAP.VICLEUNIK)
Temp = ""
If HTrouve() Then
Temp = NOTEFILM.NOTEFILM
Temp = StringReplace(Temp, """", "&#34;")
Temp = StringReplace(Temp, RC, "|")
If Temp <> "" Then
amcXML = amcXML + " Description=""" + Temp + """"
End
End

// Comments
Temp = ""
Temp = VIDEOTAP.TEXTE_LIBRE
Temp = StringReplace(Temp, """", "&#34;")
Temp = StringReplace(Temp, RC, "|")
If Temp <> "" Then
amcXML = amcXML + " Comments=""" + Temp + """"
End

// Videoformat
HReadSeek (F_VIDEO, "FVCLEUNIK" , VIDEOTAP.fvcleunik)
Temp = ""
If VIDEOTAP.fvcleunik > -1 Then
Temp = F_VIDEO.format_video
Temp = StringReplace(Temp, """", "&#34;")
If Temp <> "" Then
amcXML = amcXML + " VideoFormat=""" + Temp + """"
End
End

// Audioformat
HReadSeek (SO, "SOCLEUNIK" , VIDEOTAP.socleunik)
Temp = ""
If VIDEOTAP.socleunik > -1 Then
Temp = SO.SON
Temp = StringReplace(Temp, """", "&#34;")
If Temp <> "" Then
amcXML = amcXML + " AudioFormat=""" + Temp + """"
End
End

// Resolution
HReadSeek (F_IMAGE, "FICLEUNIK" , VIDEOTAP.ficleunik)
Temp = ""
If VIDEOTAP.ficleunik > -1 Then
Temp = F_IMAGE.FORMAT_IMAGE
Temp = StringReplace(Temp, """", "&#34;")
If Temp <> "" Then
amcXML = amcXML + " Resolution=""" + Temp + """"
End
End

// Disks
Temp = ""
Temp = VIDEOTAP.nb_disques
Temp = StringReplace(Temp, """", "&#34;")
If Temp <> "" Then
amcXML = amcXML + " Disks=""" + Temp + """"
End

// Picture
Temp = ""
Temp = VIDEOTAP.IMAGE
Temp = StringReplace(Temp, """", "&#34;")
If Temp <> "" and Temp <> "cinehome.jpg" Then
amcXML = amcXML + " Picture=""" + Temp + """"
End

// Open CustomFields element
amcXML = amcXML + ">" + cr
amcXML = amcXML + "    <CustomFields"

// Add custom fields here as 2 examples below

//date_vu_avoir
Temp = ""
Temp = DateVersChaine(VIDEOTAP.date_vu_avoir)
Temp = StringReplace(Temp, """", "&#34;")
If Temp <> "" Then
amcXML = amcXML + " date_vu_avoir=""" + Temp + """"
End

// Je possede
Temp = ""
Temp = VIDEOTAP.achete
Temp = StringReplace(Temp, """", "&#34;")
If Temp <> "" Then
amcXML = amcXML + " achete=""" + Temp + """"
End

// Close CustomFields element
amcXML = amcXML + "/>" + cr
// Close Movie element
amcXML = amcXML + "   </Movie>" + cr

amcXML = StringReplace(amcXML, "; """, """")

HLitSuivant(VIDEOTAP)
End

amcXML = amcXML + "  </Contents>" + cr + " </Catalog>" + cr + "</AntMovieCatalog>" + cr

fSauveTexte(fRep_Initial + "AMC_export.xml" , amcXML )

Finscript: