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}