openinteract-commits

[Chris W. <la...@us...>]

Update of /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24641

Modified Files:
	ResultsManage.pm 
Log Message:
fix ref to old $R; how did THAT stick around?


Index: ResultsManage.pm
===================================================================
RCS file: /cvsroot/openinteract/OpenInteract2/lib/OpenInteract2/ResultsManage.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** ResultsManage.pm	5 Oct 2004 03:08:25 -0000	1.12
--- ResultsManage.pm	28 Feb 2005 04:35:21 -0000	1.13
***************
*** 564,568 ****
   
   my $results = OpenInteract2::ResultsManage->new({
!                               search_id => $request->session->{this_search_id} });
   my $result_list = $results->retrieve();
   
--- 564,569 ----
   
   my $results = OpenInteract2::ResultsManage->new({
!      search_id => $request->session->{this_search_id}
!  });
   my $result_list = $results->retrieve();
   
***************
*** 572,576 ****
   $results->save( \@id_list );
   $request->session->{this_search_id} = $results->{search_id};
!  my $page_num = $R->apache->param( 'pagenum' );
   my ( $min, $max ) = $results->find_page_boundaries( $page_num, $HITS_PER_PAGE );
   my ( $results, $total_count ) = $results->retrieve({ min => $min, max => $max } );
--- 573,577 ----
   $results->save( \@id_list );
   $request->session->{this_search_id} = $results->{search_id};
!  my $page_num = $request->param( 'pagenum' );
   my ( $min, $max ) = $results->find_page_boundaries( $page_num, $HITS_PER_PAGE );
   my ( $results, $total_count ) = $results->retrieve({ min => $min, max => $max } );