can't read "liste_bd": no such variable
    while executing
"set liste_bd_tmp $liste_bd"
    (in namespace eval "::request" script line 7)
    invoked from within
"namespace eval ::request $script"
    ("::try" body line 12)
OUTPUT BUFFER:





   set liste_bd_tmp $liste_bd
   foreach reference_bd $liste_bd {
      if {[lindex $reference_bd 3] eq "GB"} {continue}
      set access [lindex $reference_bd 1]
      set indices_bd_meme_access [lsearch -regexp -all $liste_bd_tmp $access]
      if {$indices eq {}} {continue}
      set lg_max 0
      set i 0
      foreach indice $indices_bd_meme_access {
         set bd_meme_access [lindex $liste_bd $indice]
         set chaine [lindex $bd_meme_access 0]
         set lg [llength [set PDB_[set idpdb]_NomRes($chaine)]]
         if {$lg > $lg_max} {
            set lg_max $lg
            set chaine_max $chaine
         }
         set liste_bd_tmp [SupprimeElementDeListe $liste_bd_tmp $indice]
      }
      # On a donc des duos "chaine la plus longue correspondante - access SWS - rienpourlemoment (on y aura l'access GB)"
      lappend liste_access_chaine [list $chaine_max $access ""]
   }