| 
      
            Lines 160-166
          SKIP: {
      
      
        Link Here
      
     | 
  
        
          | 160 | 
                      my $id = $input->get_attribute('id'); | 
          160 | 
                      my $id = $input->get_attribute('id'); | 
        
        
          | 161 | 
                      next unless $id =~ m|^tag_952_subfield|;  | 
          161 | 
                      next unless $id =~ m|^tag_952_subfield|;  | 
        
        
          | 162 | 
           | 
          162 | 
           | 
        
          
            
              | 163 | 
                          $input->send_keys('t_value_bib'.$biblionumber); | 
              163 | 
                          my $v;  | 
            
            
               | 
               | 
              164 | 
               | 
            
            
              | 165 | 
                          # FIXME This is based on default values  | 
            
            
              | 166 | 
                          if (   $id =~ m|^tag_952_subfield_g|   # price  | 
            
            
              | 167 | 
                              or $id =~ m|^tag_952_subfield_v| ) # replacementprice  | 
            
            
              | 168 | 
                          { | 
            
            
              | 169 | 
                              $v = '42';    # It's a price  | 
            
            
              | 170 | 
                          }  | 
            
            
              | 171 | 
                          elsif (  | 
            
            
              | 172 | 
                              $id =~ m|^tag_952_subfield_f| #tag_952_subfield_g  | 
            
            
              | 173 | 
                          ) { | 
            
            
              | 174 | 
                              # It's a varchar(10)  | 
            
            
              | 175 | 
                              $v = 't_value_x';  | 
            
            
              | 176 | 
                          }  | 
            
            
              | 177 | 
                          else { | 
            
            
              | 178 | 
                              $v = 't_value_bib' . $biblionumber;  | 
            
            
              | 179 | 
                          }  | 
            
            
              | 180 | 
                          $input->send_keys( $v );  | 
            
        
          | 164 | 
                  }  | 
          181 | 
                  }  | 
        
        
          | 165 | 
           | 
          182 | 
           | 
        
        
          | 166 | 
                  $driver->find_element('//input[@name="add_submit"]')->click; | 
          183 | 
                  $driver->find_element('//input[@name="add_submit"]')->click; | 
        
            
              | 167 | 
              -   | 
               | 
               |