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