[Koha-cvs] CVS: koha/admin marctagstructure.pl,1.8,1.9

[Paul POULAIN]

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

Modified Files:
	marctagstructure.pl 
Log Message:
bugfix to bug 142
But : modification of the behaviour : when you select 200 as search string in tag screen, the tags >200 are shown. Not only the 200 tag.
I think it's more logic and better.

Index: marctagstructure.pl
===================================================================
RCS file: /cvsroot/koha/koha/admin/marctagstructure.pl,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -r1.8 -r1.9
*** marctagstructure.pl	10 Dec 2002 17:35:54 -0000	1.8
--- marctagstructure.pl	18 Dec 2002 10:38:59 -0000	1.9
***************
*** 34,38 ****
  	my @data=split(' ',$searchstring);
  	my $count=@data;
! 	my $query="Select tagfield,liblibrarian,libopac,repeatable,mandatory,authorised_value from marc_tag_structure where (tagfield like \"$data[0]%\") order by tagfield";
  	my $sth=$dbh->prepare($query);
  	$sth->execute;
--- 34,38 ----
  	my @data=split(' ',$searchstring);
  	my $count=@data;
! 	my $query="Select tagfield,liblibrarian,libopac,repeatable,mandatory,authorised_value from marc_tag_structure where (tagfield > $data[0]) order by tagfield";
  	my $sth=$dbh->prepare($query);
  	$sth->execute;
***************
*** 135,139 ****
  						);
  	$sth->finish;
! 	print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=marctagstructure.pl\"></html>";
  	exit;
  													# END $OP eq ADD_VALIDATE
--- 135,139 ----
  						);
  	$sth->finish;
! 	print "Content-Type: text/html\n\n<META HTTP-EQUIV=Refresh CONTENT=\"0; URL=marctagstructure.pl?tagfield=$tagfield\"></html>";
  	exit;
  													# END $OP eq ADD_VALIDATE