# ------------------------- DEFINE FACULTY ID -------------------------------#
# Opredelimo ID fakultete, ki skrbi za to da se v poročilu (kjer je dogovorjeno) izpiše kratice fakultete,
# ime fakultete ter izriše logo fakultete. 
# (glej poročilo za izvajalca, ki ga generira R. skripta koda-izvajalec_predmet)
# ID skrbi tudi, da preberemo ustrezne CSV datoteke za ustrezno Fakulteto.
# Ko se koda prenese na strežnik ID zakomentiramo, saj ga Peter ne Potrebuje
ID <- ID 
fakulteta <- ""
ime.fakultete <- ""
if (ID == 3000001) {
  # Purpose: Read CSV file which has "FDV" in the end of the file.
  fakulteta <- "PEF"
  # V primeru ko/če ima izvajalec študijsko prasko, se v izpisu za
  # izvajalca ustvari poglavje: ŠTUDIJSKA PRAKSA,
  # kjer se pri izrisu barplotov, namesto izpisa "Povprečje PEF", izpiše: "Prakse PEF"
  studijska.praksa <- "Prakse PEF"
  # na prvi strani PDF poročila pod sliko
  ime.fakultete <- "Pedagoška fakulteta"
  # na prvi strani PDF poročila doda usterzno sliko fakultete
  # (logo uporabimo pri generiranju poročil glej koda-izvajalec_predmet.r)
  logo <- "logo_PEF"
} else if (ID == 3000004) {
  fakulteta <- "FU"
  studijska.praksa <- "Prakse FU"
  ime.fakultete <- "Fakulteta za upravo"
  logo <- "logo_FU" 
} else if (ID == 3000006) {
  fakulteta <- "FSD"
  studijska.praksa <- "Prakse FSD"
  ime.fakultete <- "Fakulteta za socialno delo"
  logo <- "logo_FSD"
} else if (ID == 3000009) {
  fakulteta <- "FPP"
  studijska.praksa <- "Prakse FPP"
  ime.fakultete <- "Fakulteta za pomorstvo in promet"
  logo <- "logo_FPP"
} else if (ID == 3000011) {
  fakulteta <- "ZF"
  studijska.praksa <- "Prakse ZF"
  ime.fakultete <- "Zdravstvena fakulteta"
  logo <- "logo_ZF"
} else if (ID == 3000018) {
  fakulteta <- "FF"
  studijska.praksa <- "Prakse FF"
  ime.fakultete <- "Filozofska fakulteta"
  logo <- "logo_FF"
} else if (ID == 3000019) {
  fakulteta <- "EF"
  studijska.praksa <- "Prakse EF"
  ime.fakultete <- "Ekonomska fakulteta"
  logo <- "logo_EF"
} else if (ID == 3000020) {
  fakulteta <- "PF"
  studijska.praksa <- "Prakse PF"
  ime.fakultete <- "Pravna fakulteta"
  logo <- "logo_PF"
} else if (ID == 3000021) {
  fakulteta <- "FDV"
  studijska.praksa <- "Prakse FDV"
  ime.fakultete <- "Fakulteta za družbene vede"
  logo <- "logo_FDV"
  # Ustvarimo direktorij, kamor bomo zapisali 
  # poročila za članico
  dir.create(paste0("Evalvacija/results/",fakulteta), showWarnings = FALSE) 
  # Še folder agregatov
  dir.create(paste0("Evalvacija/results/",fakulteta,"/Agregati"), showWarnings = FALSE)  
} else if (ID == 3000022) {
  fakulteta <- "FSP"
  studijska.praksa <- "Prakse FSP"
  ime.fakultete <- "Fakulteta za šport"
  logo <- "logo_FSP"
} else if (ID == 3000023) {
  fakulteta <- "FS"
  studijska.praksa <- "Prakse FSTR"
  ime.fakultete <- "Fakulteta za strojništvo"
  logo <- "logo_FSTR"
} else if (ID == 3000025) {
  fakulteta <- "FA"
  studijska.praksa <- "Prakse FA"
  ime.fakultete <- "Fakulteta za arhitekturo"
  logo <- "logo_FA"
} else if (ID == 3000026) {
  fakulteta <- "FGG"
  studijska.praksa <- "Prakse FGG"
  ime.fakultete <- "Fakulteta za gradbeništvo in geodezijo"
  logo <- "logo_FGG"
} else if (ID == 3000027) {
  fakulteta <- "FMF"
  studijska.praksa <- "Prakse FMF"
  ime.fakultete <- "Fakulteta za matematiko in fiziko"
  logo <- "logo_FMF"
} else if (ID == 3000029) {
  fakulteta <- "NTF"
  studijska.praksa <- "Prakse NTF"
  ime.fakultete <- "Naravoslovnotehniška fakulteta"
  logo <- "logo_NTF"
} else if (ID == 3000030) {
  fakulteta <- "FKKT"
  studijska.praksa <- "Prakse FKKT"
  ime.fakultete <- "Fakulteta za kemijo in kemijsko tehnologijo"
  logo <- "logo_FKKT"
} else if (ID == 3000031) {
  fakulteta <- "FFA"
  studijska.praksa <- "Prakse FFARM"
  ime.fakultete <- "Fakulteta za farmacijo"
  logo <- "logo_FFARM"
} else if (ID == 3000037) {
  fakulteta <- "VF"
  studijska.praksa <- "Prakse VF"
  ime.fakultete <- "Veterinarska fakulteta"
  logo <- "logo_VF"
} else if (ID == 3000041) {
  fakulteta <- "MF"
  studijska.praksa <- "Prakse MF"
  ime.fakultete <- "Medicinska fakulteta"
  logo <- "logo_MF"
} else if (ID == 3000042) {
  fakulteta <- "ALUO"
  studijska.praksa <- "Prakse ALUO"
  ime.fakultete <- "Akademija za likovno umetnost in oblikovanje"
  logo <- "logo_ALU"
} else if (ID == 3000043) {
  fakulteta <- "AG"
  studijska.praksa <- "Prakse AG"
  ime.fakultete <- "Akademija za glasbo"
  logo <- "logo_AG"
} else if (ID == 3000044) {
  fakulteta <- "AGRFT"
  studijska.praksa <- "Prakse AGRFT"
  ime.fakultete <-
    "Akademija za gledališče, radio, film in televizijo"
  logo <- "logo_AGRFT"
} else if (ID == 3000050) {
  fakulteta <- "TEOF"
  studijska.praksa <- "Prakse TEOF"
  ime.fakultete <- "Teološka fakulteta"
  logo <- "logo_TEOF"
} else if (ID == 3000063) {
  fakulteta <- "FRI"
  studijska.praksa <- "Prakse FRI"
  ime.fakultete <- "Fakulteta za računalništvo in informatiko"
  logo <- "logo_FRI"
} else if (ID == 3000064) {
  fakulteta <- "FE"
  studijska.praksa <- "Prakse FE"
  ime.fakultete <- "Fakulteta za elektrotehniko"
  logo <- "logo_FE"
} else if (ID == 3000071) {
  fakulteta <- "BF"
  studijska.praksa <- "Prakse BF"
  ime.fakultete <- "Biotehniška fakulteta"
  logo <- "logo_BF"
} else {
  fakulteta  <- ""
  studijska.praksa <- ""
  ime.fakultete <- ""
}
#------------------------ //DEFINE FACULTY ID// -----------------------------#