From interchange-cvs at icdevgroup.org Thu Apr 3 23:20:32 2014 From: interchange-cvs at icdevgroup.org (Josh Lavin) Date: Thu, 03 Apr 2014 23:20:32 +0000 Subject: [interchange] Allow use of 'id' parameter with [table-editor] tag, in hash-attribute form: Message-ID: commit b05c2a4c0625f3882829b59746d27cb7b88ffa8f Author: Josh Lavin Date: Thu Apr 3 16:17:02 2014 -0700 Allow use of 'id' parameter with [table-editor] tag, in hash-attribute form: id.myfield=myid Works in conjunction with existing 'id' support in Form.pm lib/Vend/Table/Editor.pm | 2 ++ 1 files changed, 2 insertions(+), 0 deletions(-) --- diff --git a/lib/Vend/Table/Editor.pm b/lib/Vend/Table/Editor.pm index 42cff4c..78b6c23 100644 --- a/lib/Vend/Table/Editor.pm +++ b/lib/Vend/Table/Editor.pm @@ -2382,6 +2382,7 @@ show_times("begin table editor call item_id=$key") if $Global::ShowTimes; my $height = $opt->{height}; my $help = $opt->{help}; my $help_url = $opt->{help_url}; + my $id = $opt->{id}; my $label = $opt->{label}; my $wid_href = $opt->{wid_href}; my $lookup = $opt->{lookup}; @@ -4035,6 +4036,7 @@ EOF help => $help->{$c}, help_url => $help_url->{$c}, href => $wid_href->{$c}, + id => $id->{$c}, js_check => $js_check->{$c}, key => $key, label => $label->{$c}, From interchange-cvs at icdevgroup.org Fri Apr 4 00:29:32 2014 From: interchange-cvs at icdevgroup.org (Jon Jensen) Date: Fri, 04 Apr 2014 00:29:32 +0000 Subject: [interchange] Correct [log type=error|debug] final newline behavior Message-ID: commit d0b179e3eb62763fc442093bf5892123615a435e Author: Jon Jensen Date: Thu Apr 3 18:28:05 2014 -0600 Correct [log type=error|debug] final newline behavior It shouldn't quote the final newline with > since ::logError doesn't. (And because it makes a mess of the log.) lib/Vend/Interpolate.pm | 3 ++- 1 files changed, 2 insertions(+), 1 deletions(-) --- diff --git a/lib/Vend/Interpolate.pm b/lib/Vend/Interpolate.pm index b44f185..ec230e1 100644 --- a/lib/Vend/Interpolate.pm +++ b/lib/Vend/Interpolate.pm @@ -2016,8 +2016,9 @@ sub log { } elsif($opt->{type} =~ /^(?:error|debug)/) { if ($opt->{file}) { + $data =~ s/\n\z//; $data = format_log_msg($data) unless $data =~ s/^\\//;; - $status = Vend::Util::writefile($file, $data, $opt); + $status = Vend::Util::writefile($file, $data . "\n", $opt); } elsif ($opt->{type} =~ /^debug/) { $status = Vend::Util::logDebug($data);