source: trunk/cgi-bin/cross_form_moltps_nu @ 1

#file=cross_form_moltps_nu
s=" checked"
c="<input type=\"checkbox\" name=\"Mole_"
echo "<h3><li>"
 echol "Choix des mol&eacute;cules" "Choosing molecules"
 echo "</li></h3>"
echo "<input type=\"radio\" name=\"Moles\" value=\"all\">"
 echol "Toutes les mol&eacute;cules de la liste ci-dessous." "All the molecules of the following list."
echo "<br>"
echo "<input type=\"radio\" name=\"Moles\" value=\"sel\" checked>"
 echol "S&eacute;lection parmi les mol&eacute;cules ou temp&eacute;rature/pression disponibles dans la liste suivante." "One or more molecules or their temperature/pressure given in the following list."
echo "<ul>"
$cross <crossinfo|
{
read nu1 nu2
while read m k tpl;do
echo "</font><font size=4><strong>$c$m"_0"\"$s>$m</strong></font><font size=2>"
s=;
n=0;for tp in $tpl;do
[ "$t" = "" ]&&{ t=$tp; continue;}
p=$tp;n=`expr $n + 1`
echo "$c$m""_$n\">$t""/$p";t=;
done
done
echo "</font>"
echo "</ul>"
echo "<h3><li>"
 echol "Choix du domaine spectral en cm<sup>-1</sup>" "Choosing the spectral arae limits in cm<sup>-1</sup>"
 echo "</li></h3>"
echo "<ul><em>"
 echol "Les valeurs sp&eacute;cifi&eacute;es doivent &ecirc;tre comprises entre $nu1 et $nu2" "Those values should be given in the range $nu1-$nu2."
 echo ".</em></ul>"
echo "<ul>"
echo "<input type=\"hidden\" name=\"Numin\" value=\"$nu1\">"
echo "<em>"
 echol "Limite Inf&eacute;rieure" "Lower Limit"
 echo ":</em>&nbsp;<input type=\"text\" name=\"Nu1\" size=\"10\" maxlength=\"20\" value=\"$nu1\">"
echo "<input type=\"hidden\" name=\"Numax\" value=\"$nu2\">"
echo "<em>"
 echol "Limite Sup&eacute;rieure" "Upper Limit"
 echo ":</em>&nbsp;<input type=\"text\" name=\"Nu2\" size=\"10\" maxlength=\"20\" value=\"$nu2\">"
}
echo "</ul>"