[Rt-commit] [svn] r1359 - rtir/branches/1.1/html/RTIR/Search/Elements

[leira at pallas.eruditorum.org]

Author: leira
Date: Tue Aug 24 03:21:34 2004
New Revision: 1359

Modified:
   rtir/branches/1.1/html/RTIR/Search/Elements/ProcessQuery
Log:
Take an argument for the results page (RTIR needs to use alternates).


Modified: rtir/branches/1.1/html/RTIR/Search/Elements/ProcessQuery
==============================================================================
--- rtir/branches/1.1/html/RTIR/Search/Elements/ProcessQuery	(original)
+++ rtir/branches/1.1/html/RTIR/Search/Elements/ProcessQuery	Tue Aug 24 03:21:34 2004
@@ -659,7 +659,7 @@
 
 # {{{ Show the results, if we were asked.
 if ( $ARGS{"DoSearch"} ) {
-    $m->comp("../Results.html" , Query => $Query, Format => $Format, Order => $Order, OrderBy => $OrderBy, Rows => $RowsPerPage, BaseQuery => $BaseQuery);
+    $m->comp($ResultPage , Query => $Query, Format => $Format, Order => $Order, OrderBy => $OrderBy, Rows => $RowsPerPage, BaseQuery => $BaseQuery);
     $m->abort();
 }
 # }}}
@@ -688,4 +688,5 @@
 $dirty => 0
 $AvailableColumns => undef
 $CurrentFormat => undef
+$ResultPage => "../Results.html"
 </%ARGS>