Correcting ambiguous join in payment_get_all_contact_invoices - ledger-smb - Unnamed repository; edit this file to name it for gitweb.

diff options

author	einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>	2008-03-08 01:35:56 +0000
committer	einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>	2008-03-08 01:35:56 +0000
commit	62d77db4b9504fd0dd28a677bebb064fc584c79c (patch)
tree	a46ad55bf4ec6367142ff082b41d35d4c011c260 /templates/Dutch-invoice.html
parent	eb7630f4d7a0143522273ff9a8024e30d1ee670a (diff)

Correcting ambiguous join in payment_get_all_contact_invoices

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2102 4979c152-3d1c-0410-bac9-87ea11338e46

Diffstat (limited to 'templates/Dutch-invoice.html')

0 files changed, 0 insertions, 0 deletions

pan class="hl kwc">grep { /\.pl/; !/(_|^\.)/ } readdir DIR;

seekdir DIR, 0;

@customfiles = grep /_/, readdir DIR;

closedir DIR;

# put customized files into @customfiles

@customfiles = () if ($arg{n});

if ($arg{n}) {

  @menufiles = ($menufile);

} else {

  opendir DIR, "$basedir" or die "$!";

  @menufiles = grep { /.*?_$menufile$/ } readdir DIR;

closedir DIR;

  unshift @menufiles, $menufile;

}

if (-f "all") {

  eval { require "all"; };

  %all = %{$self{texts}};

  %{$self{texts}} = ();

} else {

# build %all file from individual files

  foreach $file (@progfiles) {

    &scanfile("$bindir/$file");

}

# remove the old missing file

if (-f 'missing') {

  unlink "missing";

}

foreach $file (@progfiles) {

%locale = ();

%submit = ();

%subrt = ();

@missing = ();

%missing = ();

  &scanfile("$bindir/$file");

# scan custom_{module}.pl or {login}_{module}.pl files

  foreach $customfile (@customfiles) {

    if ($customfile =~ /_$file/) {

      if (-f "$bindir/$customfile") {

    &scanfile("$bindir/$customfile");

}

# if this is the menu.pl file

  if ($file eq 'menu.pl') {

    foreach $item (@menufiles) {

      &scanmenu("$basedir/$item");

}

  $file =~ s/\.pl//;

  if (-f "$file.missing") {

    eval { require "$file.missing"; };

    unlink "$file.missing";

    for (keys %$missing) {

      $self{texts}{$_} ||= $missing->{$_};

}

  open FH, ">$file" or die "$! : $file";

  if ($charset) {

    print FH qq|\$self{charset} = '$charset';\n\n|;

}

  print FH q|$self{texts} = {

  foreach $key (sort keys %locale) {

    $text = ($self{texts}{$key}) ? $self{texts}{$key} : $all{$key};

$count++;

    $text =~ s/'/\\'/g;

    $text =~ s/\\$/\\\\/;

    $keytext = $key;

    $keytext =~ s/'/\\'/g;

    $keytext =~ s/\\$/\\\\/;

    if (!$text) {

$notext++;

      push @missing, $keytext;

next;

}

    print FH qq|  '$keytext'|.(' ' x (27-length($keytext))).qq| => '$text',\n|;

}

print FH q|};

$self{subs} = {

  foreach $key (sort keys %subrt) {

    $text = $key;

    $text =~ s/'/\\'/g;

    $text =~ s/\\$/\\\\/;

    print FH qq|  '$text'|.(' ' x (27-length($text))).qq| => '$text',\n|;

}

  foreach $key (sort keys %submit) {

    $text = ($self{texts}{$key}) ? $self{texts}{$key} : $all{$key};

    next unless $text;

    $text =~ s/'/\\'/g;

    $text =~ s/\\$/\\\\/;

    $english_sub = $key;

    $english_sub =~ s/'/\\'/g;

    $english_sub =~ s/\\$/\\\\/;

    $english_sub = lc $key;

    $translated_sub = lc $text;

    $english_sub =~ s/( |-|,|\/|\.$)/_/g;

    $translated_sub =~ s/( |-|,|\/|\.$)/_/g;

    print FH qq|  '$translated_sub'|.(' ' x (27-length($translated_sub))).qq| => '$english_sub',\n|;

}

print FH q|};

close FH;

  if (!$arg{m}) {  

    if (@missing) {

      open FH, ">$file.missing" or die "$! : missing";

      print FH qq|# module $file

# add the missing texts and run locales.pl to rebuild

\$missing = {

      foreach $text (@missing) {

    $text =~ s/'/\\'/g;

    $text =~ s/\\$/\\\\/;

    print FH qq|  '$text'|.(' ' x (27-length($text))).qq| => '',\n|;

}

print FH q|};

close FH;

}

# redo the all file

  if ($arg{a}) {

    open FH, ">all" or die "$! : all";

    print FH q|# These are all the texts to build the translations files.

# to build unique strings edit the module files instead

# this file is just a shortcut to build strings which are the same

    if ($charset) {

      print FH qq|\$self{charset} = '$charset';\n\n|;

}

print FH q|

$self{texts} = {

    foreach $key (sort keys %all) {

      $keytext = $key;

      $keytext =~ s/'/\\'/g;

      $keytext =~ s/\\$/\\\\/;

      $text = $all{$key};

      $text =~ s/'/\\'/g;

      $text =~ s/\\$/\\\\/;

      print FH qq|  '$keytext'|.(' ' x (27-length($keytext))).qq| => '$text',\n|;

}

print FH q|};

close FH;

}

$per = sprintf("%.1f", ($count - $notext) / $count * 100);

print "\n$language - ${per}%\n";

exit;

# eof

sub scanfile {

  my ($file, $level) = @_;

  my $fh = new FileHandle;

  open $fh, "$file" or die "$! : $file";

  $file =~ s/\.pl//;

  $file =~ s/$bindir\///;

%temp = ();

  for (keys %{$self{texts}}) {

    $temp{$_} = $self{texts}{$_};

}

# read translation file if it exists

  if (-f $file) {

    eval { do "$file"; };

    for (keys %{$self{texts}}) {

      $all{$_} ||= $self{texts}{$_};

      if ($level) {

    $temp{$_} ||= $self{texts}{$_};

      } else {

    $temp{$_} = $self{texts}{$_};

}

  %{$self{texts}} = ();

  for (sort keys %temp) {

    $self{texts}{$_} = $temp{$_};

}

  while (<$fh>) {

# is this another file

    if (/require\s+\W.*\.pl/) {

      my $newfile = $&;

      $newfile =~ s/require\s+\W//;

      $newfile =~ s/\$form->{path}\///;

      &scanfile("$bindir/$newfile", 1) if $newfile !~ /_/;

}

# is this a sub ?

    if (/^sub /) {

      ($null, $subrt) = split / +/;

      $subrt{$subrt} = 1;

next;

}

    my $rc = 1;

    while ($rc) {


context:
space:
mode: