#-*- 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"