eAuction
  Not just another Perl script
Google
Welcome, Guest. Please Login or Register


If you use eAuction a lot and like it or if you make money from eAuction or from eAuction-related activities ...
then the project asks you for a donation in favor of the further development.



The forums are protected by
AccessControl
(written by Dieter Werner)
Click here if you want to check your IP against the most important RBLs of the net.
Click here in order to visite the AccessControl forums.


<< Visit the international e Auction Marketplace >>
Buy and sell PC and Consumer Electronic components






  HomeHelpSearchLoginRegister
 



Pages: 1 ... 3 4 5 
set charsets for different languages (Read 806 times)
serox
eAuction User
**
Offline

I Love Perl

Posts: 6
Sweden
Gender: male
Re: set charsets for different languages
Reply #12 - 12/14/06 at 22:08:52
 
I finally figured it out.

I put my swedish characters åÅäÄöÖ in this line in Adisp_list.pl

#-#############################################
sub disp_list {
#-#############################################
   my $found = 0;    
   my $itm_cnt = 0;
   my $line_cnt = 0;
   my $page_cnt = 0;
   my $featured_cnt = 0;
   my $dest = undef;
   my $ret_val = 1;
   my @allfiles = ();
   
   my (
       $query, $item, $cat, $title, $reserve, $inc, $desc, $end_date,
     $end_time, $start_time, $close_time, $the_time, $image,
     $img_info, $bid, $bids, $buy_it, $buy_it_info, $location,
       $row,      $rowcolor, $check_string, $tbl_title, $record,
       @bids, @firstbid, @lastbid, @closetime, @image, @output
   );
   
   local $_;
   
   $form{'page'} = 0 unless exists $form{'page'};
   $form{'trash'} = 0 unless exists $form{'trash'};
   
   $form{'page'} >= 1
       ?   ($config{'max_searchtime'} += ($form{'page'} / 30))
       :   ($config{'max_searchtime'}++);
   
   ($check_string = $form{'searchstring'}) =~ s/\s//g;

   oops($txt{'The searchstring may not contain any non word characters'})
   if $check_string =~ /\WåÅäÄöÖ/ or !$check_string;

and now it's working.

serox
Back to top
 
 


Advertising
View Profile | WWW   IP Logged
Dieter Werner
Administrator
*****
Offline

Dipl. Paranoiac ®

Posts: 1162
Germany
Gender: male
Re: set charsets for different languages
Reply #13 - 12/15/06 at 10:00:19
 
The following code would be a better one ...
Code:
oops($txt{'The searchstring may not contain any non word characters'})
if $check_string !~ /\w[åÅäÄöÖ]/ or !$check_string;



Back to top
 
 

Multimedia file viewing and clickable links are available for registered members only!!  You need to Login or Register!!


Greetings from Germany
Dieter Werner




Advertising
View Profile | WWW   IP Logged
serox
eAuction User
**
Offline

I Love Perl

Posts: 6
Sweden
Gender: male
Re: set charsets for different languages
Reply #14 - 12/15/06 at 19:10:40
 
Ok
I have changed the code. It's do the same thing, but I guess it make some different

Thanx Dieter
Back to top
 
 


Advertising
View Profile | WWW   IP Logged
Pages: 1 ... 3 4 5 


If you like eAuction, please Rate it.
If you don't like eAuction, please Rate it too.


1 is being poor and 10 is being excellent


EveryScript

ip-location


AccessControl - Members Only