[Rt-commit] rt branch, master, updated. rt-3.9.7-1225-gcc1102a

? sunnavy sunnavy at bestpractical.com
Thu Jan 20 03:49:08 EST 2011


The branch, master has been updated
       via  cc1102a036dd43d1ef8b975aa6c216350ee6bd29 (commit)
       via  1d67f70ada1ba53b2b2a3dde6dfc4e4f40b6b511 (commit)
      from  b7a429f46d9d7290c4af53a24d837214426fddf6 (commit)

Summary of changes:
 share/html/m/ticket/create |    6 +++---
 t/web/mobile.t             |   19 ++++++++++++++++++-
 2 files changed, 21 insertions(+), 4 deletions(-)

- Log -----------------------------------------------------------------
commit 1d67f70ada1ba53b2b2a3dde6dfc4e4f40b6b511
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Thu Jan 20 15:23:34 2011 +0800

    $m->scomp() just returns the content, instead of showing it($m->comp does this)

diff --git a/share/html/m/ticket/create b/share/html/m/ticket/create
index 25357d3..994108e 100644
--- a/share/html/m/ticket/create
+++ b/share/html/m/ticket/create
@@ -333,10 +333,10 @@ $showrows->(
 );
 
 
-$m->scomp("/Ticket/Elements/EditCustomFields", %ARGS, QueueObj => $QueueObj );
+$m->comp("/Ticket/Elements/EditCustomFields", %ARGS, QueueObj => $QueueObj );
 
 
-$m->scomp("/Ticket/Elements/EditTransactionCustomFields", %ARGS, QueueObj => $QueueObj );
+$m->comp("/Ticket/Elements/EditTransactionCustomFields", %ARGS, QueueObj => $QueueObj );
 
 </%perl>
 % if (exists $session{'Attachments'}) {
@@ -363,7 +363,7 @@ $showrows->(
 
 
 % if ( $gnupg_widget ) {
-%$m->scomp("/Elements/GnuPG/SignEncryptWidget", self => $gnupg_widget, QueueObj => $QueueObj )
+%$m->comp("/Elements/GnuPG/SignEncryptWidget", self => $gnupg_widget, QueueObj => $QueueObj )
 % }
 
 

commit cc1102a036dd43d1ef8b975aa6c216350ee6bd29
Author: sunnavy <sunnavy at bestpractical.com>
Date:   Thu Jan 20 15:44:11 2011 +0800

    simple cf tests for mobile ui

diff --git a/t/web/mobile.t b/t/web/mobile.t
index 38d42ef..7cf9aee 100644
--- a/t/web/mobile.t
+++ b/t/web/mobile.t
@@ -1,6 +1,6 @@
 use strict;
 use warnings;
-use RT::Test tests => 151;
+use RT::Test tests => 156;
 
 my ( $url, $m ) = RT::Test->started_ok;
 my $root = RT::Test->load_or_create_user( Name => 'root' );
@@ -9,6 +9,18 @@ diag "create another queue";
 my $test_queue = RT::Queue->new( $RT::SystemUser );
 ok( $test_queue->Create( Name => 'foo' ) );
 
+diag "create cf cfbar";
+my $cfbar = RT::CustomField->new( $RT::SystemUser );
+ok(
+    $cfbar->Create(
+        Name       => 'cfbar',
+        Type       => 'Freeform',
+        LookupType => 'RT::Queue-RT::Ticket'
+    )
+);
+
+$cfbar->AddToObject( $test_queue );
+
 diag "create some tickets to link";
 # yep, create 3 tickets for DependsOn
 my @tickets = map { { Subject => "link of $_" } }
@@ -128,14 +140,19 @@ $m->follow_link_ok( { text => 'New ticket' } );
 like( $m->uri, qr'/m/ticket/select_create_queue', 'queue select page' );
 $m->follow_link_ok( { text => 'foo' } );
 like( $m->uri, qr'/m/ticket/create', 'ticket create page' );
+$m->content_contains( 'cfbar', 'has cf name' );
+$m->content_contains( 'Object-RT::Ticket--CustomField-' . $cfbar->id .  '-Value', 'has cf input name' );
 $m->submit_form(
     fields => {
         Subject => 'ticket2',
         Content => 'content 2',
         Owner   => $root->id,
+        'Object-RT::Ticket--CustomField-' . $cfbar->id . '-Value' => 'cfvalue',
     }
 );
 like( $m->uri, qr'/m/ticket/show', 'ticket show page' );
+$m->content_contains( 'cfbar', 'has cf name' );
+$m->content_contains( 'cfvalue', 'has cf value' );
 
 $m->follow_link_ok( { text => 'Homepage' } );
 is( $m->uri, "$url/m/", 'main mobile page' );

-----------------------------------------------------------------------


More information about the Rt-commit mailing list