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

_/a.pages/zt/produce-lists/a2.txt

# depends: # mod/div/ctp-mod-div-a %code

mediafiles_a() # ctp-mod-div-a::

# returns dir_media ...
if (dbgm>=3) print "L10"

# find files in directory media

depth=“not-used” file_list_a(dir_media,media_re,depth,Files_a)

# returns Files_a[]

if (dbgm>=3) print "L16" 

fpfx=“.:” stra=“?linkonly” strb=“”

write_media_links_a(Files_a,fpfx,stra,strb)

stra=“” write_media_links_a(Files_a,fpfx,stra,strb)

if (dbgm>=3) print "L27"