use C4::Circulation;
use C4::Reserves;
use C4::Members;
+use C4::Members::AttributeTypes;
+use C4::Members::Attributes qw/GetBorrowerAttributeValue/;
use C4::Output;
use C4::Biblio;
use C4::Items;
use C4::Letters;
use C4::Branch; # GetBranches
+use constant ATTRIBUTE_SHOW_BARCODE => 'SHOW_BCODE';
+
my $query = new CGI;
BEGIN {
my @bordat;
$bordat[0] = $borr;
-$template->param( BORROWER_INFO => \@bordat,
- borrowernumber => $borrowernumber,
- patron_flagged => $borr->{flagged},
+$template->param( BORROWER_INFO => \@bordat,
+ borrowernumber => $borrowernumber,
+ patron_flagged => $borr->{flagged},
+ OPACMySummaryHTML => (C4::Context->preference("OPACMySummaryHTML")) ? 1 : 0,
);
#get issued items ....
my $itemtypes = GetItemTypes();
my ($issues) = GetPendingIssues($borrowernumber);
if ($issues){
- foreach my $issue ( sort sort { $b->{'date_due'} cmp $a->{'date_due'} } @$issues ) {
+ foreach my $issue ( sort { $b->{'date_due'} cmp $a->{'date_due'} } @$issues ) {
# check for reserves
my ( $restype, $res ) = CheckReserves( $issue->{'itemnumber'} );
if ( $restype ) {
my $isbn = GetNormalizedISBN($issue->{'isbn'});
$issue->{normalized_isbn} = $isbn;
+
+ # My Summary HTML
+ if (my $my_summary_html = C4::Context->preference('OPACMySummaryHTML')){
+ $issue->{author} ? $my_summary_html =~ s/{AUTHOR}/$issue->{author}/g : $my_summary_html =~ s/{AUTHOR}//g;
+ $issue->{title} =~ s/\/+$//; # remove trailing slash
+ $issue->{title} =~ s/\s+$//; # remove trailing space
+ $issue->{title} ? $my_summary_html =~ s/{TITLE}/$issue->{title}/g : $my_summary_html =~ s/{TITLE}//g;
+ $issue->{isbn} ? $my_summary_html =~ s/{ISBN}/$isbn/g : $my_summary_html =~ s/{ISBN}//g;
+ $issue->{biblionumber} ? $my_summary_html =~ s/{BIBLIONUMBER}/$issue->{biblionumber}/g : $my_summary_html =~ s/{BIBLIONUMBER}//g;
+ $issue->{MySummaryHTML} = $my_summary_html;
+ }
}
}
$template->param( ISSUES => \@issuedat );
$template->param( OVERDUES => \@overdues );
$template->param( overdues_count => $overdues_count );
+my $show_barcode = C4::Members::AttributeTypes::AttributeTypeExists( ATTRIBUTE_SHOW_BARCODE );
+if ($show_barcode) {
+ my $patron_show_barcode = GetBorrowerAttributeValue($borrowernumber, ATTRIBUTE_SHOW_BARCODE);
+ undef $show_barcode if defined($patron_show_barcode) && !$patron_show_barcode;
+}
+$template->param( show_barcode => 1 ) if $show_barcode;
+
# load the branches
my $branches = GetBranches();
my @branch_loop;
my $publictype = $res->{'publictype'};
$res->{$publictype} = 1;
$res->{'waiting'} = 1 if $res->{'found'} eq 'W';
+ $res->{'formattedwaitingdate'} = format_date($res->{'waitingdate'});
$res->{'branch'} = $branches->{ $res->{'branchcode'} }->{'branchname'};
my $biblioData = GetBiblioData($res->{'biblionumber'});
$res->{'reserves_title'} = $biblioData->{'title'};
$res->{'wait'}= 1;
$res->{'holdingbranch'}=$item->{'holdingbranch'};
$res->{'biblionumber'}=$item->{'biblionumber'};
- $res->{'barcodenumber'} = $item->{'barcode'};
+ $res->{'barcode'} = $item->{'barcode'};
$res->{'wbrcode'} = $res->{'branchcode'};
$res->{'itemnumber'} = $res->{'itemnumber'};
$res->{'wbrname'} = $branches->{$res->{'branchcode'}}->{'branchname'};