[Koha-cvs] CVS: koha/admin marc_subfields_structure.pl,1.16,1.17

Owen Leonard oleonard at users.sourceforge.net
Tue Dec 30 17:45:54 CET 2003


Update of /cvsroot/koha/koha/admin
In directory sc8-pr-cvs1:/tmp/cvs-serv2420/admin

Modified Files:
	marc_subfields_structure.pl 
Log Message:
Changes to generated HTML to allow proper validation (&, quoted attributes, etc.)

Index: marc_subfields_structure.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/marc_subfields_structure.pl,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -r1.16 -r1.17
*** marc_subfields_structure.pl	1 Aug 2003 14:25:12 -0000	1.16
--- marc_subfields_structure.pl	30 Dec 2003 16:45:52 -0000	1.17
***************
*** 164,168 ****
  					-multiple=>0,
  					);
! 		$row_data{tagsubfield} =$data->{'tagsubfield'}."<input type='hidden' name='tagsubfield' value='".$data->{'tagsubfield'}."'>";
  		$row_data{liblibrarian} = CGI::escapeHTML($data->{'liblibrarian'});
  		$row_data{libopac} = CGI::escapeHTML($data->{'libopac'});
--- 164,168 ----
  					-multiple=>0,
  					);
! 		$row_data{tagsubfield} =$data->{'tagsubfield'}."<input type=\"hidden\" name=\"tagsubfield\" value=\"".$data->{'tagsubfield'}."\" />";
  		$row_data{liblibrarian} = CGI::escapeHTML($data->{'liblibrarian'});
  		$row_data{libopac} = CGI::escapeHTML($data->{'libopac'});
***************
*** 212,216 ****
  					-multiple=>0,
  					);
! 		$row_data{tagsubfield} = "<input type='text' name='tagsubfield' value='".$data->{'tagsubfield'}."' size=3 maxlength=1>";
  		$row_data{liblibrarian} = "";
  		$row_data{libopac} = "";
--- 212,216 ----
  					-multiple=>0,
  					);
! 		$row_data{tagsubfield} = "<input type=\"text\" name=\"tagsubfield\" value=\"".$data->{'tagsubfield'}."\" size=\"3\" maxlength=\"1\" />";
  		$row_data{liblibrarian} = "";
  		$row_data{libopac} = "";
***************
*** 237,241 ****
  	}
  	$template->param(action => "Edit subfields",
! 							tagfield => "<input type=hidden name=tagfield value='$tagfield'>$tagfield",
  							loop => \@loop_data,
  							more_subfields => $more_subfields,
--- 237,241 ----
  	}
  	$template->param(action => "Edit subfields",
! 							tagfield => "<input type=\"hidden\" name=\"tagfield\" value=\"$tagfield\" />$tagfield",
  							loop => \@loop_data,
  							more_subfields => $more_subfields,
***************
*** 343,347 ****
  		$row_data{thesaurus_category}	= $results->[$i]{'thesaurus_category'};
  		$row_data{value_builder}	= $results->[$i]{'value_builder'};
! 		$row_data{delete} = "$script_name?op=delete_confirm&tagfield=$tagfield&tagsubfield=".$results->[$i]{'tagsubfield'};
  		$row_data{bgcolor} = $toggle;
  		push(@loop_data, \%row_data);
--- 343,347 ----
  		$row_data{thesaurus_category}	= $results->[$i]{'thesaurus_category'};
  		$row_data{value_builder}	= $results->[$i]{'value_builder'};
! 		$row_data{delete} = "$script_name?op=delete_confirm&amp;tagfield=$tagfield&amp;tagsubfield=".$results->[$i]{'tagsubfield'};
  		$row_data{bgcolor} = $toggle;
  		push(@loop_data, \%row_data);
***************
*** 351,359 ****
  	if ($offset>0) {
  		my $prevpage = $offset-$pagesize;
! 		$template->param(prev =>"<a href=$script_name?offset=$prevpage>");
  	}
  	if ($offset+$pagesize<$count) {
  		my $nextpage =$offset+$pagesize;
! 		$template->param(next => "<a href=$script_name?offset=$nextpage>");
  	}
  } #---- END $OP eq DEFAULT
--- 351,359 ----
  	if ($offset>0) {
  		my $prevpage = $offset-$pagesize;
! 		$template->param(prev =>"<a href=\"$script_name?offset=$prevpage\">");
  	}
  	if ($offset+$pagesize<$count) {
  		my $nextpage =$offset+$pagesize;
! 		$template->param(next => "<a href=\"$script_name?offset=$nextpage\">");
  	}
  } #---- END $OP eq DEFAULT





More information about the Koha-cvs mailing list