.title "Authors, Bibliography Count"
.category "Cataloging"
.column author title="Author" sort=author
.column row_count title="# Biblio" sort=multi
.parameters
.	select author1st title="1st Character Author Last Name"
.		item ''
.		sql
# To prevent error [Unexpected token "SQLCODE" expecting "end"] ,
# SQL section in RPT .select parameter is one (long) line, not wrapped.
# This occurs only with 0.6.0 file release, bug is fixed in CVS.
SELECT DISTINCT substring(author,1,1) AS value, substring(upper(author),1,1) AS title FROM biblio ORDER BY title
.		end sql
.	end select
.	select criteria default=start title="... or Author Name"
.		item start title="Starts With"
.		item trunc title="Contains"
.	end select
.	string author title="..."
.	order_by default=author
.		item author title="Author"
.		item multi title="Count, Author" type=multi expr="row_count,'author'!r"
.		item row_count title="Count" type=numeric
.	end order_by
.end parameters
.sql
	SELECT biblio.author, COUNT(biblio.bibid) row_count
	FROM biblio
.	if_set author
.		if_equal criteria start
			WHERE biblio.author LIKE '%"author%%%'
.		end if_set
.		if_equal criteria trunc
			WHERE biblio.author LIKE '%%%"author%%%'		
.		end if_set
.	else
.		if_not_equal author1st ''
			WHERE biblio.author LIKE '%"author1st%%%'
.		end if_set
.	end if_set
	GROUP BY author
.	order_by_expr
.end sql