Lines 29-35
use C4::Letters;
Link Here
|
29 |
use C4::Output; |
29 |
use C4::Output; |
30 |
use C4::Context; |
30 |
use C4::Context; |
31 |
|
31 |
|
32 |
|
|
|
33 |
my $query = new CGI; |
32 |
my $query = new CGI; |
34 |
my $op = $query->param('op'); |
33 |
my $op = $query->param('op'); |
35 |
my $dbh = C4::Context->dbh; |
34 |
my $dbh = C4::Context->dbh; |
Lines 73-79
if ( $selectview eq "full" ) {
Link Here
|
73 |
my $yearmin = $subscriptions->[0]->{year}; |
72 |
my $yearmin = $subscriptions->[0]->{year}; |
74 |
my $yearmax = $subscriptions->[ -1 ]->{year}; |
73 |
my $yearmax = $subscriptions->[ -1 ]->{year}; |
75 |
|
74 |
|
76 |
|
|
|
77 |
# replace CR by <br> in librarian note |
75 |
# replace CR by <br> in librarian note |
78 |
# $subscription->{opacnote} =~ s/\n/\<br\/\>/g; |
76 |
# $subscription->{opacnote} =~ s/\n/\<br\/\>/g; |
79 |
|
77 |
|
Lines 113-121
else {
Link Here
|
113 |
# replace CR by <br> in librarian note |
111 |
# replace CR by <br> in librarian note |
114 |
# $subscription->{opacnote} =~ s/\n/\<br\/\>/g; |
112 |
# $subscription->{opacnote} =~ s/\n/\<br\/\>/g; |
115 |
|
113 |
|
|
|
114 |
my $title = $subscriptions->[0]->{bibliotitle}; |
115 |
|
116 |
$template->param( |
116 |
$template->param( |
117 |
biblionumber => scalar $query->param('biblionumber'), |
117 |
biblionumber => scalar $query->param('biblionumber'), |
118 |
subscription_LOOP => $subscriptions, |
118 |
subscription_LOOP => $subscriptions, |
|
|
119 |
bibliotitle => $title, |
119 |
); |
120 |
); |
120 |
} |
121 |
} |
121 |
output_html_with_http_headers $query, $cookie, $template->output; |
122 |
output_html_with_http_headers $query, $cookie, $template->output; |
122 |
- |
|
|