Subversion Repositories wimsdev

Rev

Rev 6458 | Blame | Compare with Previous | Last modification | View Log | RSS feed

  1. !if $wims_read_parm=$empty
  2.   !exit
  3. !endif
  4.  
  5. !set cat=A
  6.  
  7. !for a in $wims_read_parm
  8.   !set t_dom=!lookup $a in $dir.$lang
  9.   !set draw$a=digraph bar {\
  10.         rankdir=LR;\
  11.         node [fontsize=12,width=".3", height=".3", margin=0.1 shape=ellipse color=blue];
  12.   !set t_dom=!lookup $a in $dir.$lang
  13.   !set draw$a=$(draw$a)\
  14.     "$a" [ label= "$t_dom"];
  15.   !set t1=!lookup $a in $dir
  16.   !for t2l in $t1
  17.     !set t2n=!lookup $t2l in $dir.$lang
  18.     !default t2n=$t2l
  19.      !!!!!
  20.     !set key=!lookup $t2l in $dir
  21.     !default key=$t2l
  22.     !set key_l=!lookup $t2l in $dir_lang
  23.     !set key=!replace internal _ by $ $  in $t2l
  24.     !set key=$key,$key_l
  25.     !!!!!
  26.     !!set more=!lookup $t in $dir
  27.     !set draw$a=$(draw$a)\
  28.        "$t2n" [ URL="$wims_ref_name?session=$wims_session&$search_addr" ];\
  29.        "$a"-> "$t2n";
  30.     !set t3=!lookup $t2l in $dir
  31.     !set cnt=!itemcnt $t3
  32.     !if $cnt > 1
  33.       !for t3l in $t3
  34.         !set t3n=!lookup $t3l in $dir.$lang
  35.         !default t3n=$t3l
  36.         !!!!!
  37.         !set key=!lookup $t3l in $dir
  38.         !default key=$t3l
  39.         !set key_l=!lookup $t3l in $dir_lang
  40.         !set key=!replace internal _ by $ $  in $t3l
  41.         !set key=$key,$key_l
  42.         !!!!!
  43.         !set draw$a=$(draw$a)\
  44.         "$t3n" [ URL="$wims_ref_name?session=$wims_session&$search_addr" ];\
  45.         "$t2n" -> "$t3n";
  46.         !set more=!lookup $t3l in $dir
  47.         !if $more !=$empty
  48.           !set draw$a=$(draw$a)\
  49.           "suite$t3n" [ label="suite" URL="$wims_ref_name?session=$wims_session&module=$module&job=$job&parm=$t3l" ];\
  50.           "$t3n" -> "suite$t3n";
  51.         !endif
  52.       !next
  53.     !endif
  54.   !next
  55.   !set draw$a=$(draw$a)\
  56. }
  57.   !set graphviz_format=dot
  58.   !set graphviz_output=svg
  59.   !set draw1=!exec graphviz $(draw$a)
  60.  
  61.   $(draw1)
  62.  
  63.   !!<object type="image/svg+xml" data="$(draw1[1;])">
  64.   !!    Le navigateur ne supporte pas les fichiers SVG !
  65.   !!</object>
  66. !next
  67.