- my ( $env, $borrowernumber ) = @_;
- my ( $borrower, $flags ) = getpatroninformation( $env, $borrowernumber, 0 );
- $env->{'todaysissues'} = 1;
- my ($borrowerissues) = currentissues( $env, $borrower );
- $env->{'nottodaysissues'} = 1;
- $env->{'todaysissues'} = 0;
- my ($borroweriss2) = currentissues( $env, $borrower );
- $env->{'nottodaysissues'} = 0;
+ my ( $borrowernumber ) = @_;
+ my ( $borrower, $flags ) = GetMemberDetails( $borrowernumber);
+ my ($borrowerissues) = GetBorrowerIssues( $borrower );
+ my ($borroweriss2) = GetBorrowerIssues( $borrower );