Subversion Repositories wimsdev

Rev

Rev 15368 | Rev 15371 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 15368 Rev 15370
Line 321... Line 321...
321 
    ptest=$pass
 321 
    ptest=$pass
322 
    !goto existing
 322 
    !goto existing
323 
  !endif
 323 
  !endif
324 
  !for i in lastn,firstn
 324 
  !for i in lastn,firstn
325 
    $i=!replace , by , in $($i)
 325 
    $i=!replace , by , in $($i)
326 
    $i=!translate internal ! $$<" to $     $ in $($i)
 326 
!!    $i=!translate internal !&;?:#$$<" to $     $ in $($i)
- 
 
 327 
    $i=!translate internal $char_forbidden_name to $     $ in $($i)
327 
    $i=!trim $($i)
 328 
    $i=!trim $($i)
328 
    $i=!singlespace $($i)
 329 
    $i=!singlespace $($i)
329 
    $i=!char 1 to 40 of $($i)
 330 
    $i=!char 1 to 40 of $($i)
330 
  !next i
 331 
  !next i
331 
  !if $lastn=$empty or $firstn=$empty
 332 
  !if $lastn=$empty or $firstn=$empty