[Koha-cvs] CVS: koha/admin marc_subfields_structure.pl,1.25,1.26

[doXulting]

Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2635/koha/admin

Modified Files:
	marc_subfields_structure.pl 
Log Message:
New stuff for authorities

Index: marc_subfields_structure.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/marc_subfields_structure.pl,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -r1.25 -r1.26
*** marc_subfields_structure.pl	25 Jun 2004 09:17:49 -0000	1.25
--- marc_subfields_structure.pl	6 Jul 2004 13:15:11 -0000	1.26
***************
*** 198,201 ****
--- 198,202 ----
  		$row_data{isurl} = CGI::checkbox("isurl$i",$data->{'isurl'}?'checked':'',1,'');
  		$row_data{bgcolor} = $toggle;
+ 		$row_data{link} = CGI::escapeHTML($data->{'link'});
  		push(@loop_data, \%row_data);
  		$i++;
***************
*** 239,242 ****
--- 240,244 ----
  					-multiple=>0,
  					);
+ 		$row_data{link} = CGI::escapeHTML($data->{'link'});
  		$row_data{bgcolor} = $toggle;
  		push(@loop_data, \%row_data);
***************
*** 256,261 ****
  	my $dbh = C4::Context->dbh;
  	$template->param(tagfield => "$input->param('tagfield')");
! 	my $sth=$dbh->prepare("replace marc_subfield_structure (tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,seealso,authorised_value,authtypecode,value_builder,hidden,isurl,frameworkcode)
! 									values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)");
  	my @tagsubfield	= $input->param('tagsubfield');
  	my @liblibrarian	= $input->param('liblibrarian');
--- 258,263 ----
  	my $dbh = C4::Context->dbh;
  	$template->param(tagfield => "$input->param('tagfield')");
! 	my $sth=$dbh->prepare("replace marc_subfield_structure (tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,seealso,authorised_value,authtypecode,value_builder,hidden,isurl,frameworkcode, link)
! 									values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)");
  	my @tagsubfield	= $input->param('tagsubfield');
  	my @liblibrarian	= $input->param('liblibrarian');
***************
*** 267,270 ****
--- 269,273 ----
  	my @authtypecodes	= $input->param('authtypecode');
  	my @value_builder	=$input->param('value_builder');
+ 	my @link		=$input->param('link');
  	for (my $i=0; $i<= $#tagsubfield ; $i++) {
  		my $tagfield			=$input->param('tagfield');
***************
*** 283,286 ****
--- 286,290 ----
  		my $hidden = $input->param("hidden$i")?1:0;
  		my $isurl = $input->param("isurl$i")?1:0;
+ 		my $link = $link[$i];
  		if ($liblibrarian) {
  			unless (C4::Context->config('demo') eq 1) {
***************
*** 300,304 ****
  									$isurl,
  									$frameworkcode,
! 									);
  			}
  		}
--- 304,310 ----
  									$isurl,
  									$frameworkcode,
! 
! 	 $link,
! 					      );
  			}
  		}