source: trunk/cgi-bin/geisa_anl_histo_local_post @ 1

#!/bin/sh -f
#file=geisa_anl_histo_local_post
###. geisa_test_get
. geisa_init
titlel "résultat Analyse Histogrammes" "Histogram Analysis Results"
bnamel "GEISA base locale" "GEISA local database"
. geisa_page_post_begin
mul2url $tempdir/load|
{
. geisa_local_post_start
. geisa_post_getfname
###. geisa_post_moliso
###. geisa_post_nu
. geisa_post_moliso_nu
. geisa_post_nbcl
. geisa_post_histo
execute_opt="'anl',iuni=2"
. geisa_post_debug
[ ${error:-0} = 0 ]&&
{
fluni=2
. geisa_get
if [ "$histo" != ",histo='deux'" ]; then
. geisa_execute
else
#special proc for histo="deux"
. geisa_execute|
{
IFS="";while read l;do
echo "$l";[ `expr "$l" : ' intervalle'` = 0 ]&&continue
read l;echo "$l";read l;echo "$l"
while read l;do read m;[ ! "$m" ]&&{ echo "$l";echo "$m";break;}
echo "$l\c";expr "$m" : ".\{`expr $l : '.*'`\}\(.*\)";done
done
}
fi
. geisa_menu
}
}
. geisa_page_post_end