Lines 38-43
my $sth;
Link Here
|
38 |
my ( $template, $loggedinuser, $cookie ); |
38 |
my ( $template, $loggedinuser, $cookie ); |
39 |
my $externalid = $query->param('externalid'); |
39 |
my $externalid = $query->param('externalid'); |
40 |
my $alerttype = $query->param('alerttype') || ''; |
40 |
my $alerttype = $query->param('alerttype') || ''; |
|
|
41 |
my $referer = $query->param('referer') || 'detail'; |
41 |
my $biblionumber = $query->param('biblionumber'); |
42 |
my $biblionumber = $query->param('biblionumber'); |
42 |
|
43 |
|
43 |
( $template, $loggedinuser, $cookie ) = get_template_and_user( |
44 |
( $template, $loggedinuser, $cookie ) = get_template_and_user( |
Lines 53-63
my $biblionumber = $query->param('biblionumber');
Link Here
|
53 |
|
54 |
|
54 |
if ( $op eq 'alert_confirmed' ) { |
55 |
if ( $op eq 'alert_confirmed' ) { |
55 |
addalert( $loggedinuser, $alerttype, $externalid ); |
56 |
addalert( $loggedinuser, $alerttype, $externalid ); |
56 |
if ( $alerttype eq 'issue_ser' ) { |
57 |
if ( $referer eq 'serial' ) { |
57 |
print $query->redirect( |
58 |
print $query->redirect( |
58 |
"opac-serial-issues.pl?biblionumber=$biblionumber"); |
59 |
"opac-serial-issues.pl?biblionumber=$biblionumber"); |
59 |
exit; |
60 |
exit; |
60 |
} elsif ( $alerttype eq 'issue_det' ) { |
61 |
} else { |
61 |
print $query->redirect( |
62 |
print $query->redirect( |
62 |
"opac-detail.pl?biblionumber=$biblionumber"); |
63 |
"opac-detail.pl?biblionumber=$biblionumber"); |
63 |
exit; |
64 |
exit; |
Lines 70-80
elsif ( $op eq 'cancel_confirmed' ) {
Link Here
|
70 |
{ # we are supposed to have only 1 result, but just in case... |
71 |
{ # we are supposed to have only 1 result, but just in case... |
71 |
delalert( $_->{alertid} ); |
72 |
delalert( $_->{alertid} ); |
72 |
} |
73 |
} |
73 |
if ( $alerttype eq 'issue_ser' ) { |
74 |
if ( $referer eq 'serial' ) { |
74 |
print $query->redirect( |
75 |
print $query->redirect( |
75 |
"opac-serial-issues.pl?biblionumber=$biblionumber"); |
76 |
"opac-serial-issues.pl?biblionumber=$biblionumber"); |
76 |
exit; |
77 |
exit; |
77 |
} elsif ( $alerttype eq 'issue_det' ) { |
78 |
} else { |
78 |
print $query->redirect( |
79 |
print $query->redirect( |
79 |
"opac-detail.pl?biblionumber=$biblionumber"); |
80 |
"opac-detail.pl?biblionumber=$biblionumber"); |
80 |
exit; |
81 |
exit; |
Lines 83-100
elsif ( $op eq 'cancel_confirmed' ) {
Link Here
|
83 |
|
84 |
|
84 |
} |
85 |
} |
85 |
else { |
86 |
else { |
86 |
if ( $alerttype eq 'issue_ser' || $alerttype eq 'issue_det' ) { # alert for subscription issues |
87 |
if ( $alerttype eq 'issue' ) { # alert for subscription issues |
87 |
my $subscription = &GetSubscription($externalid); |
88 |
my $subscription = &GetSubscription($externalid); |
88 |
$template->param( |
89 |
$template->param( |
89 |
alerttype => $alerttype, |
90 |
alerttype => $alerttype, |
|
|
91 |
referer => $referer, |
90 |
"typeissue$op" => 1, |
92 |
"typeissue$op" => 1, |
91 |
bibliotitle => $subscription->{bibliotitle}, |
93 |
bibliotitle => $subscription->{bibliotitle}, |
92 |
notes => $subscription->{notes}, |
94 |
notes => $subscription->{notes}, |
93 |
externalid => $externalid, |
95 |
externalid => $externalid, |
94 |
biblionumber => $biblionumber, |
96 |
biblionumber => $biblionumber, |
95 |
); |
97 |
); |
96 |
} else { |
|
|
97 |
} |
98 |
} |
98 |
|
|
|
99 |
} |
99 |
} |
100 |
output_html_with_http_headers $query, $cookie, $template->output; |
100 |
output_html_with_http_headers $query, $cookie, $template->output; |