my $input = new CGI;
my $quicksearch = $input->param('quicksearch');
+my $startfrom = $input->param('startfrom')||1;
+my $resultsperpage = $input->param('resultsperpage')||C4::Context->preference("PatronsPerPage")||20;
+
my ($template, $loggedinuser, $cookie);
if($quicksearch){
($template, $loggedinuser, $cookie)
});
}
my $theme = $input->param('theme') || "default";
+
+
+$template->param(
+ "AddPatronLists_".C4::Context->preference("AddPatronLists")=> "1",
+ );
+if (C4::Context->preference("AddPatronLists")=~/code/){
+ my $categories=GetBorrowercategory();
+ $categories->[0]->{'first'}=1;
+ $template->param(categories=>$categories);
+}
# only used if allowthemeoverride is set
#my %tmpldata = pathtotemplate ( template => 'member.tmpl', theme => $theme, language => 'fi' );
# FIXME - Error-checking
# die_on_bad_params => 0,
# loop_context_vars => 1 );
-
my $member=$input->param('member');
my $orderby=$input->param('orderby');
$orderby = "surname,firstname" unless $orderby;
my @resultsdata;
my $toggle = 0;
-for (my $i=0; $i < $count; $i++){
+my $to=($count>($startfrom*$resultsperpage)?$startfrom*$resultsperpage:$count);
+for (my $i=($startfrom-1)*$resultsperpage; $i < $to; $i++){
#find out stats
my ($od,$issue,$fines)=GetMemberIssuesAndFines($results->[$i]{'borrowernumber'});
borrowernotes => $results->[$i]{'borrowernotes'},
sort1 => $results->[$i]{'sort1'},
sort2 => $results->[$i]{'sort2'},
+ dateexpiry => C4::Dates->new($results->[$i]{'dateexpiry'},'iso')->output('syspref'),
);
if ( $toggle ) { $toggle = 0; } else {$toggle = 1; }
push(@resultsdata, \%row);
}
+my $base_url =
+ 'member.pl?&'
+ . join(
+ '&',
+ map { $_->{term} . '=' . $_->{val} } (
+ { term => 'member', val => $member},
+ { term => 'orderby', val => $orderby },
+ { term => 'resultsperpage', val => $resultsperpage },
+ { term => 'type', val => 'intranet' },
+ )
+ );
+
+$template->param(
+ paginationbar => pagination_bar(
+ $base_url, int( $count / $resultsperpage ) + 1,
+ $startfrom, 'startfrom'
+ ),
+ startfrom => $startfrom,
+ from => ($startfrom-1)*$resultsperpage+1,
+ to => $to,
+ multipage => ($count != $to || $startfrom!=1),
+);
$template->param(
searching => "1",