| 
      
            Lines 139-144
          if ($op eq 'add_form') {
      
      
        Link Here
      
     | 
  
        
          | 139 | 
          	while ($data =$sth->fetchrow_hashref) { | 
          139 | 
          	while ($data =$sth->fetchrow_hashref) { | 
        
        
          | 140 | 
           | 
          140 | 
           | 
        
        
          | 141 | 
          		my %row_data;  # get a fresh hash for the row data  | 
          141 | 
          		my %row_data;  # get a fresh hash for the row data  | 
        
            
               | 
               | 
              142 | 
                      $row_data{defaultvalue} = $data->{defaultvalue}; | 
            
        
          | 142 | 
          		$row_data{tab} = CGI::scrolling_list(-name=>'tab', | 
          143 | 
          		$row_data{tab} = CGI::scrolling_list(-name=>'tab', | 
        
        
          | 143 | 
          					-id=>"tab$i",  | 
          144 | 
          					-id=>"tab$i",  | 
        
        
          | 144 | 
                                                  -values =>  | 
          145 | 
                                                  -values =>  | 
        
  
    | 
      
            Lines 386-394
          if ($op eq 'add_form') {
      
      
        Link Here
      
     | 
  
        
          | 386 | 
          	$template->param(tagfield => "$input->param('tagfield')"); | 
          387 | 
          	$template->param(tagfield => "$input->param('tagfield')"); | 
        
        
          | 387 | 
          #	my $sth=$dbh->prepare("replace auth_subfield_structure (authtypecode,tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,seealso,authorised_value,frameworkcode,value_builder,hidden,isurl) | 
          388 | 
          #	my $sth=$dbh->prepare("replace auth_subfield_structure (authtypecode,tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,seealso,authorised_value,frameworkcode,value_builder,hidden,isurl) | 
        
        
          | 388 | 
          #									values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)");  | 
          389 | 
          #									values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)");  | 
        
          
            
              | 389 | 
              	my $sth_insert = $dbh->prepare("insert into auth_subfield_structure (authtypecode,tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,seealso,authorised_value,frameworkcode,value_builder,hidden,isurl) | 
              390 | 
              	my $sth_insert = $dbh->prepare("insert into auth_subfield_structure (authtypecode,tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,seealso,authorised_value,frameworkcode,value_builder,hidden,isurl,defaultvalue) | 
            
        
          | 390 | 
          									values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)");  | 
          391 | 
          									values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)");  | 
        
          
            
              | 391 | 
              	my $sth_update = $dbh->prepare("update auth_subfield_structure set authtypecode=?, tagfield=?, tagsubfield=?, liblibrarian=?, libopac=?, repeatable=?, mandatory=?, kohafield=?, tab=?, seealso=?, authorised_value=?, frameworkcode=?, value_builder=?, hidden=?, isurl=? | 
              392 | 
              	my $sth_update = $dbh->prepare("update auth_subfield_structure set authtypecode=?, tagfield=?, tagsubfield=?, liblibrarian=?, libopac=?, repeatable=?, mandatory=?, kohafield=?, tab=?, seealso=?, authorised_value=?, frameworkcode=?, value_builder=?, hidden=?, isurl=?, defaultvalue=? | 
            
        
          | 392 | 
          									where authtypecode=? and tagfield=? and tagsubfield=?");  | 
          393 | 
          									where authtypecode=? and tagfield=? and tagsubfield=?");  | 
        
        
          | 393 | 
          	my @tagsubfield	= $input->param('tagsubfield'); | 
          394 | 
          	my @tagsubfield	= $input->param('tagsubfield'); | 
        
        
          | 394 | 
          	my @liblibrarian	= $input->param('liblibrarian'); | 
          395 | 
          	my @liblibrarian	= $input->param('liblibrarian'); | 
        
  
    | 
      
            Lines 404-409
          if ($op eq 'add_form') {
      
      
        Link Here
      
     | 
  
        
          | 404 | 
          	my $authtypecode	= $input->param('authtypecode'); | 
          405 | 
          	my $authtypecode	= $input->param('authtypecode'); | 
        
        
          | 405 | 
          	my @frameworkcodes	= $input->param('frameworkcode'); | 
          406 | 
          	my @frameworkcodes	= $input->param('frameworkcode'); | 
        
        
          | 406 | 
          	my @value_builder	=$input->param('value_builder'); | 
          407 | 
          	my @value_builder	=$input->param('value_builder'); | 
        
            
               | 
               | 
              408 | 
                  my @defaultvalue = $input->param('defaultvalue'); | 
            
        
          | 407 | 
          	for (my $i=0; $i<= $#tagsubfield ; $i++) { | 
          409 | 
          	for (my $i=0; $i<= $#tagsubfield ; $i++) { | 
        
        
          | 408 | 
          		my $tagfield			=$input->param('tagfield'); | 
          410 | 
          		my $tagfield			=$input->param('tagfield'); | 
        
        
          | 409 | 
          		my $tagsubfield		=$tagsubfield[$i];  | 
          411 | 
          		my $tagsubfield		=$tagsubfield[$i];  | 
        
  
    | 
      
            Lines 418-423
          if ($op eq 'add_form') {
      
      
        Link Here
      
     | 
  
        
          | 418 | 
          		my $authorised_value		=$authorised_values[$i];  | 
          420 | 
          		my $authorised_value		=$authorised_values[$i];  | 
        
        
          | 419 | 
          		my $frameworkcode		=$frameworkcodes[$i];  | 
          421 | 
          		my $frameworkcode		=$frameworkcodes[$i];  | 
        
        
          | 420 | 
          		my $value_builder=$value_builder[$i];  | 
          422 | 
          		my $value_builder=$value_builder[$i];  | 
        
            
               | 
               | 
              423 | 
                      my $defaultvalue = $defaultvalue[$i];  | 
            
        
          | 421 | 
          		#my $hidden = $ohidden[$i].$ihidden[$i].$ehidden[$i]; #collate from 3 hiddens;  | 
          424 | 
          		#my $hidden = $ohidden[$i].$ihidden[$i].$ehidden[$i]; #collate from 3 hiddens;  | 
        
        
          | 422 | 
          		my $hidden = $ohidden[$i]; #collate from 3 hiddens;  | 
          425 | 
          		my $hidden = $ohidden[$i]; #collate from 3 hiddens;  | 
        
        
          | 423 | 
          		my $isurl = $input->param("isurl$i")?1:0; | 
          426 | 
          		my $isurl = $input->param("isurl$i")?1:0; | 
        
  
    | 
      
            Lines 440-445
          if ($op eq 'add_form') {
      
      
        Link Here
      
     | 
  
        
          | 440 | 
          						$value_builder,  | 
          443 | 
          						$value_builder,  | 
        
        
          | 441 | 
          						$hidden,  | 
          444 | 
          						$hidden,  | 
        
        
          | 442 | 
          						$isurl,  | 
          445 | 
          						$isurl,  | 
        
            
               | 
               | 
              446 | 
                                      $defaultvalue,  | 
            
        
          | 443 | 
          						(  | 
          447 | 
          						(  | 
        
        
          | 444 | 
          							$authtypecode,  | 
          448 | 
          							$authtypecode,  | 
        
        
          | 445 | 
          							$tagfield,  | 
          449 | 
          							$tagfield,  | 
        
  
    | 
      
            Lines 463-468
          if ($op eq 'add_form') {
      
      
        Link Here
      
     | 
  
        
          | 463 | 
          						$value_builder,  | 
          467 | 
          						$value_builder,  | 
        
        
          | 464 | 
          						$hidden,  | 
          468 | 
          						$hidden,  | 
        
        
          | 465 | 
          						$isurl,  | 
          469 | 
          						$isurl,  | 
        
            
               | 
               | 
              470 | 
                                      $defaultvalue,  | 
            
        
          | 466 | 
          					);  | 
          471 | 
          					);  | 
        
        
          | 467 | 
          				}  | 
          472 | 
          				}  | 
        
        
          | 468 | 
          			}  | 
          473 | 
          			}  |