Subversion Repositories wimsdev

!if $wims_read_parm=$empty

  !exit

!endif

!set cat=A

!for a in $wims_read_parm

  !set t_dom=!lookup $a in $dir.$lang

  !set draw$a=digraph bar {\

        rankdir=LR;\

        node [fontsize=12,width=".3", height=".3", margin=0.1 shape=ellipse color=blue];

  !set t_dom=!lookup $a in $dir.$lang

  !set draw$a=$(draw$a)\

    "$a" [ label= "$t_dom"];

  !set t1=!lookup $a in $dir

  !for t2l in $t1

    !set t2n=!lookup $t2l in $dir.$lang

    !default t2n=$t2l

     !!!!!

    !set key=!lookup $t2l in $dir

    !default key=$t2l

    !set key_l=!lookup $t2l in $dir_lang

    !set key=!replace internal _ by $ $  in $t2l

    !set key=$key,$key_l

    !!!!!

    !!set more=!lookup $t in $dir

    !set draw$a=$(draw$a)\

       "$t2n" [ URL="$wims_ref_name?session=$wims_session&$search_addr" ];\

       "$a"-> "$t2n";

    !set t3=!lookup $t2l in $dir

    !set cnt=!itemcnt $t3

    !if $cnt > 1

      !for t3l in $t3

        !set t3n=!lookup $t3l in $dir.$lang

        !default t3n=$t3l

        !!!!!

        !set key=!lookup $t3l in $dir

        !default key=$t3l

        !set key_l=!lookup $t3l in $dir_lang

        !set key=!replace internal _ by $ $  in $t3l

        !set key=$key,$key_l

        !!!!!

        !set draw$a=$(draw$a)\

        "$t3n" [ URL="$wims_ref_name?session=$wims_session&$search_addr" ];\

        "$t2n" -> "$t3n";

        !set more=!lookup $t3l in $dir

        !if $more !=$empty

          !set draw$a=$(draw$a)\

          "suite$t3n" [ label="suite" URL="$wims_ref_name?session=$wims_session&module=$module&job=$job&parm=$t3l" ];\

          "$t3n" -> "suite$t3n";

        !endif

      !next

    !endif

  !next

  !set draw$a=$(draw$a)\

}

  !set graphviz_format=dot

  !set graphviz_output=svg

  !set draw1=!exec graphviz $(draw$a)

  $(draw1)

  !!<object type="image/svg+xml" data="$(draw1[1;])">

  !!    Le navigateur ne supporte pas les fichiers SVG !

  !!</object>

!next