#-*- coding: utf-8-unix mode: ctp -*-

# doc-produce-list.txt
# 
#---

%text
=== Videos ===

v: 2021jul01

%code
dbgsaved=dbg
#dbg=2

# .-- read doclist
#
prepare_doclist(":zlist")
  # returns: Doc_merged[]
  

# .-- define list of documents per author
#
#dbg=3  # ////
list_a="""
# titel        : short titel : search list   : description           ;

ACU Ausserparlementarischer Corona Ausschuss :: ACU ausschuss corona-ausschuss:;
Arzte fur Aufklarung MWGFD :: arzte aufklarung :;
Bhakdi Sucharit Prof: @title-1 : bhakdi bakhdi    : .... ;
Bircher Andres Dr.med. :: bircher andres : @titel naturmedizin :;
Chomsky Noam :: chomsky :;

Fullmich Reiner Dr.:: fullmich reiner :;

Ganser Daniele : @title-1 : ganser dani*&911 : @titel ist Historiker ;
Griesz-Brisson Margareta :: griesz maskenpflicht :;

Hatschop Michael :: echse spielt? :;
Hallervorden Dieter :: hallervorden :;

Kamper Dr. aus Nebraska :: kamper nebraska:;
Kickl Herbert :: kickl:;
Knabbe Gabriele :: knabbe :;
Ken-FM :: ken-fm :;
Klinghardt Dietrich Dr. med. :: klinghardt dietrich :;

Michel Jean-Dominique :: michel jean-dominique :;
Puschel Klaus :: puschel :;

Raoult Didier :: epidemie vaccins : @titel professeur;

Sebastian  :: sebastian :;

Scarbi Vittorio :: s[cg]arbi        : .... ;
Spitzbart Michael :: spitzbart:;
Spitzer Manfred :: :;
Schiffmann Bodo:: : schiffmann : ;
Schoening Heiko :: schoening:;

Schramm Georg :: schramm:;
Schulte Thorsten :: schulte thorsten :;
Streeck Hendrik Prof. :: streeck : @titel Virologe:;

Wodarg Wolfgang ::wodarg wolfgang :;
Wollf Ernst     : @title-1 : wollf             : .... ;

BMI-de :: bmi-de :;

Bauern  :: bauern ch uri impfluge blauzunge :;


Demos de :: demo :;

Wirtschaftskrise Finanzcrash :: wirtschaftskrise finanzcrash :;

Verfassungsgerichtshof :: at verfassungsgerichtshof :;

Lafarge Holcim :: nigeria feinstaub :;

Mascherine :: mascherine :;
"""

# .-- setup resources list
#dbg=3
setup_produce_a(list_a,Produce_a)
  # init_doca_work()
  # returns: Produce_a[], basedir_page

#dbg=3
if (dbg>=3) showArray("Produce_a")
#dbg=dbgsaved


# .-- media files asked by category

for (pi in Produce_a) {
    search=Produce_a[pi][i_search]
    title=Produce_a[pi][i_title]
    titleshort=Produce_a[pi][i_titleshort]

    text=Produce_a[pi][i_text]
    if (dbg>=3) printf "pi=%d title=%s,  titleshort=%s,  search=%s,\n text=%s,\n", pi,title,titleshort,search,text

    print_page_paragraph(search,title,titleshort)
      # returns: detail_page, subdir, f_detail_page

dbg=3
    doc_search(search)
      # returns: Doc_match[]
dbg=dbgsaved

    print_detailpage(Doc_match,title,text)

    if (dbg>=3) printf "pi=%d, end for\n",pi
} 


# .-- print not previously asked media files

#dbg=3

search="unused video"
title="other videos"
titleshort=title

print_selection_doc_entry(search,title,titleshort)
      # returns: detail_page, subdir, f_detail_page

doc_un_used("@mov")
  # returns: Doc_match[]

print_selection_doc_page(Doc_match,title,text)
    

dbg=dbgsaved