|
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 |
} |