# POROČILA PREDMETOV

source("Evalvacija/R/koda-predmet.r")



#############################
# /GENERIRANJE tex delov/
#############################
#######################################################################################
# SESTAVLJANJE in KOMPILACIJA .tex datotek
#######################################################################################
tex.glava <- scan('Evalvacija/latexkosi/a-glava-predmet.tex', character(0), sep='\n', quiet=TRUE,encoding='UTF-8') #encoding='UTF-8' (ČŽŠ ji)
tex.glava <- gsub(pattern='!logo!', replacement = Hmisc::latexTranslate(logo), x = tex.glava) # Logo fakultete
tex.glava <- gsub(pattern='!ime.fak!', replacement=Hmisc::latexTranslate(ime.fakultete), x=tex.glava)  #V naslovnici izpis imena fakultete
tex.glava <- gsub(pattern='!leto!', replacement=Hmisc::latexTranslate(semester.leto), x=tex.glava) #Izpis imena leta semestra
tex.glava <- gsub(pattern='!encoding_r!', tolower(gsub("-","",localeToCharset(locale=Sys.getlocale("LC_CTYPE")))), x=tex.glava)
tex.noga  <- scan('Evalvacija/latexkosi/z-noga.tex', character(0), sep='\n', quiet=TRUE, encoding='UTF-8')
Rdirektorij <- getwd()


# REPORTI PREDMETOV #
for (predmet in names(predmeti)){
  tex.izvajalci.predmet <- NULL
  predmet.temp <- subset(povprecja.predmeti, predmet.sifra==predmet)
  if (!is.null(part$predmet[[predmet]]$pojasniloPremaloEnot)) { # ÄŤe obstaja pojasnilo da analiza ni narejena zaradi premalo enot
    tex.parti <- part$predmet[[predmet]]$pojasniloPremaloEnot
  } else {
    tex.part.predmet <- c(part$predmet[[predmet]]$cont, "\\newpage", part$predmet[[predmet]]$krediti, "\\newpage",part$predmet[[predmet]]$kompetence1,"\\newpage",
                          "\\section{Analiza po programih in letnikih}",  part$predmet[[predmet]]$BySmerLetnik, "\\newpage","\\section{Odgovori na odprta vprašanja}", part$predmet[[predmet]]$text)
    
    
    for (izvajalec in as.character(predmeti[[predmet]]$izvajalci)){
      if (!is.null(part$izvajalec[[izvajalec]][[predmet]]$pojasniloPremaloEnot)) { # ÄŤe obstaja pojasnilo da analiza ni narejena zaradi premalo enot
        tex.part.predmet.izvajalec <- c(part$izvajalec[[izvajalec]][[predmet]]$pojasniloPremaloEnot, "\\newpage")
        tex.part.izvajalecBySmerLetnik <- NULL
      } else {
        tex.part.predmet.izvajalec <- c("\\subsection{Komponente pedagoškega dela}", part$izvajalec[[izvajalec]][[predmet]]$cont, "\\newpage")
        tex.part.izvajalecBySmerLetnik <- c('\\subsection{Analiza po smereh in letnikih}', part$izvajalec[[izvajalec]][[predmet]]$BySmerLetnik)
      }
      tex.naslov.izvajalca <- paste('\\section{', izvajalci[[izvajalec]]$ime, '}', sep='')
      tex.izvajalci.predmet <- c(tex.izvajalci.predmet, tex.naslov.izvajalca, tex.part.predmet.izvajalec, tex.part.izvajalecBySmerLetnik, "\\newpage")
    }
    tex.parti <- c("\\newpage",
                   '\\section{Ocene iz ankete PRED in ankete PO izpitu}', tex.part.predmet
 
    )
  }
  
  tex.glava.predmet <- gsub(pattern='!naslov!', replacement=Hmisc::latexTranslate(gsub('_', '\\_', predmet.temp$ime.predmeta[1], fixed=TRUE)), x=tex.glava)
  if (predmet.temp$STOPNJA[1]==1) {
    stopnjaText <- 'Dodiplomski študij'
  } else if (predmet.temp$STOPNJA[1]==2) {
    stopnjaText <- 'Podiplomski študij'
  } else {stopnjaText <- ''}
   tex.glava.predmet <- gsub(pattern='\\hfillprostorZaStopnjoStudija', replacement=Hmisc::latexTranslate(stopnjaText), tex.glava.predmet, fixed=TRUE)
  if (oblikovanje_izvedbe) {
    tex.glava.predmet <- gsub(pattern='\\hfillprostorZaIzvedbo', replacement=oblikujIzvedbo(predmet.temp$IZVEDBA, predmet.temp$SEMESTER_IZV), tex.glava.predmet, fixed=TRUE)
  }
  
  tex.report.predmet <- c(tex.glava.predmet, "\\newpage",
                          "\\setlength{\\tabcolsep}{4pt}", part$predmet[[predmet]]$povzetek, part$predmet[[predmet]]$kvantili, "\\newpage", "\\setlength{\\tabcolsep}{6pt}",
                          '\\chapter{Podrobne analize}',
                          part$predmet[[predmet]]$response,
                          tex.parti,"\\newpage",
                          tex.noga)
  
  cat(tex.report.predmet, file=paste("Evalvacija/results/predmet_", predmet,"_", fakulteta, ".tex", sep=""), sep="\n")
  setwd(paste(Rdirektorij, "Evalvacija/results", sep="/"))
  tools::texi2pdf(file=paste("predmet_", predmet,"_", fakulteta, ".tex", sep=""), quiet=TRUE, clean=TRUE)
  setwd(Rdirektorij)
}
# /REPORTI PREDMETOV/ #