- $template->param(
- frameworkcode => $frameworkcode,
- frameworktext => $data->{'frameworktext'},
- total => $total
- );
- # END $OP eq DELETE_CONFIRM
-################## DELETE_CONFIRMED ##################################
-# called by delete_confirm, used to effectively confirm deletion of data in DB
-} elsif ($op eq 'delete_confirmed') {
- if ($frameworkcode) {
- my $sth=$dbh->prepare("delete from marc_tag_structure where frameworkcode=?");
- $sth->execute($frameworkcode);
- $sth=$dbh->prepare("delete from marc_subfield_structure where frameworkcode=?");
- $sth->execute($frameworkcode);
- $sth=$dbh->prepare("delete from biblio_framework where frameworkcode=?");
- $sth->execute($frameworkcode);
- }
- print $input->redirect($script_name); # FIXME: unnecessary redirect
- exit;
- # END $OP eq DELETE_CONFIRMED
-################## DEFAULT ##################################
-} else { # DEFAULT
- my $results = StringSearch($frameworkcode);
- my $count = scalar(@$results);
- my @loop_data;
- for (my $i=$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){
- push @loop_data, {
- frameworkcode => $results->[$i]{'frameworkcode'},
- frameworktext => $results->[$i]{'frameworktext'},
- };
- }
- $template->param(loop => \@loop_data);
- if ($offset>0) {
- my $prevpage = $offset-$pagesize;
- $template->param(previous => "$script_name?offset=".$prevpage);
- }
- if ($offset+$pagesize<$count) {
- my $nextpage =$offset+$pagesize;
- $template->param(next => "$script_name?offset=".$nextpage);
- }
-} #---- END $OP eq DEFAULT