[Bps-public-commit] r12970 - in RT-FormTools: .

[falcone at bestpractical.com]

Author: falcone
Date: Fri Jun  6 11:49:08 2008
New Revision: 12970

Modified:
   RT-FormTools/   (props changed)
   RT-FormTools/html/FormTools/Field
   RT-FormTools/html/FormTools/Form

Log:
 r33860 at ketch:  falcone | 2008-06-06 11:45:00 -0400
 * $m->notes takes an arrayref, not a list


Modified: RT-FormTools/html/FormTools/Field
==============================================================================
--- RT-FormTools/html/FormTools/Field	(original)
+++ RT-FormTools/html/FormTools/Field	Fri Jun  6 11:49:08 2008
@@ -14,8 +14,8 @@
 my $cf;
 if ( $name =~ /^(Requestors|Cc|AdminCc|Subject)$/i ) {
     $field_type = 'core';
-    $m->notes(
-        core_fields_on_page => ( $m->notes('core_fields_on_page'), $name ) );
+    my $res = $m->notes(
+        core_fields_on_page => [ @{$m->notes('core_fields_on_page')||[]}, $name ] );
     $field_label ||= $name;
 } else {
 
@@ -26,7 +26,7 @@
             . $queue->Name;
     }
 
-    $m->notes( cfs_on_page => ( $m->notes('cfs_on_page'), $cf->id ) );
+    $m->notes( cfs_on_page => [ @{$m->notes('cfs_on_page')||[]}, $cf->id ] );
     $field_label ||= $cf->Name;
 }
 

Modified: RT-FormTools/html/FormTools/Form
==============================================================================
--- RT-FormTools/html/FormTools/Form	(original)
+++ RT-FormTools/html/FormTools/Form	Fri Jun  6 11:49:08 2008
@@ -5,8 +5,8 @@
 <%init>
 my $content = $m->content;
 
-my %cfs = map { $_ => 1} $m->notes('cfs_on_page') || ();
-my %core_fields = map { $_ => 1} $m->notes('core_fields_on_page') || ();
+my %cfs = map { $_ => 1} @{ $m->notes('cfs_on_page') || [] };
+my %core_fields = map { $_ => 1} @{ $m->notes('core_fields_on_page') || [] };
 
 my %request_args = $m->request_args;