[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 address@hidden;
!       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 address@hidden;
!       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