View/Edit #7165:fix_french

Name(s): fix_french

1:  caller_perms().wizard || raise(E_PERM)
2:  for x in [this.now_fixing[1]..max_object()]
3:    for y in ($set_utils:difference(x:all_properties(x), {"location", "contents", "wizard", "programmer"}))
4:      this.now_fixing = {x, y}
5:      if (!is_clear_property(x, y))
6:        x.(y) = this:fix_french_value(x.(y))
7:      endif
8:      $command_utils:suspend_if_needed()
9:    endfor
10: endfor
11: "Last modified by Dax (#789) on Sat May 16 14:20:33 1998 EDT."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: manta (#7165)

You are not logged in.