Subversion Repositories wimsdev

Rev

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

Rev 16801 Rev 16919
Line 434... Line 434...
434 
 
 434 
 
435 
  comment=!replace internal $\
 435 
  comment=!replace internal $\
436 
$ by $ $ in $comment
 436 
$ by $ $ in $comment
437 
  comment=!singlespace $comment
 437 
  comment=!singlespace $comment
438 
 
 438 
 
- 
 
 439 
  !! --- manage of personalized presentation of sheet page
- 
 
 440 
  !if $prpage isitemof no,yes or $prpage=$empty
- 
 
 441 
    !bound prpage within yes,no default no
- 
 
 442 
  !else
- 
 
 443 
    !! old gestion of prpage with doc link
- 
 
 444 
    !! deprecated but keep for background compatibility
439 
  prpage=!word 1 of $prpage
 445 
    prpage=!word 1 of $prpage
440 
  prpage=!char 1 to 100 of $prpage
 446 
    prpage=!char 1 to 100 of $prpage
441 
  !if .. isin $prpage or / notin $prpage
 447 
    !if .. isin $prpage or / notin $prpage
442 
    prpage=
 448 
      prpage=no
443 
  !endif
 449 
    !endif
444 
  !if $prpage!=$empty
 450 
    !if $prpage!=no
445 
    test=!defof titb in wimshome/log/classes/$wims_class/doc/$prpage.def
 451 
      test=!fileexists wimshome/log/classes/$wims_class/doc/$prpage.def
446 
    !if $test=$empty
 452 
      !if $test!=yes
447 
      prpage=
 453 
        prpage=no
- 
 
 454 
      !endif
448 
    !endif
 455 
    !endif
449 
  !endif
 456 
  !endif
- 
 
 457 
 
450 
  !if $hidden_condition!=$empty
 458 
  !if $hidden_condition!=$empty
451 
    !readproc adm/vfilter/convertformat.proc formal\
 459 
    !readproc adm/vfilter/convertformat.proc formal\
452 
$hidden_condition
 460 
$hidden_condition
453 
    formal_hidden_condition=$output_convertformat
 461 
    formal_hidden_condition=$output_convertformat
454 
    !if $output_error!=$empty
 462 
    !if $output_error!=$empty
Line 495... Line 503...
495 
$exodescshow into update_field,update_content
 503 
$exodescshow into update_field,update_content
496 
    !read update.sheet
 504 
    !read update.sheet
497 
 
 505 
 
498 
    !distribute lines 9\
 506 
    !distribute lines 9\
499 
$formal_hidden_condition into update_field,update_content
 507 
$formal_hidden_condition into update_field,update_content
500 
    !read update.sheet
 508 
    !read update.sheet
501 
 
 509 
 
502 
    !if $activetest=0
 510 
    !if $activetest=0
503 
      !distribute lines 10\
 511 
      !distribute lines 10\
504 
$indivtechvar into update_field,update_content
 512 
$indivtechvar into update_field,update_content
505 
    !read update.sheet
 513 
    !read update.sheet
506 
 
 514 
 
Line 530... Line 538...
530 
  comment_save=$comment
 538 
  comment_save=$comment
531 
  attribut_save=$attribut
 539 
  attribut_save=$attribut
532 
  exodescshow_save=$exodescshow
 540 
  exodescshow_save=$exodescshow
533 
  formal_hidden_condition_save=$formal_hidden_condition
 541 
  formal_hidden_condition_save=$formal_hidden_condition
534 
  indivtechvar_save=$indivtechvar
 542 
  indivtechvar_save=$indivtechvar
- 
 
 543 
!endif
- 
 
 544 
 
- 
 
 545 
!if $job=prpage and $prpage_save=yes
- 
 
 546 
  test=!fileexists wimshome/sessions/$wims_session/user-deposit
- 
 
 547 
  !if $test=yes
- 
 
 548 
    msg2wims_primitives=if ifval for while\
- 
 
 549 
      reload fold ref link docform form resource calcform embed\
- 
 
 550 
      exercise tool doc example help adm tooltip href slib\
- 
 
 551 
      def define comment draw canvasdraw audio glossary
- 
 
 552 
      !sh rm -f $wims_home/$wims_sesdir/sheet$(sheet).def;\
- 
 
 553 
          $wims_home/bin/msg2wims $wims_home/$wims_sesdir/user-deposit $wims_home/$wims_sesdir/sheet$(sheet).def;\
- 
 
 554 
          if [ -e $wims_home/$wims_sesdir/sheet$(sheet).def ]; then\
- 
 
 555 
            mv $wims_home/$wims_sesdir/sheet$(sheet).def $wims_home/log/classes/$wims_class/sheets/sheet$(sheet).def;\
- 
 
 556 
            mv $wims_home/$wims_sesdir/user-deposit $wims_home/log/classes/$wims_class/sheets/sheet$(sheet).src;\
- 
 
 557 
          else\
- 
 
 558 
            rm -f $wims_home/$wims_sesdir/user-deposit;\
- 
 
 559 
          fi;
- 
 
 560 
  !endif
535 
!endif
 561 
!endif
536 
 
 562 
 
537 
!if $job=activate and $[$activetest]=0
 563 
!if $job=activate and $[$activetest]=0
538 
  !read adm/sheet/checkdepindiv
 564 
  !read adm/sheet/checkdepindiv
539 
  !if $sheet isitemof $sheet_dependancy and $sheet isitemof $sheet_indivtechvar
 565 
  !if $sheet isitemof $sheet_dependancy and $sheet isitemof $sheet_indivtechvar