Lines 58-64
if ($op eq "add_source") {
Link Here
|
58 |
$rule_code); |
58 |
$rule_code); |
59 |
$display_lists = 1; |
59 |
$display_lists = 1; |
60 |
} elsif ($op eq "delete_source") { |
60 |
} elsif ($op eq "delete_source") { |
61 |
delete_class_source_form($template); |
61 |
delete_class_source_form($template, $source_code); |
62 |
} elsif ($op eq "delete_source_confirmed") { |
62 |
} elsif ($op eq "delete_source_confirmed") { |
63 |
delete_class_source($template, $source_code); |
63 |
delete_class_source($template, $source_code); |
64 |
$display_lists = 1; |
64 |
$display_lists = 1; |
Lines 146-152
sub edit_class_source {
Link Here
|
146 |
|
146 |
|
147 |
|
147 |
|
148 |
sub delete_class_source_form { |
148 |
sub delete_class_source_form { |
149 |
my ($template) = @_; |
149 |
my ($template, $source_code) = @_; |
150 |
$template->param( |
150 |
$template->param( |
151 |
delete_class_source_form => 1, |
151 |
delete_class_source_form => 1, |
152 |
confirm_op => "delete_source_confirmed", |
152 |
confirm_op => "delete_source_confirmed", |
153 |
- |
|
|