| 
      
      
        Link Here
      
     | 
  
        
          | 69 | 
          );  | 
          69 | 
          );  | 
        
        
          | 70 | 
           | 
          70 | 
           | 
        
        
          | 71 | 
          #parameters:  | 
          71 | 
          #parameters:  | 
        
          
            
              | 72 | 
              my $booksellerid = $input->param('booksellerid'); | 
              72 | 
              my $booksellerid = scalar $input->param('booksellerid'); | 
            
            
              | 73 | 
              my $basketno = $input->param('basketno'); | 
              73 | 
              my $basketno = scalar $input->param('basketno'); | 
            
        
          | 74 | 
          my $basket;  | 
          74 | 
          my $basket;  | 
        
          
            
              | 75 | 
              my $op = $input ->param('op'); | 
              75 | 
              my $op = scalar $input->param('op'); | 
            
            
              | 76 | 
              my $is_an_edit= $input ->param('is_an_edit'); | 
              76 | 
              my $is_an_edit = scalar $input->param('is_an_edit'); | 
            
        
          | 77 | 
           | 
          77 | 
           | 
        
        
          | 78 | 
          if ( $op eq 'add_form' ) { | 
          78 | 
          if ( $op eq 'add_form' ) { | 
        
        
          | 79 | 
              my @contractloop;  | 
          79 | 
              my @contractloop;  | 
        
  
    | 
      
      
        Link Here
      
     | 
  
        
          | 137 | 
              if ( $is_an_edit ) { | 
          137 | 
              if ( $is_an_edit ) { | 
        
        
          | 138 | 
                  ModBasketHeader(  | 
          138 | 
                  ModBasketHeader(  | 
        
        
          | 139 | 
                      $basketno,  | 
          139 | 
                      $basketno,  | 
        
          
            
              | 140 | 
                          $input->param('basketname'), | 
              140 | 
                          scalar $input->param('basketname'), | 
            
            
              | 141 | 
                          $input->param('basketnote'), | 
              141 | 
                          scalar $input->param('basketnote'), | 
            
            
              | 142 | 
                          $input->param('basketbooksellernote'), | 
              142 | 
                          scalar $input->param('basketbooksellernote'), | 
            
            
              | 143 | 
                          $input->param('basketcontractnumber') || undef, | 
              143 | 
                          scalar $input->param('basketcontractnumber') || undef, | 
            
            
              | 144 | 
                          $input->param('basketbooksellerid'), | 
              144 | 
                          scalar $input->param('basketbooksellerid'), | 
            
            
              | 145 | 
                          $input->param('deliveryplace'), | 
              145 | 
                          scalar $input->param('deliveryplace'), | 
            
            
              | 146 | 
                          $input->param('billingplace'), | 
              146 | 
                          scalar $input->param('billingplace'), | 
            
            
              | 147 | 
                          $input->param('is_standing') ? 1 : undef, | 
              147 | 
                          scalar $input->param('is_standing') ? 1 : undef, | 
            
        
          | 148 | 
                  );  | 
          148 | 
                  );  | 
        
        
          | 149 | 
              } else { #New basket | 
          149 | 
              } else { #New basket | 
        
        
          | 150 | 
                  $basketno = NewBasket(  | 
          150 | 
                  $basketno = NewBasket(  | 
        
        
          | 151 | 
                      $booksellerid,  | 
          151 | 
                      $booksellerid,  | 
        
        
          | 152 | 
                      $loggedinuser,  | 
          152 | 
                      $loggedinuser,  | 
        
          
            
              | 153 | 
                          $input->param('basketname'), | 
              153 | 
                          scalar $input->param('basketname'), | 
            
            
              | 154 | 
                          $input->param('basketnote'), | 
              154 | 
                          scalar $input->param('basketnote'), | 
            
            
              | 155 | 
                          $input->param('basketbooksellernote'), | 
              155 | 
                          scalar $input->param('basketbooksellernote'), | 
            
            
              | 156 | 
                          $input->param('basketcontractnumber') || undef, | 
              156 | 
                          scalar $input->param('basketcontractnumber') || undef, | 
            
            
              | 157 | 
                          $input->param('deliveryplace'), | 
              157 | 
                          scalar $input->param('deliveryplace'), | 
            
            
              | 158 | 
                          $input->param('billingplace'), | 
              158 | 
                          scalar $input->param('billingplace'), | 
            
            
              | 159 | 
                          $input->param('is_standing') ? 1 : undef, | 
              159 | 
                          scalar $input->param('is_standing') ? 1 : undef, | 
            
        
          | 160 | 
                  );  | 
          160 | 
                  );  | 
        
        
          | 161 | 
              }  | 
          161 | 
              }  | 
        
        
          | 162 | 
              print $input->redirect('basket.pl?basketno='.$basketno); | 
          162 | 
              print $input->redirect('basket.pl?basketno='.$basketno); | 
        
            
              | 163 | 
              -   | 
               | 
               |