Shell Programming and Scripting

0, 1, 2, 3,
4, 5, 6, 7,
8, 9, 10, 11,
12, 13, 14, 15

if ((col=cols)); 
instead of
if [[ -z "$next" ];

BEGIN {
  FS=","
}
{
  c2[$2]=(c2[$2])?c2[$2] FS $3:$3
}
END {
  for (i in c2) 
    printf("<tr>\n<td>%s</td><td>%s</td>\n</tr>\n", i, c2[i])
}

<td>173323</td><td>bpt,brew,brew,brew,eph,eph,eph,eph,
eph,ew,ew,ew,ew,ew,ew,ew,ew,ew,ew,ew,ew,ew,ew,ew,ew,
mat,mat,mat,mat,ml,ml,ml,ml,ml,ml,ml,ml,ml,ml,ml,ml,ml,ml,ml,ml,
ml,ml,ml,ml,ml,mol,mol,mol,mol,mol,mol,mol,mol,ncrl,ncrl,ncrl,ncrl,
ncrl,ncrl,ncrl,ncrl,ncrl,ncrl,okan,okan,okan,okan,pl,wpl,wpl</td>
</tr>

<td>173323</td><td>
bpt,brew,eph,ew,mat,<newline>
mat,ml,mol,ncrl,okan,<newline>
pl,wpl,wpl</td>
</tr>

BEGIN {
  FS=OFS=","
  nl=5

}
{
  if (!c2[$2])
    c2[$2]=$1
  else {
    n=split(c2[$2], a, OFS)
    for(i=1;i<=n;i++)
       if (a[i] == $1) break

    if (i>n)
       c2[$2]=c2[$2] OFS (!(n%nl)?ORS:"") $1
  }
}
END {
  for (i in c2)
    printf("<tr>\n<td>%s</td><td>\n%s</td>\n</tr>\n", i, c2[i])
}

<th>bib#</th>
<th>locations</th>
<th>Collections</th>
<th>iType</th>
<tr>
<td>173323</td><td>
bpt,brew,eph,ew,mat,
ml,ml,mol,ncrl,okan,
omak,omak,pesh,rc,wpl</td><td>nj, nb, mjcd</td>b<td>
</tr>
<tr>

dador,173323,bpt,jsp,39030013338878,1
dador,173323,brew,jsp,39030013338860,b
dador,173323,brew,jsp,39030013339447,b
dador,173323,brew,jsp,39030013339538,b
dador,173323,eph,jsp,39030008419089,ac
dador,173323,eph,jsp,39030013338902,ac
dador,173323,eph,jsp,39030013339413,b
dador,173323,eph,jsp,39030013339561,pl
dador,173323,eph,jsp,39030013340122,b
dador,173323,ew,jsp,39030013338928,ac

| bib# | title   | locations             | itypes| collections
---------------------------------------------------------------
173323 | dador   | brew, ml, wat, eph, ew| b, ac | mjcd, nj, j, jsp 
       |         | cc, bkm, mat, ent, oro|       |         
---------------------------------------------------------------

#!/bin/bash
FILE=04-28-2010.clean

# bibs
A=($(awk -F"," '{print $2}' $FILE | sort | uniq))
ELEMENTS=${#A[@]}
cols=5
rows=$((ELEMENTS/cols+1))

for (( i=0;i<$ELEMENTS;i++)); do
        # bib
        bib=${A[${i}]}
        printf "$bib\t"
        # titles
        T=$(awk -F"," "\$2 ~ /$bib/ {print \$1}" $FILE | uniq)
        printf "$T\tT{\n"
        # location
        L=($(awk -F"," "\$2 ~ /$bib/ {print \$3}" $FILE | sort | uniq))
        for (( row=1; row<=rows; row++)); do
            for ((col=1; col<=cols; col++)); do
                loc=${L[((cols*((row-1))+col-1))]}
                next=${L[((cols*((row-1))+col))]}
                if [[ -z "$next" ]]
                then
                    printf "$loc"
                else
                    printf "%s, " "$loc"
                fi
             done
         done
         printf "\nT}\n"
done

136671  giver   T{
man, ml, pat, rep, wpl
T}m, bpt, brew, bsmt, cash, cc, che, club, ent, eph, 
173323  dador   T{
bpt, brew, eph, ew, mat, ml, mol, ncrl, okan, omak, 
T}sh, eph, ew, gc, ml, mol, rc, rep, twi, wpl
263941  giver   T{
club38  giver   T{
T}l
284472  giver   T{
bkm, bpt, brew, bsmt, cash, cc, che, club, ent, eph, 
T}
360549  giver   T{
cash, eph, ew, gc, ml, mol, rc, rep, twi, wpl
T}
368038  giver   T{
mol
T}