Project: erlyweb

Revision: 246

Author: yarivvv

Date: 22 May 2008 02:14:31

• /trunk/src/erlydb/erlydb_mnesia.erl

  ......	@@ -509,12 +509,14 @@
  509	509	extras([], QHDesc) ->
  510	510	QHDesc;
  511	511
  512		extras({order_by, Field}, #qhdesc{metadata = QLCData} = QHDesc) when is_atom(Field) ->
  	512	extras({order_by, {Field, Order}}, #qhdesc{metadata = QLCData} = QHDesc) when is_atom(Field) ->
  513	513	QHDesc#qhdesc{postqh =
  514	514	fun(QH, QHOptions) ->
  515		[Table | _Rest] = dict:fetch(tables, QLCData),
  516		qlc:keysort(dict:fetch({index,Table,Field}, QLCData), QH, QHOptions)
  517		end};
  	515	[Table | _Rest] = dict:fetch(tables, QLCData),
  	516	SortOptions = [{order, translate_order(Order)} | QHOptions],
  	517	qlc:keysort(dict:fetch({index,Table,Field}, QLCData), QH,
  	518	SortOptions)
  	519	end};
  518	520	extras({limit, Limit}, QHDesc) ->
  519	521	QHDesc#qhdesc{evalfun =
  520	522	fun(QH, QHOptions) ->
  ......	@@ -540,6 +542,8 @@
  540	542	?L(["Unhandled extras: ", Extras]),
  541	543	exit("Unhandled extras").
  542	544
  	545	translate_order(asc) -> ascending;
  	546	translate_order(desc) -> descending.
  543	547
  544	548	postqh(QueryHandle, _QHOptions) ->
  545	549	QueryHandle.