[Koha-cvs] CVS: koha/authorities auth_finder.pl,1.1,1.2

[doXulting]

Update of /cvsroot/koha/koha/authorities
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19006/koha/authorities

Modified Files:
	auth_finder.pl 
Log Message:
First step for working authorities

Index: auth_finder.pl
===================================================================
RCS file: /cvsroot/koha/koha/authorities/auth_finder.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -r1.1 -r1.2
*** auth_finder.pl	10 Jun 2004 08:28:40 -0000	1.1
--- auth_finder.pl	5 Jul 2004 13:37:38 -0000	1.2
***************
*** 37,40 ****
--- 37,41 ----
  my $op = $query->param('op');
  my $authtypecode = $query->param('authtypecode');
+ my $index = $query->param('index');
  my $dbh = C4::Context->dbh;
  
***************
*** 51,54 ****
--- 52,56 ----
  				selected => $selected,
  				authtypetext => $authtypes->{$thisauthtype}{'authtypetext'},
+ 			  index => $index,
  			);
  	push @authtypesloop, \%row;
***************
*** 64,68 ****
  	$resultsperpage= $query->param('resultsperpage');
  	$resultsperpage = 19 if(!defined $resultsperpage);
! 	my $orderby = $query->param('orderby');
  
  	# builds tag and subfield arrays
--- 66,70 ----
  	$resultsperpage= $query->param('resultsperpage');
  	$resultsperpage = 19 if(!defined $resultsperpage);
! # 	my $orderby = $query->param('orderby');
  
  	# builds tag and subfield arrays
***************
*** 71,78 ****
  	my ($results,$total) = authoritysearch($dbh, \@tags,\@and_or,
  										\@excluding, \@operator, \@value,
! 										$startfrom*$resultsperpage, $resultsperpage,$orderby);
  
  	($template, $loggedinuser, $cookie)
! 		= get_template_and_user({template_name => "authorities/auth_finder.tmpl",
  				query => $query,
  				type => 'intranet',
--- 73,80 ----
  	my ($results,$total) = authoritysearch($dbh, \@tags,\@and_or,
  										\@excluding, \@operator, \@value,
! 										$startfrom*$resultsperpage, $resultsperpage,$authtypecode);# $orderby);
  
  	($template, $loggedinuser, $cookie)
! 		= get_template_and_user({template_name => "authorities/searchresultlist-auth.tmpl",
  				query => $query,
  				type => 'intranet',
***************
*** 82,86 ****
  				debug => 1,
  				});
- 
  	# multi page display gestion
  	my $displaynext=0;
--- 84,87 ----
***************
*** 129,134 ****
  		$to = (($startfrom+1)*$resultsperpage);
  	}
! 	$template->param(result => $results,
! 							startfrom=> $startfrom,
  							displaynext=> $displaynext,
  							displayprev=> $displayprev,
--- 130,137 ----
  		$to = (($startfrom+1)*$resultsperpage);
  	}
! 	$template->param(result => $results) if $results;
! 	$template->param(index => $query->param('index'));
! 	warn "ici query $index  $query->param('resultsperpage')" ;
! 	$template->param(startfrom=> $startfrom,
  							displaynext=> $displaynext,
  							displayprev=> $displayprev,
***************
*** 136,139 ****
--- 139,143 ----
  							startfromnext => $startfrom+1,
  							startfromprev => $startfrom-1,
+ 					        index => $index,
  							searchdata=>\@field_data,
  							total=>$total,
***************
*** 142,147 ****
  							numbers=>\@numbers,
  							);
- 
  } else {
  	($template, $loggedinuser, $cookie)
  		= get_template_and_user({template_name => "authorities/auth_finder.tmpl",
--- 146,151 ----
  							numbers=>\@numbers,
  							);
  } else {
+ 	warn "Je suis la de base $index\n";
  	($template, $loggedinuser, $cookie)
  		= get_template_and_user({template_name => "authorities/auth_finder.tmpl",
***************
*** 153,156 ****
--- 157,161 ----
  				});
  
+ 	$template->param(index => $index);
  }