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