|
Lines 133-139
my $stickyduedate = $query->param('stickyduedate') || $session->param('stickydu
Link Here
|
| 133 |
my $duedatespec = $query->param('duedatespec') || $session->param('stickyduedate'); |
133 |
my $duedatespec = $query->param('duedatespec') || $session->param('stickyduedate'); |
| 134 |
my $issueconfirmed = $query->param('issueconfirmed'); |
134 |
my $issueconfirmed = $query->param('issueconfirmed'); |
| 135 |
my $cancelreserve = $query->param('cancelreserve'); |
135 |
my $cancelreserve = $query->param('cancelreserve'); |
| 136 |
my $organisation = $query->param('organisations'); |
|
|
| 137 |
my $print = $query->param('print') || q{}; |
136 |
my $print = $query->param('print') || q{}; |
| 138 |
my $debt_confirmed = $query->param('debt_confirmed') || 0; # Don't show the debt error dialog twice |
137 |
my $debt_confirmed = $query->param('debt_confirmed') || 0; # Don't show the debt error dialog twice |
| 139 |
my $charges = $query->param('charges') || q{}; |
138 |
my $charges = $query->param('charges') || q{}; |
|
Lines 658-682
if ( $borrower->{'category_type'} eq 'C') {
Link Here
|
| 658 |
$template->param( 'catcode' => $catcodes->[0]) if $cnt == 1; |
657 |
$template->param( 'catcode' => $catcodes->[0]) if $cnt == 1; |
| 659 |
} |
658 |
} |
| 660 |
|
659 |
|
| 661 |
my $CGIorganisations; |
|
|
| 662 |
my $member_of_institution; |
| 663 |
if ( C4::Context->preference("memberofinstitution") ) { |
| 664 |
my $organisations = get_institutions(); |
| 665 |
my @orgs; |
| 666 |
my %org_labels; |
| 667 |
foreach my $organisation ( keys %$organisations ) { |
| 668 |
push @orgs, $organisation; |
| 669 |
$org_labels{$organisation} = $organisations->{$organisation}->{'surname'}; |
| 670 |
} |
| 671 |
$member_of_institution = 1; |
| 672 |
$CGIorganisations = CGI::popup_menu( |
| 673 |
-id => 'organisations', |
| 674 |
-name => 'organisations', |
| 675 |
-labels => \%org_labels, |
| 676 |
-values => \@orgs, |
| 677 |
); |
| 678 |
} |
| 679 |
|
| 680 |
my $lib_messages_loop = GetMessages( $borrowernumber, 'L', $branch ); |
660 |
my $lib_messages_loop = GetMessages( $borrowernumber, 'L', $branch ); |
| 681 |
if($lib_messages_loop){ $template->param(flagged => 1 ); } |
661 |
if($lib_messages_loop){ $template->param(flagged => 1 ); } |
| 682 |
|
662 |
|
|
Lines 747-754
$template->param(
Link Here
|
| 747 |
relprevissues => \@relprevissues, |
727 |
relprevissues => \@relprevissues, |
| 748 |
displayrelissues => $displayrelissues, |
728 |
displayrelissues => $displayrelissues, |
| 749 |
inprocess => $inprocess, |
729 |
inprocess => $inprocess, |
| 750 |
memberofinstution => $member_of_institution, |
|
|
| 751 |
CGIorganisations => $CGIorganisations, |
| 752 |
is_child => ($borrower->{'category_type'} eq 'C'), |
730 |
is_child => ($borrower->{'category_type'} eq 'C'), |
| 753 |
circview => 1, |
731 |
circview => 1, |
| 754 |
soundon => C4::Context->preference("SoundOn"), |
732 |
soundon => C4::Context->preference("SoundOn"), |