[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

SF.net SVN: ledger-smb: [1019] branches/1.2/bin

Revision: 1019
          http://svn.sourceforge.net/ledger-smb/?rev=1019&view=rev
Author:   tetragon
Date:     2007-04-01 15:35:54 -0700 (Sun, 01 Apr 2007)

Log Message:
-----------
Fix print command selection in 1.2

Modified Paths:
--------------
    branches/1.2/bin/arapprn.pl
    branches/1.2/bin/bp.pl
    branches/1.2/bin/cp.pl
    branches/1.2/bin/io.pl
    branches/1.2/bin/jc.pl
    branches/1.2/bin/pos.pl
    branches/1.2/bin/rp.pl

Modified: branches/1.2/bin/arapprn.pl
===================================================================
--- branches/1.2/bin/arapprn.pl	2007-03-30 21:54:02 UTC (rev 1018)
+++ branches/1.2/bin/arapprn.pl	2007-04-01 22:35:54 UTC (rev 1019)
@@ -228,7 +228,7 @@
     %queued = split / /, $form->{queued};
 
 
-    $form->{OUT} = "${LedgerSMB::Sysconfig::printer}{$form->{media}}";
+    $form->{OUT} = ${LedgerSMB::Sysconfig::printer}{$form->{media}};
     $form->{printmode} = '|-';
     if ($form->{printed} !~ /$form->{formname}/) {
 
@@ -446,7 +446,7 @@
   }
 
   if ($form->{media} !~ /(queue|screen)/) {
-    $form->{OUT} = "${LedgerSMB::Sysconfig::printer}{$form->{media}}";
+    $form->{OUT} = ${LedgerSMB::Sysconfig::printer}{$form->{media}};
     $form->{printmode} = '|-';
     
     if ($form->{printed} !~ /$form->{formname}/) {

Modified: branches/1.2/bin/bp.pl
===================================================================
--- branches/1.2/bin/bp.pl	2007-03-30 21:54:02 UTC (rev 1018)
+++ branches/1.2/bin/bp.pl	2007-04-01 22:35:54 UTC (rev 1019)
@@ -271,7 +271,7 @@
 
   for $i (1 .. $form->{rowcount}) {
     if ($form->{"checked_$i"}) {
-      $form->{OUT} = "${LedgerSMB::Sysconfig::printer}{$form->{media}}";
+      $form->{OUT} = ${LedgerSMB::Sysconfig::printer}{$form->{media}};
       $form->{printmode} = '|-';
       $form->info($locale->text('Printing')." ...");
 

Modified: branches/1.2/bin/cp.pl
===================================================================
--- branches/1.2/bin/cp.pl	2007-03-30 21:54:02 UTC (rev 1018)
+++ branches/1.2/bin/cp.pl	2007-04-01 22:35:54 UTC (rev 1019)
@@ -1287,7 +1287,7 @@
   $form->{IN} = "$form->{formname}.tex";
 
   if ($form->{media} ne 'screen') {
-    $form->{OUT} = "${LedgerSMB::Sysconfig::printer}{$form->{media}}";
+    $form->{OUT} = ${LedgerSMB::Sysconfig::printer}{$form->{media}};
     $form->{printmode} = '|-';
   }
 

Modified: branches/1.2/bin/io.pl
===================================================================
--- branches/1.2/bin/io.pl	2007-03-30 21:54:02 UTC (rev 1018)
+++ branches/1.2/bin/io.pl	2007-04-01 22:35:54 UTC (rev 1019)
@@ -1430,7 +1430,7 @@
   $form->{pre} = "<body bgcolor=#ffffff>\n<pre>" if $form->{format} eq 'txt';
 
   if ($form->{media} !~ /(screen|queue|email)/) {
-    $form->{OUT} = "${LedgerSMB::SysConfig::printer}{$form->{media}}";
+    $form->{OUT} = ${LedgerSMB::Sysconfig::printer}{$form->{media}};
     $form->{printmode} = '|-';
     $form->{OUT} =~ s/<%(fax)%>/<%$form->{vc}$1%>/;
     $form->{OUT} =~ s/<%(.*?)%>/$form->{$1}/g;

Modified: branches/1.2/bin/jc.pl
===================================================================
--- branches/1.2/bin/jc.pl	2007-03-30 21:54:02 UTC (rev 1018)
+++ branches/1.2/bin/jc.pl	2007-04-01 22:35:54 UTC (rev 1019)
@@ -1859,7 +1859,7 @@
   }
 
   if ($form->{media} !~ /(screen|queue)/) {
-    $form->{OUT} = "${LedgerSMB::Sysconfig::printer}{$form->{media}}";
+    $form->{OUT} = ${LedgerSMB::Sysconfig::printer}{$form->{media}};
     $form->{printmode} = '|-';
     
     if ($form->{printed} !~ /$form->{formname}/) {

Modified: branches/1.2/bin/pos.pl
===================================================================
--- branches/1.2/bin/pos.pl	2007-03-30 21:54:02 UTC (rev 1018)
+++ branches/1.2/bin/pos.pl	2007-04-01 22:35:54 UTC (rev 1019)
@@ -865,7 +865,7 @@
   }
   
   if ($form->{media} ne 'screen') {
-    $form->{OUT} = "${LedgerSMB::Sysconfig::printer}{$form->{media}}";
+    $form->{OUT} = ${LedgerSMB::Sysconfig::printer}{$form->{media}};
     $form->{printmode} = '|-';
   }
 

Modified: branches/1.2/bin/rp.pl
===================================================================
--- branches/1.2/bin/rp.pl	2007-03-30 21:54:02 UTC (rev 1018)
+++ branches/1.2/bin/rp.pl	2007-04-01 22:35:54 UTC (rev 1019)
@@ -1927,7 +1927,7 @@
      
  
   if ($form->{media} !~ /(screen|email)/) {
-    $form->{OUT} = "${LedgerSMB::Sysconfig::printer}{$form->{media}}";
+    $form->{OUT} = ${LedgerSMB::Sysconfig::printer}{$form->{media}};
     $form->{printmode} = '|-';
     $form->{"$form->{ct}_id"} = "";
     $SIG{INT} = 'IGNORE';


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.