{{vtScript}} ### liefert ein rekursives Verzeichnis-Listing des Verzeichnisses, das im Parameter "dir" angegeben ist ### ### falls der Parameter "src" den Wert "hires" hat, wird "dir" relativ zum High-res-Verzeichnis interpretiert, sonst relativ zum Low-res-Verzeichnis ### ### es werden nur neue bzw. geänderte Verzeichnisse aufgenommen ### {{vtIf: workspace}}{{vtElse}}{{vtReturn}}{{vtEndIf}} {{vtInclude: includes/initialize.html}} {{vtUse: {vtGet:ID_Home} }} {{vtSet: PagePath="//{vtName}"}} {{vtEndUse}} {{vtUse: {vtGet:ID_Bilder} }} {{vtSet: PagePath="{vtGet:PagePath}/{vtName}"}} {{vtEndUse}} {{vtIf: {vtGetValue:src} .eq. hires }} {{vtSet: BasePath = "{vtGlobal:pxtcPathHires}" }} {{vtElse}} {{vtSet: BasePath = "{vtGlobal:pxtcPathLores}" }} {{vtEndIf}} {{vtIf: {vtGetValue:dir} .neq. {vtGet:BasePath} }} {{vtCalc: substr( '{vtGetValue:dir}', strlen( '{vtGet:BasePath}' ) ) }} {{vtSet: Prefix}} {{vtEndIf}} {{vtSet: Blacklist = "{vtSession:import_hires_blacklist}" }} {{vtDbQuery: SHOW TABLES LIKE '{vtConfig:mysqlTablePrefix}data_product' }} {{vtIf: {vtDbCountSelection} .gt. 0 }} {{vtDbQuery: SELECT DISTINCT `kennung` FROM {vtDbTable:data_product} WHERE `kennung` NOT IN ('','*') ORDER BY `kennung` }} {{vtDbLoop}} {{vtSet: Blacklist = "{vtGet:Blacklist},{vtDbRow:kennung}" }} {{vtEndDbLoop}} {{vtEndDbQuery}} {{vtEndIf}} {{vtCalc: getDirectoryTree( '{vtGetValue:dir}' ) }} {{vtRepeat: {vtResult} }} {{vtCalc: substr( strrchr( '{vtItem:escaped}', '/' ), 1 ) }} {{vtIf: {vtResult} .nin. {vtGet:Blacklist} }} {{vtIf: {vtGet:Prefix} .eq. }} {{vtSet: Item = "{vtItem}" }} {{vtElse}} {{vtCalc: rtrim( '{vtGet:Prefix}{vtItem}', '/' ) }} {{vtSet: Item }} {{vtEndIf}} {{vtIf: {vtGet:Item} .eq. /}} {{vtSet: pfad="{vtGet:BasePath}/"}} {{vtSet: Seite="{vtGet:PagePath}"}} {{vtElse}} {{vtSet: pfad="{vtGet:BasePath}/{vtGet:Item}/"}} {{vtSet: Seite="{vtGet:PagePath}{vtGet:Item}"}} {{vtEndIf}} {{vtCalc: getFileInfo('{vtGet:pfad}', 'mtime') }} {{vtSet: mtime}} {{vtUse: {vtGet:Seite} }} {{vtSet: ImagelistID="{vtID}"}} {{vtSet: ImagelistTS="{Timestamp}"}} {{vtEndUse}} {{vtIf: {vtGet:ImagelistID} .eq. .or. {vtGetValue:ignore_dates} .eq. 1 .or. {vtGet:ImagelistTS} .neq. {vtGet:mtime} }} {{vtSet: list="{vtGet:list}|{vtGet:Item}"}} {{vtEndIf}} {{vtEndIf}} {{vtEndRepeat}} {{vtEndScript}}{{vtGet:list,raw}}