Subversion Repositories wimsdev

Rev

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

Rev 16195 Rev 16480
Line 538... Line 538...
538 
  # delete an item
 538 
  # delete an item
539 
  !if $job=delete and $delete>0 and $delete<=$exocnt
 539 
  !if $job=delete and $delete>0 and $delete<=$exocnt
540 
    !read adm/sheet/sheetexam.shift sheet,$sheet,,$delete
 540 
    !read adm/sheet/sheetexam.shift sheet,$sheet,,$delete
541 
    delete=
 541 
    delete=
542 
    exocnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$sheet
 542 
    exocnt=!recordcnt wimshome/log/classes/$wims_class/sheets/.sheet$sheet
543 
  !endif
 - 
 
544 
 
 - 
 
545 
  # move up an item
 - 
 
546 
  !if $job=moveup and $moveup>1 and $moveup<=$exocnt
 - 
 
547 
    !read adm/sheet/sheetexam.shift sheet,$sheet,$[$moveup-1],$moveup
 - 
 
548 
  !endif
 543 
  !endif
549 
 
 544 
 
550 
  # move to specific position
 545 
  # move to specific position
551 
  !if $job=moveto and $movetarget>=1 and $movetarget<=$[$exocnt+1] and $movesource!=$movetarget and $movesource>=1 and $movesource<=$exocnt
 546 
  !if $job=moveto and $movetarget>=1 and $movetarget<=$[$exocnt+1] and $movesource!=$movetarget and $movesource>=1 and $movesource<=$exocnt
552 
    !read adm/sheet/sheetexam.shift sheet,$sheet,$movetarget,$movesource
 547 
    !read adm/sheet/sheetexam.shift sheet,$sheet,$movetarget,$movesource