[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