joewiz
commented
5 years ago The audit report was:
tei-simple-pm joe$ perl ../audit_exist_5x_removals/audit_removals.pl
>>> Replace the following instances of the function map:for-each-entry with map:for-each.
./content/latex-functions.xql:525 map:for-each-entry($config?styles, function($class, $code) {
./content/fo-functions.xql:519 map:for-each-entry($map, function($key, $value) {
./content/fo-functions.xql:522 map:for-each-entry($defaults, function($key, $value) {
./content/css.xql:122 map:for-each-entry($styles, function($key, $value) {
>>> Replace the following instances of the function map:new with map:merge.
./content/model.xql:93 map:new(($options,
./content/model.xql:211 map:new(($module, map { "description": inspect:inspect-module(xs:anyURI($module?at)) }))
./content/latex-functions.xql:40 map:new(($config, map:entry("rendition-styles", $styles)))
./content/latex-functions.xql:64 let $configNoFn := map:new(($config, map { "skip-footnotes": true() }))
./content/latex-functions.xql:371 map:new(($config, map { "cssStyles": $config?styles, "styles": map:new($newStyles)}))
./content/latex-functions.xql:375 let $styles := map:new(for $class in $classes return $config?styles($class))
./content/latex-functions.xql:520 let $styles := map:new(($config?rendition-styles, $styles))
./content/latex-functions.xql:521 let $config := pmf:macros(map:new(($config, map { "styles": $styles })))
./content/latex-functions.xql:530 map:new(($config, map {"latex-styles": $latexCode}))
./content/fo-functions.xql:85 map:new(($config, map:entry("rendition-styles", $styles)))
./content/fo-functions.xql:470 map:new(($default, $classes ! $config?default-styles(.)))
./content/fo-functions.xql:472 map:new($classes ! $config?default-styles(.))
./content/fo-functions.xql:474 map:new(
./content/fo-functions.xql:509 map:new(($defaults, $map))
./content/fo-functions.xql:518 map:new((
./content/fo-functions.xql:520 map:entry($key, map:new(($map($key), $defaults($key))))
./content/fo-functions.xql:535 map:new(($config, map:entry("styles", $styles)))
./content/fo-functions.xql:546 map:new(($config, map:entry("default-styles", pmf:merge-styles($systemStyles, $userStyles))))
./content/util.xql:130 map:new(($modulesDefault, map:entry("modules", array { $modulesDefault?modules?*, $ext-modules })))
./content/util.xql:246 map:new(($module, map:entry("at", system:get-module-load-path() || "/" || $module?at)))
./content/css.xql:42 map:new(
./content/css.xql:47 let $styles := map:new(
./content/css.xql:105 map:new(
./templates/basic/modules/app.xql:86 templates:process($node/*[not(@class="empty")], map:new(($model, map { "work": . })))
./transform/beamer-epub.xql:30 map:new(($options,
./transform/documentation-print.xql:30 map:new(($options,
./transform/documentation-epub.xql:32 map:new(($options,
./transform/beamer-web.xql:28 map:new(($options,
./transform/documentation-latex.xql:30 map:new(($options,
./transform/beamer-latex.xql:32 map:new(($options,
./transform/myteisimple-print.xql:30 map:new(($options,
./transform/teisimple-web.xql:28 map:new(($options,
./transform/teisimple-print.xql:30 map:new(($options,
./transform/teisimple-epub.xql:30 map:new(($options,
./transform/myteisimple-epub.xql:30 map:new(($options,
./transform/teisimple-latex.xql:30 map:new(($options,
./transform/beamer-print.xql:30 map:new(($options,
./transform/myteisimple-latex.xql:30 map:new(($options,
./transform/documentation-web.xql:30 map:new(($options,
./transform/myteisimple-web.xql:28 map:new(($options,
>>> Replace the following instances of the function xmldb:add-user-to-group with sm:add-group-member.
./modules/generator.xql:246 xmldb:add-user-to-group($user, $group)
>>> Replace the following instances of the function xmldb:copy with xmldb:copy-collection or xmldb:copy-resource (no replacement in 4.x.x!).
./modules/generator.xql:96 xmldb:copy($config:odd-root, $target, $file),
./modules/generator.xql:108 (: xmldb:copy($config:compiled-odd-root, $target || "/compiled", "teisimple.odd"), :)
./modules/generator.xql:111 xmldb:copy($config:output-root, $collection || "/transform", "teisimple.fo.css"),
./modules/generator.xql:279 xmldb:copy($source, $target, $resource),
>>> Replace the following instances of the function xmldb:create-user with sm:create-account.
./modules/generator.xql:250 xmldb:create-user($user, $perms/@password, $group, ())
>>> Replace the following instances of the function xmldb:exists-user with sm:user-exists.
./modules/generator.xql:241 if (xmldb:exists-user($user)) then
>>> Replace the following instances of the function xmldb:get-current-user with sm:id.
./modules/generator.xql:238 let $user := if ($perms/@user) then $perms/@user/string() else xmldb:get-current-user()
>>> Replace the following instances of the function xmldb:get-user-groups with sm:get-user-groups.
./modules/generator.xql:239 let $group := if ($perms/@group) then $perms/@group/string() else xmldb:get-user-groups($user)[1]
./modules/generator.xql:242 if (index-of(xmldb:get-user-groups($user), $group)) then
>>> Replace the following instances of the function xmldb:group-exists with sm:group-exists.
./modules/generator.xql:230 if (xmldb:group-exists($group)) then
>>> Replace the following instances of the function xmldb:permissions-to-string with sm:octal-to-mode.
./modules/generator.xql:261 xmldb:permissions-to-string(util:base-to-integer(xs:int($permissions), 8))It now returns 0 flagged modules.
Problem:
Solution:
Testing:
I'll be happy to publish a hotfix after this PR is merged.