SF.net SVN: ledger-smb:[5496] trunk/LedgerSMB

[..hidden..]

Revision: 5496
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=5496&view=rev
Author:   einhverfr
Date:     2013-01-06 07:08:32 +0000 (Sun, 06 Jan 2013)
Log Message:
-----------
Designating edit and delete columns in COA report to be html only

Modified Paths:
--------------
    trunk/LedgerSMB/Report/COA.pm
    trunk/LedgerSMB/Template.pm

Modified: trunk/LedgerSMB/Report/COA.pm
===================================================================
--- trunk/LedgerSMB/Report/COA.pm	2013-01-06 07:07:29 UTC (rev 5495)
+++ trunk/LedgerSMB/Report/COA.pm	2013-01-06 07:08:32 UTC (rev 5496)
@@ -117,13 +117,13 @@
        name => LedgerSMB::Report::text('Edit'),
        type => 'href',
   href_base => '',
-     pwidth => '3', },
+  html_only => 1, },
 
     {col_id => 'delete',
        name => LedgerSMB::Report::text('Delete'),
        type => 'href',
   href_base => '',
-     pwidth => '3', },
+  html_only => '1', },
 
 );
 

Modified: trunk/LedgerSMB/Template.pm
===================================================================
--- trunk/LedgerSMB/Template.pm	2013-01-06 07:07:29 UTC (rev 5495)
+++ trunk/LedgerSMB/Template.pm	2013-01-06 07:08:32 UTC (rev 5496)
@@ -283,6 +283,7 @@
 sub render {
 	my $self = shift;
 	my $vars = shift;
+        my $do_not_escape = shift; # arrayref
         $vars->{LIST_FORMATS} = sub { return $self->available_formats} ;
         $vars->{ENVARS} = \%ENV;
         $vars->{USER} = $LedgerSMB::App_State::User;
@@ -323,7 +324,7 @@
 		carp 'no_escape mode enabled in rendering';
 		$cleanvars = $vars;
 	} else {
-		$cleanvars = $format->can('preprocess')->($vars);
+		$cleanvars = $format->can('preprocess')->($vars, $do_not_escape);
 	}
         $cleanvars->{escape} = sub { return $format->escape(@_)};
 	if (UNIVERSAL::isa($self->{locale}, 'LedgerSMB::Locale')){

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