| 
      
            Lines 126-132
          if ($op eq 'add_form') {
      
      
        Link Here
      
     | 
  
        
          | 126 | 
          elsif ($op eq 'add_validate') { | 
          126 | 
          elsif ($op eq 'add_validate') { | 
        
        
          | 127 | 
              my $bookfundname = $input->param('bookfundname'); | 
          127 | 
              my $bookfundname = $input->param('bookfundname'); | 
        
        
          | 128 | 
              my $branchcode   = $input->param('branchcode') || undef; | 
          128 | 
              my $branchcode   = $input->param('branchcode') || undef; | 
        
          
            
              | 129 | 
                  my $number = Countbookfund($bookfundid,$branchcodeid);  | 
              129 | 
                  my $number = Countbookfund($bookfundid);  | 
            
        
          | 130 | 
              if ($number == 0 ) { | 
          130 | 
              if ($number == 0 ) { | 
        
        
          | 131 | 
                  NewBookFund(  | 
          131 | 
                  NewBookFund(  | 
        
        
          | 132 | 
                      $bookfundid,  | 
          132 | 
                      $bookfundid,  | 
        
  
    | 
      
            Lines 134-141
          elsif ($op eq 'add_validate') {
      
      
        Link Here
      
     | 
  
        
          | 134 | 
                      $input->param('branchcode')||'' | 
          134 | 
                      $input->param('branchcode')||'' | 
        
        
          | 135 | 
                  );  | 
          135 | 
                  );  | 
        
        
          | 136 | 
              }  | 
          136 | 
              }  | 
        
          
            
              | 137 | 
                  print $input->redirect('aqbookfund.pl');    # FIXME: unnecessary redirect | 
              137 | 
                  $template->param(error_bookfundid_exist   => $number);  | 
            
            
              | 138 | 
                  exit;  | 
               | 
               | 
            
        
          | 139 | 
          # END $OP eq ADD_VALIDATE  | 
          138 | 
          # END $OP eq ADD_VALIDATE  | 
        
        
          | 140 | 
          }  | 
          139 | 
          }  | 
        
        
          | 141 | 
           | 
          140 | 
           |