+#-----############# MOD_VALIDATE ##################################
+# called by add_form, used to insert/modify data in DB
+elsif ($op eq 'mod_validate') {
+ my $bookfundname = $input->param('bookfundname');
+ my $branchcode = $input->param('branchcode' ) || undef;
+ my $current_branch = $input->param('current_branch') || undef;
+ $debug and warn "$bookfundid, $bookfundname, $branchcode";
+
+ my $number = Countbookfund($bookfundid,$branchcodeid);
+ if ($number < 2) {
+ $debug and warn "name :$bookfundname branch:$branchcode";
+ ModBookFund($bookfundname,$bookfundid,$current_branch, $branchcode);
+ }
+ print $input->redirect('aqbookfund.pl'); # FIXME: unnecessary redirect
+ exit;
+}
+
+#-----############# DELETE_CONFIRM ##################################
+# called by default form, used to confirm deletion of data in DB