[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/translator translator.pl,1.3,1.4
From: |
Andrew Arensburger |
Subject: |
[Koha-cvs] CVS: koha/translator translator.pl,1.3,1.4 |
Date: |
Sun, 13 Oct 2002 03:47:11 -0700 |
Update of /cvsroot/koha/koha/translator
In directory usw-pr-cvs1:/tmp/cvs-serv26235
Modified Files:
translator.pl
Log Message:
Removed trailing whitespace.
Index: translator.pl
===================================================================
RCS file: /cvsroot/koha/koha/translator/translator.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** translator.pl 14 Aug 2002 18:12:54 -0000 1.3
--- translator.pl 13 Oct 2002 10:47:09 -0000 1.4
***************
*** 75,80 ****
$plik=$ARGV[0];
! if ($plik eq ''){
! $plik="koha.gettext.c";
}
--- 75,80 ----
$plik=$ARGV[0];
! if ($plik eq ''){
! $plik="koha.gettext.c";
}
***************
*** 92,96 ****
my $txt =<<TXT;
<HTML>
! <META http-equiv=Content-Type content="text/thml;
charset=${\(gettext('iso-8859-1'))}">
TXT
--- 92,96 ----
my $txt =<<TXT;
<HTML>
! <META http-equiv=Content-Type content="text/thml;
charset=${\(gettext('iso-8859-1'))}">
TXT
***************
*** 125,136 ****
$dane=~s/<html>/$txt/i;
!
$dane=~s/%/&zamien/ges; # change % (specjal symbol)
$dane=~s/\\\'/&zamien/ges; # change \'
$dane=~s/\\\"/&zamien/ges; # change \"
!
# take out graphics
$dane=~s/[\"\']\/?([\w-\/\.]*?\.gif)[\"\']/&zamien($1)/ges;
!
# $dane=~s/messenger\s*\((.*?)\)\s*[\}\{;]/&zamien($1)/ges;
# $dane=~s/\.write(ln)?\s*\((.*?)\)\s*[\};]/&zamien($2)/ges;
--- 125,136 ----
$dane=~s/<html>/$txt/i;
!
$dane=~s/%/&zamien/ges; # change % (specjal symbol)
$dane=~s/\\\'/&zamien/ges; # change \'
$dane=~s/\\\"/&zamien/ges; # change \"
!
# take out graphics
$dane=~s/[\"\']\/?([\w-\/\.]*?\.gif)[\"\']/&zamien($1)/ges;
!
# $dane=~s/messenger\s*\((.*?)\)\s*[\}\{;]/&zamien($1)/ges;
# $dane=~s/\.write(ln)?\s*\((.*?)\)\s*[\};]/&zamien($2)/ges;
***************
*** 139,143 ****
$dane=~s/alt\s*=\s*[\"]([^\"]*)[\"]/&zamien($1)/iges;
$dane=~s/alt\s*=\s*[\']([^\']*)[\']/&zamien($1)/iges;
!
$dane=~s/<!--.*?-->/&zamien/ges;
$dane=~s/<script.*?<\/script>/&zamien/iges;
--- 139,143 ----
$dane=~s/alt\s*=\s*[\"]([^\"]*)[\"]/&zamien($1)/iges;
$dane=~s/alt\s*=\s*[\']([^\']*)[\']/&zamien($1)/iges;
!
$dane=~s/<!--.*?-->/&zamien/ges;
$dane=~s/<script.*?<\/script>/&zamien/iges;
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/translator translator.pl,1.3,1.4,
Andrew Arensburger <=