[Rt-commit] r10627 - in rt/branches/3.999-DANGEROUS: . docs/design_docs etc html/Admin/Elements html/Admin/Groups html/Admin/Queues html/Admin/Users html/Approvals/Elements html/Elements html/Elements/CollectionAsTable html/NoAuth/js/libs html/Prefs html/REST/1.0/Forms/ticket html/Search html/Search/Elements html/SelfService html/SelfService/Elements html/Ticket html/Ticket/Elements html/Tools/Reports lib/RT lib/RT/Condition lib/RT/Crypt lib/RT/Interface lib/RT/Model lib/RT/ScripAction lib/RT/Shredder/Plugin share/po t t/api t/mail t/web
jesse at bestpractical.com
jesse at bestpractical.com
Thu Jan 31 17:06:05 EST 2008
Author: jesse
Date: Thu Jan 31 17:06:03 2008
New Revision: 10627
Modified:
rt/branches/3.999-DANGEROUS/ (props changed)
rt/branches/3.999-DANGEROUS/docs/design_docs/gnupg_details_on_output_formats
rt/branches/3.999-DANGEROUS/etc/RT_Config.pm
rt/branches/3.999-DANGEROUS/html/Admin/Elements/EditTemplates
rt/branches/3.999-DANGEROUS/html/Admin/Groups/index.html
rt/branches/3.999-DANGEROUS/html/Admin/Queues/index.html
rt/branches/3.999-DANGEROUS/html/Admin/Users/Memberships.html
rt/branches/3.999-DANGEROUS/html/Admin/Users/index.html
rt/branches/3.999-DANGEROUS/html/Approvals/Elements/PendingMyApproval
rt/branches/3.999-DANGEROUS/html/Elements/CollectionAsTable/Header
rt/branches/3.999-DANGEROUS/html/Elements/CollectionAsTable/ParseFormat
rt/branches/3.999-DANGEROUS/html/Elements/CollectionAsTable/Row
rt/branches/3.999-DANGEROUS/html/Elements/CollectionList
rt/branches/3.999-DANGEROUS/html/Elements/SelectDate
rt/branches/3.999-DANGEROUS/html/Elements/SelectDateType
rt/branches/3.999-DANGEROUS/html/Elements/ShowCustomFieldWikitext
rt/branches/3.999-DANGEROUS/html/Elements/ShowSearch
rt/branches/3.999-DANGEROUS/html/Elements/TicketList
rt/branches/3.999-DANGEROUS/html/NoAuth/js/libs/prototype.js
rt/branches/3.999-DANGEROUS/html/Prefs/Search.html
rt/branches/3.999-DANGEROUS/html/Prefs/SearchOptions.html
rt/branches/3.999-DANGEROUS/html/REST/1.0/Forms/ticket/default
rt/branches/3.999-DANGEROUS/html/Search/Build.html
rt/branches/3.999-DANGEROUS/html/Search/Bulk.html
rt/branches/3.999-DANGEROUS/html/Search/Edit.html
rt/branches/3.999-DANGEROUS/html/Search/Elements/BuildFormatString
rt/branches/3.999-DANGEROUS/html/Search/Elements/DisplayOptions
rt/branches/3.999-DANGEROUS/html/Search/Elements/EditFormat
rt/branches/3.999-DANGEROUS/html/Search/Elements/EditSearches
rt/branches/3.999-DANGEROUS/html/Search/Elements/PickBasics
rt/branches/3.999-DANGEROUS/html/Search/Elements/ResultViews
rt/branches/3.999-DANGEROUS/html/Search/Results.html
rt/branches/3.999-DANGEROUS/html/SelfService/Display.html
rt/branches/3.999-DANGEROUS/html/SelfService/Elements/MyRequests
rt/branches/3.999-DANGEROUS/html/Ticket/Create.html
rt/branches/3.999-DANGEROUS/html/Ticket/Elements/Reminders
rt/branches/3.999-DANGEROUS/html/Ticket/Elements/ShowSummary
rt/branches/3.999-DANGEROUS/html/Ticket/Elements/ShowTransaction
rt/branches/3.999-DANGEROUS/html/Ticket/Elements/ShowTransactionAttachments
rt/branches/3.999-DANGEROUS/html/Ticket/Elements/Tabs
rt/branches/3.999-DANGEROUS/html/Ticket/ModifyAll.html
rt/branches/3.999-DANGEROUS/html/Tools/Reports/CreatedByDates.html
rt/branches/3.999-DANGEROUS/html/Tools/Reports/ResolvedByDates.html
rt/branches/3.999-DANGEROUS/html/User/Prefs.html
rt/branches/3.999-DANGEROUS/lib/RT/Condition/BeforeDue.pm
rt/branches/3.999-DANGEROUS/lib/RT/Config.pm
rt/branches/3.999-DANGEROUS/lib/RT/Crypt/GnuPG.pm
rt/branches/3.999-DANGEROUS/lib/RT/Date.pm
rt/branches/3.999-DANGEROUS/lib/RT/Interface/Email.pm
rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/Attachment.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/CachedGroupMember.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/Group.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/GroupMember.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/Ticket.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/TicketCollection.pm
rt/branches/3.999-DANGEROUS/lib/RT/Model/Transaction.pm
rt/branches/3.999-DANGEROUS/lib/RT/Record.pm
rt/branches/3.999-DANGEROUS/lib/RT/SavedSearch.pm
rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/Autoreply.pm
rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/CreateTickets.pm
rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/Notify.pm
rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/SendEmail.pm
rt/branches/3.999-DANGEROUS/lib/RT/SearchBuilder.pm
rt/branches/3.999-DANGEROUS/lib/RT/Shredder/Plugin/Users.pm
rt/branches/3.999-DANGEROUS/share/po/it.po
rt/branches/3.999-DANGEROUS/t/api/attribute.t
rt/branches/3.999-DANGEROUS/t/api/date.t
rt/branches/3.999-DANGEROUS/t/mail/crypt-gnupg.t
rt/branches/3.999-DANGEROUS/t/mail/gnupg-bad.t
rt/branches/3.999-DANGEROUS/t/mail/gnupg-incoming.t
rt/branches/3.999-DANGEROUS/t/mail/gnupg-realmail.t
rt/branches/3.999-DANGEROUS/t/mail/gnupg-reverification.t
rt/branches/3.999-DANGEROUS/t/savedsearch.t
rt/branches/3.999-DANGEROUS/t/web/crypt-gnupg.t
rt/branches/3.999-DANGEROUS/t/web/gnupg-outgoing.t
rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-create.t
rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-update.t
rt/branches/3.999-DANGEROUS/t/web/ticket_seen.t
Log:
r76015 at pinglin: jesse | 2008-01-31 15:31:01 -0500
ImmediateParent -> immediate_parent
r76016 at pinglin: jesse | 2008-01-31 16:58:21 -0500
Date -> date
Time -> time
Timezone -> timezone
Format => format
DisplayFormat => display_format
DayOfWeek -> day_of_week
CurrentFormat => current_format
OutgoingMessagesFormat => outgoing_messages_format
Modified: rt/branches/3.999-DANGEROUS/docs/design_docs/gnupg_details_on_output_formats
==============================================================================
--- rt/branches/3.999-DANGEROUS/docs/design_docs/gnupg_details_on_output_formats (original)
+++ rt/branches/3.999-DANGEROUS/docs/design_docs/gnupg_details_on_output_formats Thu Jan 31 17:06:03 2008
@@ -68,7 +68,7 @@
20 = Elgamal (sign and encrypt - don't use them!)
(for other id's see include/cipher.h)
5. Field: KeyID
- 6. Field: Creation Date (in UTC). For UID and UAT records, this is the
+ 6. Field: Creation date (in UTC). For UID and UAT records, this is the
self-signature date. Note that the dae is usally printed
in seconds since epoch, however, we are migrating to an ISO
8601 format (e.g. "19660205T091500"). This is currently
@@ -161,8 +161,8 @@
GnuPG before version 1.4 used the classic trust model by default.
GnuPG 1.4 and later uses the PGP trust model by default.
- 4: Date trustdb was Created in seconds since 1/1/1970.
- 5: Date trustdb will expire in seconds since 1/1/1970.
+ 4: date trustdb was Created in seconds since 1/1/1970.
+ 5: date trustdb will expire in seconds since 1/1/1970.
The "spk" signature subpacket records have the fields:
Modified: rt/branches/3.999-DANGEROUS/etc/RT_Config.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/etc/RT_Config.pm (original)
+++ rt/branches/3.999-DANGEROUS/etc/RT_Config.pm Thu Jan 31 17:06:03 2008
@@ -55,9 +55,9 @@
# passwords. setting it to 0 disables this check
set( $MinimumpasswordLength, "5" );
-# $Timezone is used to convert times entered by users into GMT and back again
+# $timezone is used to convert times entered by users into GMT and back again
# It should be set to a timezone recognized by your local unix box.
-set( $Timezone, 'US/Eastern' );
+set( $timezone, 'US/Eastern' );
# }}}
@@ -258,7 +258,7 @@
# sprintf() format of the friendly 'From:' header; its arguments
# are Sendername and Senderemail.
-set( $FriendlyFromLineFormat, "\"%s via RT\" <%s>" );
+set( $friendly_from_line_format, "\"%s via RT\" <%s>" );
# RT can optionally set a "Friendly" 'To:' header when sending messages to
# Ccs or AdminCcs (rather than having a blank 'To:' header.
@@ -271,7 +271,7 @@
# sprintf() format of the friendly 'From:' header; its arguments
# are WatcherType and TicketId.
-set( $FriendlyToLineFormat,
+set( $friendly_to_line_format,
"\"%s of " . RT->config->get('rtname') . " Ticket #%s\":;" );
# By default, RT doesn't notify the person who performs an update, as they
@@ -311,9 +311,9 @@
set(%GnuPG,
Enable => 0,
- # set OutgoingMessagesFormat to 'inline' to use inline encryption and
+ # set outgoing_messages_format to 'inline' to use inline encryption and
# signatures instead of 'RFC' (GPG/MIME: RFC3156 and RFC1847) format.
- OutgoingMessagesFormat => 'RFC', # Inline
+ outgoing_messages_format => 'RFC', # Inline
# If you want to allow people to encrypt attachments inside the DB then
# set below option to true value
@@ -657,22 +657,22 @@
# }}}
-# {{{ RT Date Handling Options
+# {{{ RT date Handling Options
# You can choose date and time format. See "Output formatters"
# section in perldoc lib/RT/Date.pm for more options. This option can
# be overridden by users in their preferences.
# Some examples:
-#set($DateTimeFormat, { Format => 'ISO', Seconds => 0 });
-#set($DateTimeFormat, 'RFC2822');
-#set($DateTimeFormat, { Format => 'RFC2822', Seconds => 0, DayOfWeek => 0 });
-set( $DateTimeFormat, 'DefaultFormat' );
+#set($date_time_format, { format => 'ISO', seconds => 0 });
+#set($date_time_format, 'RFC2822');
+#set($date_time_format, { format => 'RFC2822', seconds => 0, day_of_week => 0 });
+set( $date_time_format, 'default_format' );
# Next two options are for Time::ParseDate
# set this to 1 if your local date convention looks like "dd/mm/yy"
# instead of "mm/dd/yy".
-set( $DateDayBeforeMonth, 1 );
+set( $date_day_before_month, 1 );
# Should "Tuesday" default to meaning "Next Tuesday" or "Last Tuesday"?
# set to 0 for "Next" or 1 for "Last".
Modified: rt/branches/3.999-DANGEROUS/html/Admin/Elements/EditTemplates
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Admin/Elements/EditTemplates (original)
+++ rt/branches/3.999-DANGEROUS/html/Admin/Elements/EditTemplates Thu Jan 31 17:06:03 2008
@@ -13,11 +13,11 @@
order_by => 'id',
Order => 'ASC',
%ARGS,
- DisplayFormat => '__CheckBox.{DeleteTemplates}__,'. $Format,
- Format => $Format,
+ display_format => '__CheckBox.{DeleteTemplates}__,'. $format,
+ format => $format,
Collection => $Templates,
AllowSorting => 1,
- PassArguments => [qw(Format Rows Page Order order_by FinddisabledQueues)],
+ PassArguments => [qw(format Rows Page Order order_by FinddisabledQueues)],
&>
% }
@@ -26,7 +26,7 @@
<%INIT>
my $dir_path = $m->request_comp->dir_path;
-$Format ||= qq{'<a href="__WebPath__$dir_path/Template.html?Queue=$id&Template=__id__">__id__</a>/TITLE:#'}
+$format ||= qq{'<a href="__WebPath__$dir_path/Template.html?Queue=$id&Template=__id__">__id__</a>/TITLE:#'}
.qq{,'<a href="__WebPath__$dir_path/Template.html?Queue=$id&Template=__id__">__name__</a>/TITLE:name'}
.qq{,'__description__'};
@@ -73,7 +73,7 @@
<%ARGS>
$id => 0
-$Format => undef
+$format => undef
@DeleteTemplates => ()
</%ARGS>
Modified: rt/branches/3.999-DANGEROUS/html/Admin/Groups/index.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Admin/Groups/index.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Admin/Groups/index.html Thu Jan 31 17:06:03 2008
@@ -60,10 +60,10 @@
Order => 'ASC',
Rows => 100,
%ARGS,
- Format => $Format,
+ format => $format,
Collection => $Groups,
AllowSorting => 1,
- PassArguments => [qw(Format Rows Page Order order_by GroupString GroupOp Groupfield FinddisabledGroups)],
+ PassArguments => [qw(format Rows Page Order order_by GroupString GroupOp Groupfield FinddisabledGroups)],
&>
% my $ids = join ',', map $_->id, @{ $Groups->items_array_ref };
@@ -114,13 +114,13 @@
}
-$Format ||= q{'<a href="__WebPath__/Admin/Groups/Modify.html?id=__id__">__id__</a>/TITLE:#'}
+$format ||= q{'<a href="__WebPath__/Admin/Groups/Modify.html?id=__id__">__id__</a>/TITLE:#'}
.q{,'<a href="__WebPath__/Admin/Groups/Modify.html?id=__id__">__name__</a>/TITLE:name'}
.q{,'__description__'};
</%INIT>
<%ARGS>
-$Format => undef,
+$format => undef,
$GroupString => '' unless defined $GroupString
$GroupOp => '='
Modified: rt/branches/3.999-DANGEROUS/html/Admin/Queues/index.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Admin/Queues/index.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Admin/Queues/index.html Thu Jan 31 17:06:03 2008
@@ -61,10 +61,10 @@
order_by => 'name',
Order => 'ASC',
%ARGS,
- Format => $Format,
+ format => $format,
Collection => $queues,
AllowSorting => 1,
- PassArguments => [qw(Format Rows Page Order order_by FinddisabledQueues)],
+ PassArguments => [qw(format Rows Page Order order_by FinddisabledQueues)],
&>
% }
<form method="post" action="<% RT->config->get('WebPath') %>/Admin/Queues/index.html">
@@ -85,12 +85,12 @@
$caption = _("Enabled Queues");
}
-$Format ||= q{'<a href="__WebPath__/Admin/Queues/Modify.html?id=__id__">__id__</a>/TITLE:#'}
+$format ||= q{'<a href="__WebPath__/Admin/Queues/Modify.html?id=__id__">__id__</a>/TITLE:#'}
.q{,'<a href="__WebPath__/Admin/Queues/Modify.html?id=__id__">__name__</a>/TITLE:name'}
.q{,__description__,__Address__,__Priority__,__default_due_in__,__disabled__};
</%INIT>
<%ARGS>
$FinddisabledQueues => 0
-$Format => undef
+$format => undef
</%ARGS>
Modified: rt/branches/3.999-DANGEROUS/html/Admin/Users/Memberships.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Admin/Users/Memberships.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Admin/Users/Memberships.html Thu Jan 31 17:06:03 2008
@@ -64,11 +64,11 @@
Order => 'ASC',
Rows => 0,
%ARGS,
- DisplayFormat => "__CheckBox.{Delete}__,$Format",
- Format => $Format,
+ display_format => "__CheckBox.{Delete}__,$format",
+ format => $format,
Collection => $is_member,
AllowSorting => 1,
- PassArguments => [qw(Format Rows Page Order order_by id)],
+ PassArguments => [qw(format Rows Page Order order_by id)],
&>
<h2><&|/l&>Groups the user is not member of (check box to add)</&></h2>
@@ -78,11 +78,11 @@
Order => 'ASC',
Rows => 100,
%ARGS,
- DisplayFormat => "__CheckBox.{Add}__,'__has_member_recursively.{$id}__/TITLE:Recursive',$Format",
- Format => $Format,
+ display_format => "__CheckBox.{Add}__,'__has_member_recursively.{$id}__/TITLE:Recursive',$format",
+ format => $format,
Collection => $is_not_member,
AllowSorting => 1,
- PassArguments => [qw(Format Rows Page Order order_by)],
+ PassArguments => [qw(format Rows Page Order order_by)],
&>
<& /Elements/Submit, Label => _('Update'), name => 'Update' &>
@@ -128,7 +128,7 @@
$is_not_member->limit_to_user_defined_groups;
$is_not_member->without_member( principal_id => $user_object->id );
-$Format ||= q{'<a href="__WebPath__/Admin/Groups/Modify.html?id=__id__">__id__</a>/TITLE:#'}
+$format ||= q{'<a href="__WebPath__/Admin/Groups/Modify.html?id=__id__">__id__</a>/TITLE:#'}
.q{,'<a href="__WebPath__/Admin/Groups/Modify.html?id=__id__">__name__</a>/TITLE:name'}
.q{,'__description__'};
</%INIT>
@@ -139,5 +139,5 @@
@Add => (),
@Delete => (),
-$Format => undef
+$format => undef
</%ARGS>
Modified: rt/branches/3.999-DANGEROUS/html/Admin/Users/index.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Admin/Users/index.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Admin/Users/index.html Thu Jan 31 17:06:03 2008
@@ -61,10 +61,10 @@
Order => 'ASC',
Rows => 100,
%ARGS,
- Format => $Format,
+ format => $format,
Collection => $users,
AllowSorting => 1,
- PassArguments => [qw(Format Rows Page Order order_by UserString UserOp UserField IdLike EmailLike FinddisabledUsers)],
+ PassArguments => [qw(format Rows Page Order order_by UserString UserOp UserField IdLike EmailLike FinddisabledUsers)],
&>
% my $ids = join ',', map $_->id, @{ $users->items_array_ref };
@@ -79,7 +79,7 @@
% }
<form method="post" action="<% RT->config->get('WebPath') %>/Admin/Users/index.html">
-% foreach my $field( qw(Format Rows Page Order order_by) ) {
+% foreach my $field( qw(format Rows Page Order order_by) ) {
% next unless defined $ARGS{ $field } && length $ARGS{ $field };
<input type="hidden" name="<% $field %>" value="<% $ARGS{ $field } %>" />
% }
@@ -117,13 +117,13 @@
$users->limit_to_privileged;
}
-$Format ||= q{'<a href="__WebPath__/Admin/Users/Modify.html?id=__id__">__id__</a>/TITLE:#'}
+$format ||= q{'<a href="__WebPath__/Admin/Users/Modify.html?id=__id__">__id__</a>/TITLE:#'}
.q{,'<a href="__WebPath__/Admin/Users/Modify.html?id=__id__">__name__</a>/TITLE:name'}
.q{,__real_name__, __email__};
</%INIT>
<%ARGS>
-$Format => undef,
+$format => undef,
$UserString => undef
$UserOp => '='
Modified: rt/branches/3.999-DANGEROUS/html/Approvals/Elements/PendingMyApproval
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Approvals/Elements/PendingMyApproval (original)
+++ rt/branches/3.999-DANGEROUS/html/Approvals/Elements/PendingMyApproval Thu Jan 31 17:06:03 2008
@@ -99,11 +99,11 @@
}
if ( $ARGS{'CreatedBefore'} ) {
- $Created_before->set( Format => 'unknown', value => $ARGS{'CreatedBefore'} );
+ $Created_before->set( format => 'unknown', value => $ARGS{'CreatedBefore'} );
$_->limit_created( operator => "<=", value => $Created_before->iso );
}
if ( $ARGS{'CreatedAfter'} ) {
- $Created_after->set( Format => 'unknown', value => $ARGS{'CreatedAfter'} );
+ $Created_after->set( format => 'unknown', value => $ARGS{'CreatedAfter'} );
$_->limit_created( operator => ">=", value => $Created_after->iso );
}
}
Modified: rt/branches/3.999-DANGEROUS/html/Elements/CollectionAsTable/Header
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Elements/CollectionAsTable/Header (original)
+++ rt/branches/3.999-DANGEROUS/html/Elements/CollectionAsTable/Header Thu Jan 31 17:06:03 2008
@@ -48,8 +48,8 @@
<%ARGS>
$Class => 'RT__Model__Ticket'
- at Format => undef
-$FormatString => undef
+ at format => undef
+$format_string => undef
@order_by => ()
@Order => ()
$Query => undef
@@ -60,17 +60,17 @@
$AllowSorting => undef
$baseURL => undef
- at PassArguments => qw(Query Format Rows Page Order order_by)
+ at PassArguments => qw(Query format Rows Page Order order_by)
</%ARGS>
<tr class="collection-as-table">
<%PERL>
my %generic_query_args = map { $_ => $ARGS{$_} } @PassArguments;
# backward compatibility workaround
-$generic_query_args{'Format'} = $FormatString if grep $_ eq 'Format', @PassArguments;
+$generic_query_args{'format'} = $format_string if grep $_ eq 'format', @PassArguments;
my $item = 0;
-foreach my $col ( @Format ) {
+foreach my $col ( @format ) {
my $title = $col->{'title'} || '';
if ( $title eq 'NEWLINE' ) {
while ( $item < $maxitems ) {
Modified: rt/branches/3.999-DANGEROUS/html/Elements/CollectionAsTable/ParseFormat
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Elements/CollectionAsTable/ParseFormat (original)
+++ rt/branches/3.999-DANGEROUS/html/Elements/CollectionAsTable/ParseFormat Thu Jan 31 17:06:03 2008
@@ -46,14 +46,14 @@
%#
%# END BPS TAGGED BLOCK }}}
<%ARGS>
-$Format
+$format
</%ARGS>
<%init>
use Regexp::Common qw/delimited/;
my @Columns;
-while ($Format =~ /($RE{delimited}{-delim=>qq{\'"}}|[{}\w.]+)/go) {
+while ($format =~ /($RE{delimited}{-delim=>qq{\'"}}|[{}\w.]+)/go) {
my $col = $1;
if ($col =~ /^$RE{quoted}$/o) {
Modified: rt/branches/3.999-DANGEROUS/html/Elements/CollectionAsTable/Row
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Elements/CollectionAsTable/Row (original)
+++ rt/branches/3.999-DANGEROUS/html/Elements/CollectionAsTable/Row Thu Jan 31 17:06:03 2008
@@ -47,7 +47,7 @@
%# END BPS TAGGED BLOCK }}}
<%ARGS>
$i => undef
- at Format => undef
+ at format => undef
$record => undef
$maxitems => undef
$Depth => undef
@@ -59,7 +59,7 @@
$m->out('<tr class="' . ( $Warning ? 'warnline' : $i % 2 ? 'oddline' : 'evenline' ) . '" >' . "\n" );
use HTML::Entities;
my $item;
-foreach my $column ( @Format ) {
+foreach my $column ( @format ) {
if ( defined $column->{title} && $column->{title} eq 'NEWLINE' ) {
while ( $item < $maxitems ) {
$m->out(qq{<td class="collection-as-table"> </td>\n});
Modified: rt/branches/3.999-DANGEROUS/html/Elements/CollectionList
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Elements/CollectionList (original)
+++ rt/branches/3.999-DANGEROUS/html/Elements/CollectionList Thu Jan 31 17:06:03 2008
@@ -51,8 +51,8 @@
<& /Elements/CollectionAsTable/Header,
%ARGS,
Class => $Class,
- Format => \@Format,
- FormatString => $Format,
+ format => \@format,
+ format_string => $format,
Order => \@Order,
order_by => \@order_by,
Rows => $Rows,
@@ -70,7 +70,7 @@
$m->flush_buffer unless ++$i % 10;
$m->comp('/Elements/CollectionAsTable/Row',
i => $i,
- Format => \@Format,
+ format => \@format,
record => $record,
maxitems => $maxitems,
Class => $Class,
@@ -115,21 +115,21 @@
$Page = 1 unless $Page && $Page > 0; # workaround problems with Page = '' or undef
$Collection->set_page_info($Rows ? ( per_page => $Rows) : (per_page => 25), current_page => $Page);
-# DisplayFormat lets us use a "temporary" format for display, while
+# display_format lets us use a "temporary" format for display, while
# still using our original format for next/prev page links.
# bulk update uses this feature to add checkboxes
-$DisplayFormat ||= $Format;
+$display_format ||= $format;
# Scrub the html of the format string to remove any potential nasties.
-$Format = $m->comp('/Elements/ScrubHTML', Content => $Format);
-$DisplayFormat = $m->comp('/Elements/ScrubHTML', Content => $DisplayFormat);
+$format = $m->comp('/Elements/ScrubHTML', Content => $format);
+$display_format = $m->comp('/Elements/ScrubHTML', Content => $display_format);
-my @Format = $m->comp('/Elements/CollectionAsTable/ParseFormat', Format => $DisplayFormat);
+my @format = $m->comp('/Elements/CollectionAsTable/ParseFormat', format => $display_format);
# Find the maximum number of items in any row, so we can pad the table.
my ($maxitems, $item) = (0, 0);
-foreach my $col (@Format) {
+foreach my $col (@format) {
$item++;
if ( $col->{title} && ($col->{title} eq 'NEWLINE') ) {
$item = 0;
@@ -147,8 +147,8 @@
<%ARGS>
$Collection => undef
-$Format => undef
-$DisplayFormat => undef
+$format => undef
+$display_format => undef
@Order => ()
@order_by => ()
@@ -158,7 +158,7 @@
$Title => _('Ticket Search')
$baseURL => RT->config->get('WebPath') . $m->request_comp->path .'?'
- at PassArguments => qw(Query Format Rows Page Order order_by)
+ at PassArguments => qw(Query format Rows Page Order order_by)
$AllowSorting => 0
$ShowNavigation => 1
Modified: rt/branches/3.999-DANGEROUS/html/Elements/SelectDate
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Elements/SelectDate (original)
+++ rt/branches/3.999-DANGEROUS/html/Elements/SelectDate Thu Jan 31 17:06:03 2008
@@ -60,7 +60,7 @@
}
unless ($name) {
- $name = $menu_prefix. "_Date";
+ $name = $menu_prefix. "_date";
}
</%init>
Modified: rt/branches/3.999-DANGEROUS/html/Elements/SelectDateType
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Elements/SelectDateType (original)
+++ rt/branches/3.999-DANGEROUS/html/Elements/SelectDateType Thu Jan 31 17:06:03 2008
@@ -56,5 +56,5 @@
<option value="Updated"><&|/l&>Updated</&></option>
</select>
<%ARGS>
-$name => 'DateType'
+$name => 'dateType'
</%ARGS>
Modified: rt/branches/3.999-DANGEROUS/html/Elements/ShowCustomFieldWikitext
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Elements/ShowCustomFieldWikitext (original)
+++ rt/branches/3.999-DANGEROUS/html/Elements/ShowCustomFieldWikitext Thu Jan 31 17:06:03 2008
@@ -48,10 +48,10 @@
% my $content = $object->large_content || $object->content;
% $content = $m->comp('/Elements/ScrubHTML', Content => $content);
% my $base = $object->object->wiki_base;
-% my $wiki_content = Text::WikiFormat::format( $content."\n" , {}, { extended => 1, absolute_links => 1, implicit_links => RT->config->get('WikiImplicitLinks'), prefix => $base} );
+% my $wiki_content = Text::Wikiformat::format( $content."\n" , {}, { extended => 1, absolute_links => 1, implicit_links => RT->config->get('WikiImplicitLinks'), prefix => $base} );
<%$wiki_content|n%>
<%init>
-use Text::WikiFormat;
+use Text::Wikiformat;
</%init>
<%ARGS>
$object
Modified: rt/branches/3.999-DANGEROUS/html/Elements/ShowSearch
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Elements/ShowSearch (original)
+++ rt/branches/3.999-DANGEROUS/html/Elements/ShowSearch Thu Jan 31 17:06:03 2008
@@ -112,8 +112,8 @@
foreach ( $SearchArg, $ProcessedSearchArg ) {
$_->{'Query'} =~ s/__CurrentUser__/Jifty->web->current_user->id/ge;
- $_->{'Format'} =~ s/__(Web(?:Path|base|baseURL))__/scalar RT->config->get($1)/ge;
- $_->{'Format'} =~ s/__loc\(["']?(\w+)["']?\)__/_("$1")/ge;
+ $_->{'format'} =~ s/__(Web(?:Path|base|baseURL))__/scalar RT->config->get($1)/ge;
+ $_->{'format'} =~ s/__loc\(["']?(\w+)["']?\)__/_("$1")/ge;
}
my $QueryString = '?' . $m->comp( '/Elements/QueryString', %$SearchArg );
Modified: rt/branches/3.999-DANGEROUS/html/Elements/TicketList
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Elements/TicketList (original)
+++ rt/branches/3.999-DANGEROUS/html/Elements/TicketList Thu Jan 31 17:06:03 2008
@@ -49,8 +49,8 @@
% if ($ShowHeader) {
<& /Elements/CollectionAsTable/Header,
- Format => \@Format,
- FormatString => $Format,
+ format => \@format,
+ format_string => $format,
AllowSorting => $AllowSorting,
Order => $Order,
Query => $Query,
@@ -68,7 +68,7 @@
$m->flush_buffer unless $i % 10;
$m->comp('/Elements/CollectionAsTable/Row',
i => $i,
- Format => \@Format,
+ format => \@format,
record => $record,
maxitems => $maxitems,
);
@@ -88,7 +88,7 @@
my $prev = $m->comp(
'/Elements/QueryString',
Query => $Query,
- Format => $Format,
+ format => $format,
Rows => $Rows,
order_by => $order_by,
Order => $Order,
@@ -97,7 +97,7 @@
my $next = $m->comp(
'/Elements/QueryString',
Query => $Query,
- Format => $Format,
+ format => $format,
Rows => $Rows,
order_by => $order_by,
Order => $Order,
@@ -135,21 +135,21 @@
$Page = 1 unless $Page && $Page > 0; # workaround problems with Page = '' or undef
$Collection->set_page_info(per_page => $Rows, current_page => $Page);
-# DisplayFormat lets us use a "temporary" format for display, while
+# display_format lets us use a "temporary" format for display, while
# still using our original format for next/prev page links.
# bulk update uses this feature to add checkboxes
-$DisplayFormat ||= $Format;
+$display_format ||= $format;
# Scrub the html of the format string to remove any potential nasties.
-$Format = $m->comp('/Elements/ScrubHTML', Content => $Format);
-$DisplayFormat = $m->comp('/Elements/ScrubHTML', Content => $DisplayFormat);
+$format = $m->comp('/Elements/ScrubHTML', Content => $format);
+$display_format = $m->comp('/Elements/ScrubHTML', Content => $display_format);
-my @Format = $m->comp('/Elements/CollectionAsTable/ParseFormat', Format => $DisplayFormat);
+my @format = $m->comp('/Elements/CollectionAsTable/ParseFormat', format => $display_format);
# Find the maximum number of items in any row, so we can pad the table.
my ($maxitems, $item) = (0, 0);
-foreach my $col (@Format) {
+foreach my $col (@format) {
$item++;
if ( $col->{title} && ($col->{title} eq 'NEWLINE') ) {
$item = 0;
@@ -164,8 +164,8 @@
$Collection => undef
$Query => undef
-$Format => RT->config->get('DefaultSearchResultFormat')
-$DisplayFormat => undef
+$format => RT->config->get('DefaultSearchResultFormat')
+$display_format => undef
$Order => undef
$order_by => undef
$Rows => 50
Modified: rt/branches/3.999-DANGEROUS/html/NoAuth/js/libs/prototype.js
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/NoAuth/js/libs/prototype.js (original)
+++ rt/branches/3.999-DANGEROUS/html/NoAuth/js/libs/prototype.js Thu Jan 31 17:06:03 2008
@@ -1538,7 +1538,7 @@
colspan: "colSpan",
rowspan: "rowSpan",
valign: "vAlign",
- datetime: "dateTime",
+ datetime: "DateTime",
accesskey: "accessKey",
tabindex: "tabIndex",
enctype: "encType",
Modified: rt/branches/3.999-DANGEROUS/html/Prefs/Search.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Prefs/Search.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Prefs/Search.html Thu Jan 31 17:06:03 2008
@@ -64,10 +64,10 @@
<form method="post" action="Search.html" name="BuildQuery">
<input type="hidden" name="name" value="<%$ARGS{name}%>" class="hidden" />
-<input type="hidden" name="Format" value="<%$ARGS{Format}%>" class="hidden" />
+<input type="hidden" name="format" value="<%$ARGS{format}%>" class="hidden" />
<& /Search/Elements/DisplayOptions, %$SearchArg, %ARGS,
- AvailableColumns => $AvailableColumns, CurrentFormat => $CurrentFormat &>
+ AvailableColumns => $AvailableColumns, current_format => $current_format &>
<& /Elements/Submit, Caption => _("Save"), Label => loc('Save'), name => 'Save'&>
</form>
@@ -76,7 +76,7 @@
my @actions;
my $title = _("Customize").' ';
-my @fields = qw(Format Order order_by rows_per_page);
+my @fields = qw(format Order order_by rows_per_page);
$ARGS{name} ||= '';
my ($class, $id) = ( $ARGS{name} =~ m/^(.*)-(\d+)$/ );
@@ -96,8 +96,8 @@
$ARGS{'Order'} = join '|', grep defined && /\S/, (ref $ARGS{'Order'})? @{$ARGS{'Order'}}: $ARGS{'Order'};
$ARGS{'order_by'} = join '|', grep defined && /\S/, (ref $ARGS{'order_by'})? @{$ARGS{'order_by'}}: $ARGS{'order_by'};
-my ( $AvailableColumns, $CurrentFormat );
-( $ARGS{Format}, $AvailableColumns, $CurrentFormat ) = $m->comp(
+my ( $AvailableColumns, $current_format );
+( $ARGS{format}, $AvailableColumns, $current_format ) = $m->comp(
'/Search/Elements/BuildFormatString',
cfqueues => {}, %ARGS
);
Modified: rt/branches/3.999-DANGEROUS/html/Prefs/SearchOptions.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Prefs/SearchOptions.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Prefs/SearchOptions.html Thu Jan 31 17:06:03 2008
@@ -52,11 +52,11 @@
&>
<form method="post" action="SearchOptions.html">
-<input type="hidden" class="hidden" name="Format" value="<%$Format%>" />
+<input type="hidden" class="hidden" name="format" value="<%$format%>" />
<& /Search/Elements/DisplayOptions, %ARGS,
- Format=> $Format,
+ format=> $format,
AvailableColumns => $AvailableColumns,
- CurrentFormat => $CurrentFormat,
+ current_format => $current_format,
rows_per_page => $rows_per_page,
order_by => $order_by,
Order => $Order &>
@@ -74,7 +74,7 @@
if ($ARGS{'SavePreferences'}) {
Jifty->web->current_user->user_object->set_preferences("SearchDisplay",
{
- Format => $Format,
+ format => $format,
Order => $Order,
order_by => $order_by,
rows_per_page => $rows_per_page,
@@ -86,20 +86,20 @@
# Read from user preferences
my $prefs = Jifty->web->current_user->user_object->preferences("SearchDisplay") || {};
-$Format ||= $prefs->{'Format'};
+$format ||= $prefs->{'format'};
$Order ||= ($prefs->{'Order'} || 'ASC');
$order_by ||= ($prefs->{'order_by'} || 'id');
($rows_per_page = defined( $prefs->{'rows_per_page'} ) ? $prefs->{'rows_per_page'} : 50) unless defined ($rows_per_page);
-my ( $AvailableColumns, $CurrentFormat );
-( $Format, $AvailableColumns, $CurrentFormat ) = $m->comp(
+my ( $AvailableColumns, $current_format );
+( $format, $AvailableColumns, $current_format ) = $m->comp(
'/Search/Elements/BuildFormatString',
- %ARGS, Format => $Format
+ %ARGS, format => $format
);
</%INIT>
<%ARGS>
-$Format => undef
+$format => undef
$description => undef
$Order => undef
$order_by => undef
Modified: rt/branches/3.999-DANGEROUS/html/REST/1.0/Forms/ticket/default
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/REST/1.0/Forms/ticket/default (original)
+++ rt/branches/3.999-DANGEROUS/html/REST/1.0/Forms/ticket/default Thu Jan 31 17:06:03 2008
@@ -199,7 +199,7 @@
$time = RT::Date->new();
foreach $key (@dates) {
next unless (!%$fields || (exists $fields->{lc $key}));
- $time->set(Format => 'sql', value => $ticket->$key);
+ $time->set(format => 'sql', value => $ticket->$key);
push @data, [ $key => $time->as_string ];
}
@@ -264,7 +264,7 @@
$set = "set_$key";
my $time = RT::Date->new() ;
- $time->set(Format => 'sql', value => $ticket->$key);
+ $time->set(format => 'sql', value => $ticket->$key);
next if ($val =~ /^not set$/i || $val eq $time->as_string);
($n, $s) = $ticket->$set($val);
}
Modified: rt/branches/3.999-DANGEROUS/html/Search/Build.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Search/Build.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Search/Build.html Thu Jan 31 17:06:03 2008
@@ -76,7 +76,7 @@
<form method="post" action="Build.html" name="BuildQuery">
<input type="hidden" class="hidden" name="SavedSearchId" value="<% $saved_search{'id'} %>" />
<input type="hidden" class="hidden" name="Query" value="<% $query{'Query'} %>" />
-<input type="hidden" class="hidden" name="Format" value="<% $query{'Format'} %>" />
+<input type="hidden" class="hidden" name="format" value="<% $query{'format'} %>" />
<div id="editquery">
@@ -105,7 +105,7 @@
<& Elements/DisplayOptions,
%ARGS, %query,
AvailableColumns => $AvailableColumns,
- CurrentFormat => $CurrentFormat,
+ current_format => $current_format,
&>
<& /Elements/Submit, Label => _('Add and Search'), name => 'DoSearch'&>
@@ -119,7 +119,7 @@
my $title = _("Query Builder");
my %query;
-for( qw(Query Format order_by Order rows_per_page) ) {
+for( qw(Query format order_by Order rows_per_page) ) {
$query{$_} = $ARGS{$_};
}
@@ -144,9 +144,9 @@
my $current = $session{'CurrentSearchHash'};
my $prefs = Jifty->web->current_user->user_object->preferences("SearchDisplay") || {};
- my $default = { Query => '', Format => '', order_by => 'id', Order => 'ASC', rows_per_page => 50 };
+ my $default = { Query => '', format => '', order_by => 'id', Order => 'ASC', rows_per_page => 50 };
- for( qw(Query Format order_by Order rows_per_page) ) {
+ for( qw(Query format order_by Order rows_per_page) ) {
$query{$_} = $current->{$_} unless defined $query{$_};
$query{$_} = $prefs->{$_} unless defined $query{$_};
$query{$_} = $default->{$_} unless defined $query{$_};
@@ -157,9 +157,9 @@
$query{$_} = join( '|', @{ $query{$_} } );
}
}
- if ( $query{'Format'} ) {
+ if ( $query{'format'} ) {
# Clean unwanted junk from the format
- $query{'Format'} = $m->comp( '/Elements/ScrubHTML', Content => $query{'Format'} );
+ $query{'format'} = $m->comp( '/Elements/ScrubHTML', Content => $query{'format'} );
}
}
@@ -265,12 +265,12 @@
my $queues = $tree->get_referenced_queues;
# {{{ Deal with format changes
-my ( $AvailableColumns, $CurrentFormat );
-( $query{'Format'}, $AvailableColumns, $CurrentFormat ) = $m->comp(
+my ( $AvailableColumns, $current_format );
+( $query{'format'}, $AvailableColumns, $current_format ) = $m->comp(
'Elements/BuildFormatString',
%ARGS,
cfqueues => $queues,
- Format => $query{'Format'},
+ format => $query{'format'},
);
# }}}
Modified: rt/branches/3.999-DANGEROUS/html/Search/Bulk.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Search/Bulk.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Search/Bulk.html Thu Jan 31 17:06:03 2008
@@ -49,7 +49,7 @@
<& /Ticket/Elements/Tabs,
current_tab => "Search/Bulk.html",
Title => $title,
- Format => $ARGS{'Format'}, # we don't want the locally modified one
+ format => $ARGS{'format'}, # we don't want the locally modified one
Query => $Query,
Rows => $Rows,
order_by => $order_by,
@@ -57,12 +57,12 @@
<& /Elements/ListActions, actions => \@results &>
<form method="post" action="<% RT->config->get('WebPath') %>/Search/Bulk.html" enctype="multipart/form-data">
-% foreach my $var qw(Query Format order_by Order Rows Page) {
+% foreach my $var qw(Query format order_by Order Rows Page) {
<input type="hidden" class="hidden" name="<%$var%>" value="<%$ARGS{$var} || ''%>" />
%}
<& /Elements/TicketList, Query => $Query,
- DisplayFormat => $Format,
- Format => $ARGS{'Format'},
+ display_format => $format,
+ format => $ARGS{'format'},
Verbatim => 1,
AllowSorting => 1,
order_by => $order_by,
@@ -108,15 +108,15 @@
<tr><td class="label"> <&|/l&>Make Status</&>: </td>
<td class="value"> <& /Elements/SelectStatus, name => "Status" &> </td></tr>
<tr><td class="label"> <&|/l&>Make date starts</&>: </td>
-<td class="value"> <& /Elements/SelectDate, name => "starts_Date", ShowTime => 0, Default => '' &> </td></tr>
+<td class="value"> <& /Elements/SelectDate, name => "starts_date", ShowTime => 0, Default => '' &> </td></tr>
<tr><td class="label"> <&|/l&>Make date Started</&>: </td>
-<td class="value"> <& /Elements/SelectDate, name => "Started_Date", ShowTime => 0, Default => '' &> </td></tr>
+<td class="value"> <& /Elements/SelectDate, name => "Started_date", ShowTime => 0, Default => '' &> </td></tr>
<tr><td class="label"> <&|/l&>Make date Told</&>: </td>
-<td class="value"> <& /Elements/SelectDate, name => "Told_Date", ShowTime => 0, Default => '' &> </td></tr>
+<td class="value"> <& /Elements/SelectDate, name => "Told_date", ShowTime => 0, Default => '' &> </td></tr>
<tr><td class="label"> <&|/l&>Make date Due</&>: </td>
-<td class="value"> <& /Elements/SelectDate, name => "Due_Date", ShowTime => 0, Default => '' &> </td></tr>
+<td class="value"> <& /Elements/SelectDate, name => "Due_date", ShowTime => 0, Default => '' &> </td></tr>
<tr><td class="label"> <&|/l&>Make date Resolved</&>: </td>
-<td class="value"> <& /Elements/SelectDate, name => "Resolved_Date", ShowTime => 0, Default => '' &> </td></tr>
+<td class="value"> <& /Elements/SelectDate, name => "Resolved_date", ShowTime => 0, Default => '' &> </td></tr>
</table>
</td>
@@ -208,10 +208,10 @@
$Page ||= 1;
-$Format ||= RT->config->get('DefaultSearchResultFormat');
+$format ||= RT->config->get('DefaultSearchResultFormat');
# inject _CHECKBOX to the first field.
-$Format =~ s/'?([^']+)'?,/'___CHECKBOX__$1',/;
+$format =~ s/'?([^']+)'?,/'___CHECKBOX__$1',/;
my $Tickets = RT::Model::TicketCollection->new();
$Tickets->from_sql($Query);
@@ -369,7 +369,7 @@
</%INIT>
<%args>
-$Format => undef
+$format => undef
$Page => 1
$Rows => 50
$Order => 'ASC'
Modified: rt/branches/3.999-DANGEROUS/html/Search/Edit.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Search/Edit.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Search/Edit.html Thu Jan 31 17:06:03 2008
@@ -49,7 +49,7 @@
<& /Ticket/Elements/Tabs,
current_tab => "Search/Edit.html?".$QueryString,
Title => $title,
- Format => $Format,
+ format => $format,
Query => $Query,
Rows => $Rows,
order_by => $order_by,
@@ -63,17 +63,17 @@
<input type="hidden" class="hidden" name="SavedSearchId" value="<% $SavedSearchId %>" />
<textarea name="Query" rows="8" cols="72"><% $Query %></textarea>
<br />
-<textarea name="Format" rows="8" cols="72"><% $Format %></textarea>
+<textarea name="format" rows="8" cols="72"><% $format %></textarea>
<br />
<& /Elements/Submit, Label => _("Apply"), Reset => 1, Caption => loc("Apply your changes")&>
</form>
<%INIT>
my $title = _("Edit Query");
-$Format = $m->comp('/Elements/ScrubHTML', Content => $Format);
+$format = $m->comp('/Elements/ScrubHTML', Content => $format);
my $QueryString = $m->comp('/Elements/QueryString',
Query => $Query,
- Format => $Format,
+ format => $format,
Rows => $Rows,
order_by => $order_by,
Order => $Order,
@@ -86,7 +86,7 @@
$SavedSearchId => 'new'
$Query => ''
-$Format => ''
+$format => ''
$Rows => '50'
$order_by => 'id'
$Order => 'ASC'
Modified: rt/branches/3.999-DANGEROUS/html/Search/Elements/BuildFormatString
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Search/Elements/BuildFormatString (original)
+++ rt/branches/3.999-DANGEROUS/html/Search/Elements/BuildFormatString Thu Jan 31 17:06:03 2008
@@ -46,7 +46,7 @@
%#
%# END BPS TAGGED BLOCK }}}
<%ARGS>
-$Format => RT->config->get('DefaultSearchResultFormat')
+$format => RT->config->get('DefaultSearchResultFormat')
%cfqueues => ()
@@ -121,8 +121,8 @@
my ( @seen);
-$Format ||= RT->config->get('DefaultSearchResultFormat');
-my @format = split( /,\s*/, $Format );
+$format ||= RT->config->get('DefaultSearchResultFormat');
+my @format = split( /,\s*/, $format );
foreach my $field (@format) {
my %column = ();
$field =~ s/'(.*)'/$1/;
@@ -227,9 +227,9 @@
push( @format_string, $row );
}
-$Format = join(",\n", @format_string);
+$format = join(",\n", @format_string);
-return($Format, \@fields, \@seen);
+return($format, \@fields, \@seen);
</%init>
Modified: rt/branches/3.999-DANGEROUS/html/Search/Elements/DisplayOptions
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Search/Elements/DisplayOptions (original)
+++ rt/branches/3.999-DANGEROUS/html/Search/Elements/DisplayOptions Thu Jan 31 17:06:03 2008
@@ -134,6 +134,6 @@
$Order => undef
$order_by => undef
$rows_per_page => undef
-$Format => undef
+$format => undef
$GroupBy => 'id'
</%ARGS>
Modified: rt/branches/3.999-DANGEROUS/html/Search/Elements/EditFormat
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Search/Elements/EditFormat (original)
+++ rt/branches/3.999-DANGEROUS/html/Search/Elements/EditFormat Thu Jan 31 17:06:03 2008
@@ -49,7 +49,7 @@
<tr>
<th><&|/l&>add Columns</&>:</th>
-<th><&|/l&>Format</&>:</th>
+<th><&|/l&>format</&>:</th>
<th></th>
<th><&|/l&>Show Columns</&>:</th>
</tr>
@@ -88,7 +88,7 @@
<td valign="top">
<select size="4" name="CurrentDisplayColumns">
% my $i=0;
-% foreach my $field ( @$CurrentFormat ) {
+% foreach my $field ( @$current_format ) {
<option value="<% $i++ %>><% $field->{Column} %>"><% _( $field->{Column} ) %></option>
% }
</select>
@@ -104,6 +104,6 @@
</table>
<%ARGS>
-$CurrentFormat => undef
+$current_format => undef
$AvailableColumns => undef
</%ARGS>
Modified: rt/branches/3.999-DANGEROUS/html/Search/Elements/EditSearches
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Search/Elements/EditSearches (original)
+++ rt/branches/3.999-DANGEROUS/html/Search/Elements/EditSearches Thu Jan 31 17:06:03 2008
@@ -119,7 +119,7 @@
</%ARGS>
<%INIT>
-my @columns = qw(Query Format order_by Order rows_per_page);
+my @columns = qw(Query format order_by Order rows_per_page);
$SavedSearch->{'id'} = $ARGS{'SavedSearchId'} || 'new';
$SavedSearch->{'description'} = $ARGS{'SavedSearchdescription'} || '';
@@ -231,7 +231,7 @@
my $obj = $SavedSearch->{'object'};
return 0 unless $obj && $obj->id;
-foreach( qw(Query Format order_by Order rows_per_page) ) {
+foreach( qw(Query format order_by Order rows_per_page) ) {
return 1 if $obj->sub_value( $_ ) ne $Query->{$_};
}
Modified: rt/branches/3.999-DANGEROUS/html/Search/Elements/PickBasics
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Search/Elements/PickBasics (original)
+++ rt/branches/3.999-DANGEROUS/html/Search/Elements/PickBasics Thu Jan 31 17:06:03 2008
@@ -141,7 +141,7 @@
Value => { type => 'text', Size => 20 }
},
{
- name => 'Date',
+ name => 'date',
Field => {
type => 'component',
Path => '/Elements/SelectDateType',
Modified: rt/branches/3.999-DANGEROUS/html/Search/Elements/ResultViews
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Search/Elements/ResultViews (original)
+++ rt/branches/3.999-DANGEROUS/html/Search/Elements/ResultViews Thu Jan 31 17:06:03 2008
@@ -48,7 +48,7 @@
<%args>
$QueryString => undef
$Query => undef
-$Format => undef
+$format => undef
$Rows => undef
$order_by => undef
$Order => undef
@@ -63,7 +63,7 @@
<a href="<%RT->config->get('WebPath')%>/Tools/Offline.html<%$ShortQueryString%>"><&|/l&>Work offline</&></a><br />
<form method="get" action="<%RT->config->get('WebPath')%>/Search/Chart.html"><&|/l&>chart</&>
-% my %hiddens = (Query => $Query, Format => $Format, Rows => $Rows, order_by => $order_by, Order => $Order);
+% my %hiddens = (Query => $Query, format => $format, Rows => $Rows, order_by => $order_by, Order => $Order);
% foreach my $key (keys(%hiddens)) {
<input type="hidden" class="hidden" name="<%$key%>" value="<%defined($hiddens{$key})?$hiddens{$key}:''%>" />
% }
Modified: rt/branches/3.999-DANGEROUS/html/Search/Results.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Search/Results.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Search/Results.html Thu Jan 31 17:06:03 2008
@@ -50,7 +50,7 @@
<& /Ticket/Elements/Tabs,
current_tab => "Search/Results.html".$QueryString,
Title => $title,
- Format => $Format,
+ format => $format,
Query => $Query,
Rows => $Rows,
order_by => $order_by,
@@ -62,11 +62,11 @@
Order => $Order,
Rows => $Rows,
Page => $Page,
- Format => $Format,
+ format => $format,
baseURL => RT->config->get('WebPath')."/Search/Results.html?"
&>
-% my %hiddens = (Query => $Query, Format => $Format, Rows => $Rows, order_by => $order_by, Order => $Order, HideResults => $HideResults, Page => $Page );
+% my %hiddens = (Query => $Query, format => $format, Rows => $Rows, order_by => $order_by, Order => $Order, HideResults => $HideResults, Page => $Page );
<div align="right">
<form method="get" action="<%RT->config->get('WebPath')%>/Search/Results.html">
% foreach my $key (keys(%hiddens)) {
@@ -80,7 +80,7 @@
<& Elements/ResultViews,
QueryString => $QueryString,
Query => $Query,
- Format => $Format,
+ format => $format,
Rows => $Rows,
order_by => $order_by,
Order => $Order,
@@ -95,7 +95,7 @@
# These variables are what define a search_hash; this is also
# where we give sane defaults.
-$Format ||= $prefs->{'Format'} || RT->config->get('DefaultSearchResultFormat');
+$format ||= $prefs->{'format'} || RT->config->get('DefaultSearchResultFormat');
$Order ||= $prefs->{'Order'} || 'ASC';
$order_by ||= $prefs->{'order_by'} || 'id';
@@ -129,7 +129,7 @@
}
$session{'CurrentSearchHash'} = {
- Format => $Format,
+ format => $format,
Query => $Query,
Page => $Page,
Order => $Order,
@@ -147,7 +147,7 @@
my $QueryString = "?".$m->comp('/Elements/QueryString',
Query => $Query,
- Format => $Format,
+ format => $format,
Rows => $Rows,
order_by => $order_by,
Order => $Order,
@@ -164,7 +164,7 @@
</%CLEANUP>
<%ARGS>
$Query => undef
-$Format => undef
+$format => undef
$HideResults => 0
$Rows => undef
$Page => 1
Modified: rt/branches/3.999-DANGEROUS/html/SelfService/Display.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/SelfService/Display.html (original)
+++ rt/branches/3.999-DANGEROUS/html/SelfService/Display.html Thu Jan 31 17:06:03 2008
@@ -60,7 +60,7 @@
</&>
</td>
<td valign="top" width="50%" class="boxcontainer">
- <&| /Widgets/TitleBox, title => _("Dates"),
+ <&| /Widgets/TitleBox, title => _("dates"),
title_class=> 'inverse',
color => "#663366" &>
<& /Ticket/Elements/ShowDates, Ticket => $Ticket, UpdatedLink => 0 &>
Modified: rt/branches/3.999-DANGEROUS/html/SelfService/Elements/MyRequests
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/SelfService/Elements/MyRequests (original)
+++ rt/branches/3.999-DANGEROUS/html/SelfService/Elements/MyRequests Thu Jan 31 17:06:03 2008
@@ -47,7 +47,7 @@
%# END BPS TAGGED BLOCK }}}
<&| /Widgets/TitleBox, title => $title &>
<& /Elements/TicketList, Title => $title,
- Format => @Format,
+ format => @format,
Query => $Query,
Order => $Order,
order_by => $order_by,
@@ -67,7 +67,7 @@
}
my $Order = "ASC";
my $order_by = "Created";
-my @Format = qq{
+my @format = qq{
'<B><A HREF="}. RT->config->get('WebPath') .qq{/SelfService/Display.html?id=__id__">__id__</a></B>/TITLE:#',
'<B><A HREF="}. RT->config->get('WebPath') .qq{/SelfService/Display.html?id=__id__">__subject__</a></B>/TITLE:subject',
Status,
Modified: rt/branches/3.999-DANGEROUS/html/Ticket/Create.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Ticket/Create.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Ticket/Create.html Thu Jan 31 17:06:03 2008
@@ -210,7 +210,7 @@
color => "#663366" &>
<table>
-<tr><td class="label"><&|/l&>starts</&>:</td><td><& /Elements/SelectDate, name => "starts", Default => $ARGS{starts} || '' &></td></tr>
+<tr><td class="label"><&|/l&>Starts</&>:</td><td><& /Elements/SelectDate, name => "starts", Default => $ARGS{starts} || '' &></td></tr>
<tr><td class="label"><&|/l&>Due</&>:</td><td><& /Elements/SelectDate, name => "Due", Default => $ARGS{Due} || '' &></td></tr>
</table>
</&>
Modified: rt/branches/3.999-DANGEROUS/html/Ticket/Elements/Reminders
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Ticket/Elements/Reminders (original)
+++ rt/branches/3.999-DANGEROUS/html/Ticket/Elements/Reminders Thu Jan 31 17:06:03 2008
@@ -86,11 +86,11 @@
my $due_obj = RT::Date->new();
my $date = Time::ParseDate::parsedate(
$request_args->{'NewReminder-Due'},
- UK => RT->config->get('DateDayBeforeMonth'),
+ UK => RT->config->get('date_day_before_month'),
PREFER_PAST => 0,
PREFER_FUTURE => 1
);
- $due_obj->set( value => $date, Format => 'unix' );
+ $due_obj->set( value => $date, format => 'unix' );
my ( $add_id, $msg, $txnid ) = $Ticket->reminders->add(
subject => $request_args->{'NewReminder-subject'},
Modified: rt/branches/3.999-DANGEROUS/html/Ticket/Elements/ShowSummary
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Ticket/Elements/ShowSummary (original)
+++ rt/branches/3.999-DANGEROUS/html/Ticket/Elements/ShowSummary Thu Jan 31 17:06:03 2008
@@ -88,7 +88,7 @@
</tr>
</table>
</&>
- <&| /Widgets/TitleBox, title => _("Dates"),
+ <&| /Widgets/TitleBox, title => _("dates"),
title_href => RT->config->get('WebPath')."/Ticket/ModifyDates.html?id=".$Ticket->id,
class => 'ticket-info-dates' &>
<& /Ticket/Elements/ShowDates, Ticket => $Ticket &>
Modified: rt/branches/3.999-DANGEROUS/html/Ticket/Elements/ShowTransaction
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Ticket/Elements/ShowTransaction (original)
+++ rt/branches/3.999-DANGEROUS/html/Ticket/Elements/ShowTransaction Thu Jan 31 17:06:03 2008
@@ -179,7 +179,7 @@
else {
unless ( $show_headers ) {
- @display_headers = qw(To From RT-Send-Cc Cc Bcc Date subject);
+ @display_headers = qw(To From RT-Send-Cc Cc Bcc date subject);
}
if ( $Attachments->[0] && $ShowTitleBarCommands ) {
Modified: rt/branches/3.999-DANGEROUS/html/Ticket/Elements/ShowTransactionAttachments
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Ticket/Elements/ShowTransactionAttachments (original)
+++ rt/branches/3.999-DANGEROUS/html/Ticket/Elements/ShowTransactionAttachments Thu Jan 31 17:06:03 2008
@@ -49,7 +49,7 @@
# Find all the attachments which have parent $Parent
# For each of these attachments
foreach my $message ( grep $_->__value('Parent') == $Parent, @$Attachments ) {
- $m->comp( 'show_message_headers',
+ $m->comp( 'ShowMessageHeaders',
Message => $message,
display_headers => \@display_headers,
);
@@ -183,7 +183,7 @@
# If the transaction has anything attached to it at all
elsif (!$show_headers) {
- @display_headers = qw(To From RT-Send-Cc Cc Bcc Date subject);
+ @display_headers = qw(To From RT-Send-Cc Cc Bcc date subject);
}
my $size_to_str = sub {
Modified: rt/branches/3.999-DANGEROUS/html/Ticket/Elements/Tabs
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Ticket/Elements/Tabs (original)
+++ rt/branches/3.999-DANGEROUS/html/Ticket/Elements/Tabs Thu Jan 31 17:06:03 2008
@@ -115,7 +115,7 @@
_B => { title => _('Basics'),
path => "Ticket/Modify.html?id=" . $id, },
- _C => { title => _('Dates'),
+ _C => { title => _('dates'),
path => "Ticket/ModifyDates.html?id=" . $id, },
_D =>
{ title => _('People'), path => "Ticket/ModifyPeople.html?id=" . $id, },
@@ -202,7 +202,7 @@
'/Elements/QueryString',
SavedSearchId => $ARGS{'SavedSearchId'} || $session{'CurrentSearchHash'}->{'SearchId'},
Query => $ARGS{'Query'} || $session{'CurrentSearchHash'}->{'Query'},
- Format => $ARGS{'Format'} || $session{'CurrentSearchHash'}->{'Format'},
+ format => $ARGS{'format'} || $session{'CurrentSearchHash'}->{'format'},
order_by => $ARGS{'order_by'} || $session{'CurrentSearchHash'}->{'order_by'},
Order => $ARGS{'Order'} || $session{'CurrentSearchHash'}->{'Order'},
Page => $ARGS{'Page'} || $session{'CurrentSearchHash'}->{'Page'},
Modified: rt/branches/3.999-DANGEROUS/html/Ticket/ModifyAll.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Ticket/ModifyAll.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Ticket/ModifyAll.html Thu Jan 31 17:06:03 2008
@@ -65,7 +65,7 @@
<br />
-<&| /Widgets/TitleBox, title => _('Dates') &>
+<&| /Widgets/TitleBox, title => _('dates') &>
<& Elements/EditDates, ticket_obj => $Ticket &>
</&>
Modified: rt/branches/3.999-DANGEROUS/html/Tools/Reports/CreatedByDates.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Tools/Reports/CreatedByDates.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Tools/Reports/CreatedByDates.html Thu Jan 31 17:06:03 2008
@@ -59,11 +59,11 @@
if ($CreatedAfter) {
- $after->set(Format => 'unknown', value => $CreatedAfter);
+ $after->set(format => 'unknown', value => $CreatedAfter);
$CreatedAfter = $after->as_string;
}
if ($CreatedBefore) {
- $before->set(Format => 'unknown', value => $CreatedBefore);
+ $before->set(format => 'unknown', value => $CreatedBefore);
$CreatedBefore = $before->as_string;
}
Modified: rt/branches/3.999-DANGEROUS/html/Tools/Reports/ResolvedByDates.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/Tools/Reports/ResolvedByDates.html (original)
+++ rt/branches/3.999-DANGEROUS/html/Tools/Reports/ResolvedByDates.html Thu Jan 31 17:06:03 2008
@@ -59,11 +59,11 @@
if ($ResolvedAfter) {
- $after->set(Format => 'unknown', value => $ResolvedAfter);
+ $after->set(format => 'unknown', value => $ResolvedAfter);
$ResolvedAfter = $after->as_string;
}
if ($ResolvedBefore) {
- $before->set(Format => 'unknown', value => $ResolvedBefore);
+ $before->set(format => 'unknown', value => $ResolvedBefore);
$ResolvedBefore = $before->as_string;
}
Modified: rt/branches/3.999-DANGEROUS/html/User/Prefs.html
==============================================================================
--- rt/branches/3.999-DANGEROUS/html/User/Prefs.html (original)
+++ rt/branches/3.999-DANGEROUS/html/User/Prefs.html Thu Jan 31 17:06:03 2008
@@ -79,8 +79,8 @@
<td class="value"><& /Elements/SelectLang, name => 'lang', Default => $user_object->lang &></td>
</tr>
<tr>
- <td class="label"><&|/l&>Timezone</&>:</td>
- <td class="value"><& /Elements/SelectTimezone, name => 'Timezone', Default => $user_object->timezone &></td>
+ <td class="label"><&|/l&>timezone</&>:</td>
+ <td class="value"><& /Elements/SelectTimezone, name => 'timezone', Default => $user_object->timezone &></td>
</tr>
</table>
</&>
@@ -214,7 +214,7 @@
organization real_name nickname lang email_encoding web_encoding
ExternalContactInfoId ContactInfoSystem gecos ExternalAuthId
auth_system HomePhone WorkPhone MobilePhone PagerPhone Address1
- Address2 City State Zip Country lang Timezone
+ Address2 City State Zip Country lang timezone
);
$m->callback(
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Condition/BeforeDue.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Condition/BeforeDue.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Condition/BeforeDue.pm Thu Jan 31 17:06:03 2008
@@ -57,7 +57,7 @@
sub is_applicable {
my $self = shift;
- # Parse date string. Format is "1d2h3m4s" for 1 day and 2 hours
+ # Parse date string. format is "1d2h3m4s" for 1 day and 2 hours
# and 3 minutes and 4 seconds.
my %e;
foreach (qw(d h m s)) {
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Config.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Config.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Config.pm Thu Jan 31 17:06:03 2008
@@ -151,15 +151,15 @@
description => 'Show oldest transactions first', #loc
},
},
- DateTimeFormat => {
+ date_time_format => {
Section => 'Date and time', #loc
Overridable => 1,
Widget => '/Widgets/Form/Select',
WidgetArguments => {
description => 'Date and time output format', #loc
- Values => [qw(DefaultFormat RFC2822 ISO W3CDTF)],
+ Values => [qw(default_format RFC2822 ISO W3CDTF)],
values_label => {
- DefaultFormat => 'Default (Tue Dec 25 21:59:12 1995)', #loc
+ default_format => 'Default (Tue Dec 25 21:59:12 1995)', #loc
RFC2822 => 'RFC (Tue, 25 Dec 1995 21:59:12 -0300)', #loc
ISO => 'ISO (1995-11-25 21:59:12)', #loc
W3CDTF => 'W3C (1995-11-25T21:59:12Z)', #loc
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Crypt/GnuPG.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Crypt/GnuPG.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Crypt/GnuPG.pm Thu Jan 31 17:06:03 2008
@@ -89,14 +89,14 @@
However, note that you B<must> add the 'Auth::GnuPG' email filter to enable
the handling of incoming encrypted/signed messages.
-=head3 Format of outgoing messages
+=head3 format of outgoing messages
-Format of outgoing messages can be controlled using the 'OutgoingMessagesFormat'
+Format of outgoing messages can be controlled using the 'outgoing_messages_format'
option in the RT config:
set( %GnuPG,
... other options ...
- OutgoingMessagesFormat => 'RFC',
+ outgoing_messages_format => 'RFC',
... other options ...
);
@@ -104,7 +104,7 @@
set( %GnuPG,
... other options ...
- OutgoingMessagesFormat => 'Inline',
+ outgoing_messages_format => 'Inline',
... other options ...
);
@@ -434,7 +434,7 @@
];
}
- my $format = lc RT->config->get('GnuPG')->{'OutgoingMessagesFormat'}
+ my $format = lc RT->config->get('GnuPG')->{'outgoing_messages_format'}
|| 'RFC';
if ( $format eq 'inline' ) {
return sign_encrypt_inline(%args);
@@ -952,7 +952,7 @@
Jifty->log->debug("Found $type inline part");
return {
type => $type,
- Format => 'Inline',
+ format => 'Inline',
Data => $entity,
};
}
@@ -987,7 +987,7 @@
Jifty->log->debug("Found encrypted according to RFC3156 part");
return {
type => 'encrypted',
- Format => 'RFC3156',
+ format => 'RFC3156',
Top => $entity,
Data => $entity->parts(1),
Info => $entity->parts(0),
@@ -1002,7 +1002,7 @@
Jifty->log->debug("Found signed according to RFC3156 part");
return {
type => 'signed',
- Format => 'RFC3156',
+ format => 'RFC3156',
Top => $entity,
Data => $entity->parts(0),
Signature => $entity->parts(1),
@@ -1042,7 +1042,7 @@
push @res,
{
type => 'signed',
- Format => 'Attachment',
+ format => 'Attachment',
Top => $entity,
Data => $data_part_in,
Signature => $sig_part,
@@ -1064,7 +1064,7 @@
push @res,
{
type => 'encrypted',
- Format => 'Attachment',
+ format => 'Attachment',
Top => $entity,
Data => $part,
};
@@ -1087,15 +1087,15 @@
# XXX: detaching may brake nested signatures
foreach my $item ( grep $_->{'type'} eq 'signed', @protected ) {
- if ( $item->{'Format'} eq 'RFC3156' ) {
+ if ( $item->{'format'} eq 'RFC3156' ) {
push @res, { verify_rfc3156(%$item) };
if ( $args{'Detach'} ) {
$item->{'Top'}->parts( [ $item->{'Data'} ] );
$item->{'Top'}->make_singlepart;
}
- } elsif ( $item->{'Format'} eq 'Inline' ) {
+ } elsif ( $item->{'format'} eq 'Inline' ) {
push @res, { verify_inline(%$item) };
- } elsif ( $item->{'Format'} eq 'Attachment' ) {
+ } elsif ( $item->{'format'} eq 'Attachment' ) {
push @res, { verify_attachment(%$item) };
if ( $args{'Detach'} ) {
$item->{'Top'}->parts(
@@ -1108,11 +1108,11 @@
}
}
foreach my $item ( grep $_->{'type'} eq 'encrypted', @protected ) {
- if ( $item->{'Format'} eq 'RFC3156' ) {
+ if ( $item->{'format'} eq 'RFC3156' ) {
push @res, { decrypt_rfc3156(%$item) };
- } elsif ( $item->{'Format'} eq 'Inline' ) {
+ } elsif ( $item->{'format'} eq 'Inline' ) {
push @res, { decrypt_inline(%$item) };
- } elsif ( $item->{'Format'} eq 'Attachment' ) {
+ } elsif ( $item->{'format'} eq 'Attachment' ) {
push @res, { decrypt_attachment(%$item) };
# if ( $args{'Detach'} ) {
@@ -2259,7 +2259,7 @@
if ( $value =~ /^\d+$/ ) {
$obj->set( value => $value );
} else {
- $obj->set( Format => 'unknown', value => $value, Timezone => 'utc' );
+ $obj->set( format => 'unknown', value => $value, timezone => 'utc' );
}
return $obj;
}
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Date.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Date.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Date.pm Thu Jan 31 17:06:03 2008
@@ -56,7 +56,7 @@
=head1 description
-RT Date is a simple Date object designed to be speedy and easy for RT to use
+RT date is a simple date object designed to be speedy and easy for RT to use
The fact that it assumes that a time of 0 means "never" is probably a bug.
@@ -125,13 +125,13 @@
=head2 Set
-Takes a param hash with the fields C<Format>, C<value> and C<Timezone>.
+Takes a param hash with the fields C<Format>, C<value> and C<timezone>.
-If $args->{'Format'} is 'unix', takes the number of seconds since the epoch.
+If $args->{'format'} is 'unix', takes the number of seconds since the epoch.
-If $args->{'Format'} is iso, tries to parse an iso date.
+If $args->{'format'} is iso, tries to parse an iso date.
-If $args->{'Format'} is 'unknown', require Time::ParseDate and make it figure
+If $args->{'format'} is 'unknown', require Time::ParseDate and make it figure
things out. This is a heavyweight operation that should never be called from
within RT's core. But it's really useful for something like the textbox date
entry where we let the user do whatever they want.
@@ -143,17 +143,17 @@
sub set {
my $self = shift;
my %args = (
- Format => 'unix',
+ format => 'unix',
value => time,
- Timezone => 'user',
+ timezone => 'user',
@_
);
return $self->unix(0) unless $args{'value'};
- if ( $args{'Format'} =~ /^unix$/i ) {
+ if ( $args{'format'} =~ /^unix$/i ) {
return $self->unix( $args{'value'} );
- } elsif ( $args{'Format'} =~ /^(sql|datemanip|iso)$/i ) {
+ } elsif ( $args{'format'} =~ /^(sql|datemanip|iso)$/i ) {
$args{'value'} =~ s!/!-!g;
if (( $args{'value'} =~ /^(\d{4})?(\d\d)(\d\d)(\d\d)(\d\d)(\d\d)$/ )
@@ -178,7 +178,7 @@
#now that we've parsed it, deal with the case where everything was 0
return $self->unix(0) if $mon < 0 || $mon > 11;
- my $tz = lc $args{'Format'} eq 'datemanip' ? 'user' : 'utc';
+ my $tz = lc $args{'format'} eq 'datemanip' ? 'user' : 'utc';
$self->unix(
$self->time_local(
$tz, $sec, $min, $hours, $mday, $mon, $year
@@ -188,11 +188,11 @@
$self->unix(0) unless $self->unix > 0;
} else {
Jifty->log->warn(
- "Couldn't parse date '$args{'value'}' as a $args{'Format'} format"
+ "Couldn't parse date '$args{'value'}' as a $args{'format'} format"
);
return $self->unix(undef);
}
- } elsif ( $args{'Format'} =~ /^unknown$/i ) {
+ } elsif ( $args{'format'} =~ /^unknown$/i ) {
require Time::ParseDate;
# the module supports only legacy timezones like PDT or EST...
@@ -200,21 +200,21 @@
my $date = Time::ParseDate::parsedate(
$args{'value'},
GMT => 1,
- UK => RT->config->get('DateDayBeforeMonth'),
+ UK => RT->config->get('date_day_before_month'),
PREFER_PAST => RT->config->get('AmbiguousDayInPast'),
PREFER_FUTURE => !RT->config->get('AmbiguousDayInPast')
);
# apply timezone offset
- $date -= ( $self->localtime( $args{Timezone}, $date ) )[9];
+ $date -= ( $self->localtime( $args{timezone}, $date ) )[9];
Jifty->log->debug(
"RT::Date used Time::ParseDate to make '$args{'value'}' $date\n"
);
- return $self->set( Format => 'unix', value => $date );
+ return $self->set( format => 'unix', value => $date );
} else {
- Jifty->log->debug("Unknown date format: $args{'Format'}\n");
+ Jifty->log->debug("Unknown date format: $args{'format'}\n");
return $self->unix(undef);
}
@@ -232,7 +232,7 @@
return $_[0]->unix(time);
}
-=head2 SetToMidnight [Timezone => 'utc']
+=head2 SetToMidnight [timezone => 'utc']
Sets the date to midnight (at the beginning of the day).
Returns the unixtime at midnight.
@@ -241,9 +241,9 @@
=over 4
-=item Timezone
+=item timezone
-Timezone context C<user>, C<server> or C<UTC>. See also L</Timezone>.
+timezone context C<user>, C<server> or C<UTC>. See also L</timezone>.
=back
@@ -251,9 +251,9 @@
sub set_to_midnight {
my $self = shift;
- my %args = ( Timezone => '', @_ );
- my $new = $self->time_local( $args{'Timezone'}, 0, 0, 0,
- ( $self->localtime( $args{'Timezone'} ) )[ 3 .. 9 ] );
+ my %args = ( timezone => '', @_ );
+ my $new = $self->time_local( $args{'timezone'}, 0, 0, 0,
+ ( $self->localtime( $args{'timezone'} ) )[ 3 .. 9 ] );
return $self->unix($new);
}
@@ -362,8 +362,8 @@
format and timezone.
If the current user didn't choose prefered format then system wide setting is
-used or L</DefaultFormat> if the latter is not specified. See config option
-C<DateTimeFormat>.
+used or L</default_format> if the latter is not specified. See config option
+C<date_time_format>.
=cut
@@ -373,12 +373,12 @@
return _("Not set") unless $self->unix > 0;
- my $format = RT->config->get( 'DateTimeFormat', $self->current_user )
- || 'DefaultFormat';
- $format = { Format => $format } unless ref $format;
+ my $format = RT->config->get( 'date_time_format', $self->current_user )
+ || 'default_format';
+ $format = { format => $format } unless ref $format;
%args = ( %$format, %args );
- return $self->get( Timezone => 'user', %args );
+ return $self->get( timezone => 'user', %args );
}
=head2 GetWeekday DAY
@@ -412,7 +412,7 @@
return '';
}
-=head2 AddSeconds SECONDS
+=head2 Addseconds SECONDS
Takes a number of seconds and returns the new unix time.
@@ -424,7 +424,7 @@
my $self = shift;
my $delta = shift or return $self->unix;
- $self->set( Format => 'unix', value => ( $self->unix + $delta ) );
+ $self->set( format => 'unix', value => ( $self->unix + $delta ) );
return ( $self->unix );
}
@@ -476,12 +476,12 @@
sub date_time {
my $self = shift;
- return $self->get( @_, Date => 1, Time => 1 );
+ return $self->get( @_, date => 1, time => 1 );
}
=head2 Date
-Takes Format argument which allows you choose date formatter.
+Takes format argument which allows you choose date formatter.
Pass throught other arguments to the formatter method.
Returns the object's formatted date. Default formatter is iso.
@@ -490,7 +490,7 @@
sub date {
my $self = shift;
- return $self->get( @_, Date => 1, Time => 0 );
+ return $self->get( @_, date => 1, time => 0 );
}
=head2 Time
@@ -500,7 +500,7 @@
sub time {
my $self = shift;
- return $self->get( @_, Date => 0, Time => 1 );
+ return $self->get( @_, date => 0, time => 1 );
}
=head2 get
@@ -513,8 +513,9 @@
sub get {
my $self = shift;
- my %args = ( Format => 'iso', @_ );
- my $formatter = $args{'Format'};
+ my %args = ( format => 'iso', @_ );
+ my $formatter = $args{'format'};
+ $formatter = lc($formatter);
$formatter = 'iso' unless $self->can($formatter);
return $self->$formatter(%args);
}
@@ -532,7 +533,7 @@
=item Time
-=item Timezone - Timezone context C<server>, C<user> or C<UTC>
+=item timezone - timezone context C<server>, C<user> or C<UTC>
=back
@@ -540,31 +541,31 @@
in RFC2822 format day of time in output is optional so it
understand boolean argument C<DayOfTime>.
-=head3 DefaultFormat
+=head3 default_format
=cut
-sub DefaultFormat {
+sub default_format {
my $self = shift;
my %args = (
- Date => 1,
- Time => 1,
- Timezone => '',
+ date => 1,
+ time => 1,
+ timezone => '',
@_,
);
# 0 1 2 3 4 5 6 7 8 9
my ($sec, $min, $hour, $mday, $mon,
$year, $wday, $ydaym, $isdst, $offset
- ) = $self->localtime( $args{'Timezone'} );
+ ) = $self->localtime( $args{'timezone'} );
$wday = $self->get_weekday($wday);
$mon = $self->get_month($mon);
( $mday, $hour, $min, $sec )
= map { sprintf "%02d", $_ } ( $mday, $hour, $min, $sec );
- if ( $args{'Date'} && !$args{'Time'} ) {
+ if ( $args{'date'} && !$args{'time'} ) {
return _( '%1 %2 %3 %4', $wday, $mon, $mday, $year );
- } elsif ( !$args{'Date'} && $args{'Time'} ) {
+ } elsif ( !$args{'date'} && $args{'time'} ) {
return _( '%1:%2:%3', $hour, $min, $sec );
} else {
return _( '%1 %2 %3 %4:%5:%6 %7',
@@ -578,7 +579,7 @@
iso format is locale independant, but adding timezone offset info
is not implemented yet.
-Supports arguments: C<Timezone>, C<Date>, C<Time> and C<Seconds>.
+Supports arguments: C<timezone>, C<Date>, C<Time> and C<seconds>.
See </Output formatters> for description of arguments.
=cut
@@ -586,26 +587,26 @@
sub iso {
my $self = shift;
my %args = (
- Date => 1,
- Time => 1,
- Timezone => '',
- Seconds => 1,
+ date => 1,
+ time => 1,
+ timezone => '',
+ seconds => 1,
@_,
);
# 0 1 2 3 4 5 6 7 8 9
my ($sec, $min, $hour, $mday, $mon,
$year, $wday, $ydaym, $isdst, $offset
- ) = $self->localtime( $args{'Timezone'} );
+ ) = $self->localtime( $args{'timezone'} );
#the month needs incrementing, as gmtime returns 0-11
$mon++;
my $res = '';
- $res .= sprintf( "%04d-%02d-%02d", $year, $mon, $mday ) if $args{'Date'};
- $res .= sprintf( ' %02d:%02d', $hour, $min ) if $args{'Time'};
+ $res .= sprintf( "%04d-%02d-%02d", $year, $mon, $mday ) if $args{'date'};
+ $res .= sprintf( ' %02d:%02d', $hour, $min ) if $args{'time'};
$res .= sprintf( ':%02d', $sec, $min )
- if $args{'Time'} && $args{'Seconds'};
+ if $args{'time'} && $args{'seconds'};
$res =~ s/^\s+//;
return $res;
@@ -620,7 +621,7 @@
note that date part is B<not optional> and output string
has timezone offset mark in C<[+-]hh:mm> format.
-Supports arguments: C<Timezone>, C<Time> and C<Seconds>.
+Supports arguments: C<timezone>, C<Time> and C<seconds>.
See </Output formatters> for description of arguments.
=cut
@@ -628,26 +629,26 @@
sub w3cdtf {
my $self = shift;
my %args = (
- Time => 1,
- Timezone => '',
- Seconds => 1,
+ time => 1,
+ timezone => '',
+ seconds => 1,
@_,
- Date => 1,
+ date => 1,
);
# 0 1 2 3 4 5 6 7 8 9
my ($sec, $min, $hour, $mday, $mon,
$year, $wday, $ydaym, $isdst, $offset
- ) = $self->localtime( $args{'Timezone'} );
+ ) = $self->localtime( $args{'timezone'} );
#the month needs incrementing, as gmtime returns 0-11
$mon++;
my $res = '';
$res .= sprintf( "%04d-%02d-%02d", $year, $mon, $mday );
- if ( $args{'Time'} ) {
+ if ( $args{'time'} ) {
$res .= sprintf( 'T%02d:%02d', $hour, $min );
- $res .= sprintf( ':%02d', $sec, $min ) if $args{'Seconds'};
+ $res .= sprintf( ':%02d', $sec, $min ) if $args{'seconds'};
if ($offset) {
$res .= sprintf "%s%02d:%02d", $self->_split_offset($offset);
} else {
@@ -665,35 +666,35 @@
Format is locale independand as required by RFC. Time
part always has timezone offset in digits with sign prefix.
-Supports arguments: C<Timezone>, C<Date>, C<Time>, C<DayOfWeek>
-and C<Seconds>. See </Output formatters> for description of
+Supports arguments: C<timezone>, C<Date>, C<Time>, C<day_of_week>
+and C<seconds>. See </Output formatters> for description of
arguments.
=cut
-sub rfc_2822 {
+sub rfc2822 {
my $self = shift;
my %args = (
- Date => 1,
- Time => 1,
- Timezone => '',
- DayOfWeek => 1,
- Seconds => 1,
+ date => 1,
+ time => 1,
+ timezone => '',
+ day_of_week => 1,
+ seconds => 1,
@_,
);
# 0 1 2 3 4 5 6 7 8 9
my ($sec, $min, $hour, $mday, $mon,
$year, $wday, $ydaym, $isdst, $offset
- ) = $self->localtime( $args{'Timezone'} );
+ ) = $self->localtime( $args{'timezone'} );
my ( $date, $time ) = ( '', '' );
- $date .= "$DAYS_OF_WEEK[$wday], " if $args{'DayOfWeek'} && $args{'Date'};
- $date .= "$mday $MONTHS[$mon] $year" if $args{'Date'};
+ $date .= "$DAYS_OF_WEEK[$wday], " if $args{'day_of_week'} && $args{'date'};
+ $date .= "$mday $MONTHS[$mon] $year" if $args{'date'};
- if ( $args{'Time'} ) {
+ if ( $args{'time'} ) {
$time .= sprintf( "%02d:%02d", $hour, $min );
- $time .= sprintf( ":%02d", $sec ) if $args{'Seconds'};
+ $time .= sprintf( ":%02d", $sec ) if $args{'seconds'};
$time .= sprintf " %s%02d%02d", $self->_split_offset($offset);
}
@@ -726,19 +727,19 @@
=cut
-sub rfc_2616 {
+sub rfc2616 {
my $self = shift;
my %args = (
- Date => 1,
- Time => 1,
+ date => 1,
+ time => 1,
@_,
- Timezone => 'utc',
- Seconds => 1,
- DayOfWeek => 1,
+ timezone => 'utc',
+ seconds => 1,
+ day_of_week => 1,
);
- my $res = $self->rfc_2822(@_);
- $res =~ s/\s*[+-]\d\d\d\d$/ GMT/ if $args{'Time'};
+ my $res = $self->rfc2822(@_);
+ $res =~ s/\s*[+-]\d\d\d\d$/ GMT/ if $args{'time'};
return $res;
}
@@ -751,7 +752,7 @@
return $sign, $hours, $mins;
}
-=head2 Timezones handling
+=head2 timezones handling
=head3 Localtime $context [$time]
@@ -836,7 +837,7 @@
}
}
-=head3 Timezone $context
+=head3 timezone $context
Returns the timezone name.
@@ -846,11 +847,11 @@
=item user
-Default value is C<user> that mean it returns current user's Timezone value.
+Default value is C<user> that mean it returns current user's timezone value.
=item server
-If context is C<server> it returns value of the C<Timezone> RT config option.
+If context is C<server> it returns value of the C<timezone> RT config option.
=item utc
@@ -870,11 +871,11 @@
if ( $context eq 'user' ) {
$tz = $self->current_user->user_object->timezone;
} elsif ( $context eq 'server' ) {
- $tz = RT->config->get('Timezone');
+ $tz = RT->config->get('timezone');
} else {
$tz = 'UTC';
}
- $tz ||= RT->config->get('Timezone') || 'UTC';
+ $tz ||= RT->config->get('timezone') || 'UTC';
$tz = 'UTC' if lc $tz eq 'gmt';
return $tz;
}
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Interface/Email.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Interface/Email.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Interface/Email.pm Thu Jan 31 17:06:03 2008
@@ -297,7 +297,7 @@
Sends an email (passed as a L<MIME::Entity> object C<ENTITY>) using
RT's outgoing mail configuration. If C<BOUNCE> is passed, and is a
true value, the message will be marked as an autogenerated error, if
-possible. Sets Date field of the head to now if it's not set.
+possible. Sets date field of the head to now if it's not set.
Ticket and Transaction arguments are optional. If Transaction is
specified and Ticket is not then ticket of the transaction is
@@ -389,12 +389,12 @@
return $res unless $res > 0;
}
- unless ( $args{'Entity'}->head->get('Date') ) {
+ unless ( $args{'Entity'}->head->get('date') ) {
require RT::Date;
my $date = RT::Date->new( current_user => RT->system_user );
$date->set_to_now;
$args{'Entity'}
- ->head->set( 'Date', $date->rfc_2822( Timezone => 'server' ) );
+ ->head->set( 'date', $date->rfc2822( timezone => 'server' ) );
}
my $mail_command = RT->config->get('MailCommand');
@@ -1359,7 +1359,7 @@
# If the plugins refused to create one, they lose.
unless ( $AuthStat == -1 ) {
- _NoAuthorizedUserFound(
+ _no_authorized_user_found(
right => $right,
Message => $Message,
Requestor => $ErrorsTo,
@@ -1527,7 +1527,7 @@
return ( 1, "Success" );
}
-=head2 _NoAuthorizedUserFound
+=head2 _no_authorized_user_found
Emails the RT Owner and the requestor when the auth plugins return "No auth user found"
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Interface/Web.pm Thu Jan 31 17:06:03 2008
@@ -202,13 +202,13 @@
# Expire things in a month.
$date->set( value => time + 30 * 24 * 60 * 60 );
- $HTML::Mason::Commands::r->headers_out->{'Expires'} = $date->rfc_2616;
+ $HTML::Mason::Commands::r->headers_out->{'Expires'} = $date->rfc2616;
# if we set 'Last-Modified' then browser request a comp using 'If-Modified-Since'
# request, but we don't handle it and generate full reply again
# Last modified at server start time
# $date->set( value => $^T );
-# $HTML::Mason::Commands::r->headers_out->{'Last-Modified'} = $date->rfc_2616;
+# $HTML::Mason::Commands::r->headers_out->{'Last-Modified'} = $date->rfc2616;
}
package HTML::Mason::Commands;
@@ -276,9 +276,9 @@
}
my $due = RT::Date->new();
- $due->set( Format => 'unknown', value => $ARGS{'Due'} );
+ $due->set( format => 'unknown', value => $ARGS{'Due'} );
my $starts = RT::Date->new();
- $starts->set( Format => 'unknown', value => $ARGS{'starts'} );
+ $starts->set( format => 'unknown', value => $ARGS{'starts'} );
my $mime_obj = make_mime_entity(
subject => $ARGS{'subject'},
@@ -712,7 +712,7 @@
my $date_obj = RT::Date->new();
$date_obj->set(
- Format => 'unknown',
+ format => 'unknown',
Value => $date
);
return ( $date_obj->iso );
@@ -1276,7 +1276,7 @@
my $DateObj = RT::Date->new();
$DateObj->set(
- Format => 'unknown',
+ format => 'unknown',
Value => $ARGSRef->{ $field . '_Date' }
);
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/Attachment.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/Attachment.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/Attachment.pm Thu Jan 31 17:06:03 2008
@@ -445,7 +445,7 @@
=head2 nice_headers
-Returns a multi-line string of the To, From, Cc, Date and subject headers.
+Returns a multi-line string of the To, From, Cc, date and subject headers.
=cut
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/CachedGroupMember.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/CachedGroupMember.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/CachedGroupMember.pm Thu Jan 31 17:06:03 2008
@@ -42,7 +42,7 @@
'Member' is the RT::Model::Principal of the user or group we're adding to
the cache.
- 'ImmediateParent' is the RT::Model::Principal of the group that this
+ 'immediate_parent' is the RT::Model::Principal of the group that this
principal belongs to to get here
int(11) 'via' is an internal reference to CachedGroupMembers->id of
@@ -61,7 +61,7 @@
my %args = (
Group => '',
Member => '',
- ImmediateParent => '',
+ immediate_parent => '',
via => '0',
disabled => '0',
@_
@@ -81,22 +81,22 @@
Jifty->log->debug("$self->create: bogus Group argument");
}
- unless ( $args{'ImmediateParent'}
- && UNIVERSAL::isa( $args{'ImmediateParent'}, 'RT::Model::Principal' )
- && $args{'ImmediateParent'}->id )
+ unless ( $args{'immediate_parent'}
+ && UNIVERSAL::isa( $args{'immediate_parent'}, 'RT::Model::Principal' )
+ && $args{'immediate_parent'}->id )
{
- Jifty->log->debug("$self->create: bogus ImmediateParent argument");
+ Jifty->log->debug("$self->create: bogus immediate_parent argument");
}
# If the parent group for this group member is disabled, it's disabled too, along with all its children
- if ( $args{'ImmediateParent'}->disabled ) {
- $args{'disabled'} = $args{'ImmediateParent'}->disabled;
+ if ( $args{'immediate_parent'}->disabled ) {
+ $args{'disabled'} = $args{'immediate_parent'}->disabled;
}
my $id = $self->SUPER::create(
group_id => $args{'Group'}->id,
member_id => $args{'Member'}->id,
- immediate_parent_id => $args{'ImmediateParent'}->id,
+ immediate_parent_id => $args{'immediate_parent'}->id,
disabled => $args{'disabled'},
via => $args{'via'},
);
@@ -130,7 +130,7 @@
my $c_id = $cached_member->create(
Group => $args{'Group'},
Member => $member->member_obj,
- ImmediateParent => $args{'Member'},
+ immediate_parent => $args{'Member'},
disabled => $args{'disabled'},
via => $id
);
@@ -342,11 +342,11 @@
# }}}
-# {{{ ImmediateParentObj
+# {{{ immediate_parentObj
-=head2 ImmediateParentObj
+=head2 immediate_parentObj
-Returns the RT::Model::Principal object for this group ImmediateParent
+Returns the RT::Model::Principal object for this group immediate_parent
=cut
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/Group.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/Group.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/Group.pm Thu Jan 31 17:06:03 2008
@@ -414,7 +414,7 @@
$cgm->create(
Group => $self->principal_object,
Member => $self->principal_object,
- ImmediateParent => $self->principal_object
+ immediate_parent => $self->principal_object
);
if ( $args{'_record_transaction'} ) {
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/GroupMember.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/GroupMember.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/GroupMember.pm Thu Jan 31 17:06:03 2008
@@ -121,7 +121,7 @@
my $cached_id = $cached_member->create(
Member => $args{'Member'},
Group => $args{'Group'},
- ImmediateParent => $args{'Group'},
+ immediate_parent => $args{'Group'},
Via => '0'
);
@@ -143,7 +143,7 @@
my $other_cached_id = $other_cached_member->create(
Member => $args{'Member'},
Group => $parent_member->group_obj,
- ImmediateParent => $parent_member->member_obj,
+ immediate_parent => $parent_member->member_obj,
Via => $parent_member->id
);
unless ($other_cached_id) {
@@ -213,7 +213,7 @@
my $cached_id = $cached_member->create(
Member => $args{'Member'},
Group => $args{'Group'},
- ImmediateParent => $args{'Group'},
+ immediate_parent => $args{'Group'},
Via => '0'
);
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/Ticket.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/Ticket.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/Ticket.pm Thu Jan 31 17:06:03 2008
@@ -420,7 +420,7 @@
#Set the due date. if we didn't get fed one, use the queue default due in
my $due = RT::Date->new();
if ( defined $args{'due'} ) {
- $due->set( Format => 'ISO', value => $args{'due'} );
+ $due->set( format => 'ISO', value => $args{'due'} );
} elsif ( my $due_in = $queue_obj->default_due_in ) {
$due->set_to_now;
$due->add_days($due_in);
@@ -428,19 +428,19 @@
my $starts = RT::Date->new();
if ( defined $args{'starts'} ) {
- $starts->set( Format => 'ISO', value => $args{'starts'} );
+ $starts->set( format => 'ISO', value => $args{'starts'} );
}
my $started = RT::Date->new();
if ( defined $args{'started'} ) {
- $started->set( Format => 'ISO', value => $args{'started'} );
+ $started->set( format => 'ISO', value => $args{'started'} );
} elsif ( $args{'status'} ne 'new' ) {
$started->set_to_now;
}
my $Resolved = RT::Date->new();
if ( defined $args{'resolved'} ) {
- $Resolved->set( Format => 'ISO', value => $args{'resolved'} );
+ $Resolved->set( format => 'ISO', value => $args{'resolved'} );
}
#If the status is an inactive status, set the resolved date
@@ -838,9 +838,9 @@
foreach my $date qw(due starts started resolved) {
my $dateobj = RT::Date->new( current_user => RT->system_user );
if ( defined( $args{$date} ) and $args{$date} =~ /^\d+$/ ) {
- $dateobj->set( Format => 'unix', value => $args{$date} );
+ $dateobj->set( format => 'unix', value => $args{$date} );
} else {
- $dateobj->set( Format => 'unknown', value => $args{$date} );
+ $dateobj->set( format => 'unknown', value => $args{$date} );
}
$args{$date} = $dateobj->iso;
}
@@ -1889,7 +1889,7 @@
# }}}
-# {{{ Date printing routines
+# {{{ date printing routines
# {{{ sub due_obj
@@ -1906,9 +1906,9 @@
# -1 is RT::Date slang for never
if ( my $due = $self->due ) {
- $time->set( Format => 'sql', value => $due );
+ $time->set( format => 'sql', value => $due );
} else {
- $time->set( Format => 'unix', value => -1 );
+ $time->set( format => 'unix', value => -1 );
}
return $time;
@@ -1943,7 +1943,7 @@
my $self = shift;
my $time = RT::Date->new();
- $time->set( Format => 'sql', value => $self->resolved );
+ $time->set( format => 'sql', value => $self->resolved );
return $time;
}
@@ -1971,7 +1971,7 @@
#We create a date object to catch date weirdness
my $time_obj = RT::Date->new( $self->current_user() );
if ($time) {
- $time_obj->set( Format => 'ISO', value => $time );
+ $time_obj->set( format => 'ISO', value => $time );
} else {
$time_obj->set_to_now();
}
@@ -2007,7 +2007,7 @@
my $self = shift;
my $time = RT::Date->new();
- $time->set( Format => 'sql', value => $self->started );
+ $time->set( format => 'sql', value => $self->started );
return $time;
}
@@ -2026,7 +2026,7 @@
my $self = shift;
my $time = RT::Date->new();
- $time->set( Format => 'sql', value => $self->starts );
+ $time->set( format => 'sql', value => $self->starts );
return $time;
}
@@ -2045,7 +2045,7 @@
my $self = shift;
my $time = RT::Date->new();
- $time->set( Format => 'sql', value => $self->told );
+ $time->set( format => 'sql', value => $self->told );
return $time;
}
@@ -3249,7 +3249,7 @@
my $datetold = RT::Date->new();
if ($told) {
$datetold->set(
- Format => 'iso',
+ format => 'iso',
value => $told
);
} else {
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/TicketCollection.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/TicketCollection.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/TicketCollection.pm Thu Jan 31 17:06:03 2008
@@ -502,7 +502,7 @@
sub _date_limit {
my ( $sb, $field, $op, $value, @rest ) = @_;
- die "Invalid Date Op: $op"
+ die "Invalid date Op: $op"
unless $op =~ /^(=|>|<|>=|<=)$/;
my $meta = $FIELD_METADATA{$field};
@@ -510,7 +510,7 @@
unless ( defined $meta->[1] );
my $date = RT::Date->new();
- $date->set( Format => 'unknown', value => $value );
+ $date->set( format => 'unknown', value => $value );
if ( $op eq "=" ) {
@@ -518,7 +518,7 @@
# particular single day. in the database, we need to check for >
# and < the edges of that day.
- $date->set_to_midnight( Timezone => 'server' );
+ $date->set_to_midnight( timezone => 'server' );
my $daystart = $date->iso;
$date->add_day;
my $dayend = $date->iso;
@@ -610,7 +610,7 @@
}
my $date = RT::Date->new();
- $date->set( Format => 'unknown', value => $value );
+ $date->set( format => 'unknown', value => $value );
$sb->open_paren;
if ( $op eq "=" ) {
@@ -619,7 +619,7 @@
# particular single day. in the database, we need to check for >
# and < the edges of that day.
- $date->set_to_midnight( Timezone => 'server' );
+ $date->set_to_midnight( timezone => 'server' );
my $daystart = $date->iso;
$date->add_day;
my $dayend = $date->iso;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Model/Transaction.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Model/Transaction.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Model/Transaction.pm Thu Jan 31 17:06:03 2008
@@ -947,9 +947,9 @@
# Write the date/time change at local time:
elsif ( $self->field =~ /Due|starts|Started|Told/i ) {
my $t1 = RT::Date->new();
- $t1->set( Format => 'ISO', value => $self->new_value );
+ $t1->set( format => 'ISO', value => $self->new_value );
my $t2 = RT::Date->new();
- $t2->set( Format => 'ISO', value => $self->old_value );
+ $t2->set( format => 'ISO', value => $self->old_value );
return _(
"%1 changed from %2 to %3", $self->field,
$t2->as_string, $t1->as_string
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Record.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Record.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Record.pm Thu Jan 31 17:06:03 2008
@@ -274,7 +274,7 @@
if $self->can('Creator') && $self->current_user;
my $now = RT::Date->new( current_user => $self->current_user );
- $now->set( Format => 'unix', value => time );
+ $now->set( format => 'unix', value => time );
my ($id) = $self->SUPER::create(%attribs);
if ( UNIVERSAL::isa( $id, 'Class::ReturnValue' ) ) {
@@ -370,7 +370,7 @@
my $self = shift;
my $obj = RT::Date->new();
- $obj->set( Format => 'sql', value => $self->last_updated );
+ $obj->set( format => 'sql', value => $self->last_updated );
return $obj;
}
@@ -382,7 +382,7 @@
my $self = shift;
my $obj = RT::Date->new();
- $obj->set( Format => 'sql', value => $self->created );
+ $obj->set( format => 'sql', value => $self->created );
return $obj;
}
Modified: rt/branches/3.999-DANGEROUS/lib/RT/SavedSearch.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/SavedSearch.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/SavedSearch.pm Thu Jan 31 17:06:03 2008
@@ -244,7 +244,7 @@
=head2 GetParameter
-Returns the given named parameter of the search, e.g. 'Query', 'Format'.
+Returns the given named parameter of the search, e.g. 'Query', 'format'.
=cut
Modified: rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/Autoreply.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/Autoreply.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/Autoreply.pm Thu Jan 31 17:06:03 2008
@@ -114,7 +114,7 @@
$self->set_header(
'From',
sprintf(
- RT->config->get('FriendlyFromLineFormat'),
+ RT->config->get('friendly_from_line_format'),
$self->mime_encode_string(
$friendly_name, RT->config->get('EmailOutputEncoding')
),
Modified: rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/CreateTickets.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/CreateTickets.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/CreateTickets.pm Thu Jan 31 17:06:03 2008
@@ -737,11 +737,11 @@
my $dateobj = RT::Date->new;
next unless $args{$date};
if ( $args{$date} =~ /^\d+$/ ) {
- $dateobj->set( Format => 'unix', value => $args{$date} );
+ $dateobj->set( format => 'unix', value => $args{$date} );
} else {
- eval { $dateobj->set( Format => 'iso', value => $args{$date} ); };
+ eval { $dateobj->set( format => 'iso', value => $args{$date} ); };
if ( $@ or $dateobj->unix <= 0 ) {
- $dateobj->set( Format => 'unknown', value => $args{$date} );
+ $dateobj->set( format => 'unknown', value => $args{$date} );
}
}
$args{$date} = $dateobj->iso;
Modified: rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/Notify.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/Notify.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/Notify.pm Thu Jan 31 17:06:03 2008
@@ -130,7 +130,7 @@
if ( RT->config->get('UseFriendlyToLine') ) {
unless (@To) {
- push @PseudoTo, sprintf RT->config->get('FriendlyToLineFormat'),
+ push @PseudoTo, sprintf RT->config->get('friendly_to_line_format'),
$arg, $ticket->id;
}
}
Modified: rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/SendEmail.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/SendEmail.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/ScripAction/SendEmail.pm Thu Jan 31 17:06:03 2008
@@ -768,7 +768,7 @@
$self->set_header(
'From',
sprintf(
- RT->config->get('FriendlyFromLineFormat'),
+ RT->config->get('friendly_from_line_format'),
$self->mime_encode_string(
$friendly_name, RT->config->get('EmailOutputEncoding')
),
Modified: rt/branches/3.999-DANGEROUS/lib/RT/SearchBuilder.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/SearchBuilder.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/SearchBuilder.pm Thu Jan 31 17:06:03 2008
@@ -221,7 +221,7 @@
);
$self->limit(
alias => $alias,
- column => 'CustomField',
+ column => 'custom_field',
operator => '=',
value => $args{'customfield'},
) if ( $args{'customfield'} );
Modified: rt/branches/3.999-DANGEROUS/lib/RT/Shredder/Plugin/Users.pm
==============================================================================
--- rt/branches/3.999-DANGEROUS/lib/RT/Shredder/Plugin/Users.pm (original)
+++ rt/branches/3.999-DANGEROUS/lib/RT/Shredder/Plugin/Users.pm Thu Jan 31 17:06:03 2008
@@ -134,7 +134,7 @@
# XXX: we want preload only things we need, but later while
# logging we need all data, TODO envestigate this
- # $objs->columns(qw(id name email lang Timezone
+ # $objs->columns(qw(id name email lang timezone
# Creator Created LastUpdated last_updated_by));
if ( my $s = $self->{'opt'}{'status'} ) {
if ( $s eq 'any' ) {
Modified: rt/branches/3.999-DANGEROUS/share/po/it.po
==============================================================================
--- rt/branches/3.999-DANGEROUS/share/po/it.po (original)
+++ rt/branches/3.999-DANGEROUS/share/po/it.po Thu Jan 31 17:06:03 2008
@@ -1852,7 +1852,7 @@
#: html/SelfService/Display.html:61 html/Ticket/Create.html:203 html/Ticket/Elements/ShowSummary:83 html/Ticket/Elements/Tabs:116 html/Ticket/ModifyAll.html:65
msgid "Dates"
-msgstr "Date"
+msgstr "date"
#: lib/RT/Date.pm:452
msgid "Dec."
Modified: rt/branches/3.999-DANGEROUS/t/api/attribute.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/api/attribute.t (original)
+++ rt/branches/3.999-DANGEROUS/t/api/attribute.t Thu Jan 31 17:06:03 2008
@@ -12,24 +12,24 @@
my $attr = RT::Model::Attribute->new(current_user => RT->system_user);
$attr->load($id);
is($attr->name , 'SavedSearch');
-$attr->set_sub_values( Format => 'baz');
+$attr->set_sub_values( format => 'baz');
-my $format = $attr->sub_value('Format');
+my $format = $attr->sub_value('format');
is ($format , 'baz');
-$attr->set_sub_values( Format => 'bar');
-$format = $attr->sub_value('Format');
+$attr->set_sub_values( format => 'bar');
+$format = $attr->sub_value('format');
is ($format , 'bar');
$attr->delete_all_sub_values();
-$format = $attr->sub_value('Format');
+$format = $attr->sub_value('format');
is ($format, undef);
-$attr->set_sub_values(Format => 'This is a format');
+$attr->set_sub_values(format => 'This is a format');
my $attr2 = RT::Model::Attribute->new(current_user => RT->system_user);
$attr2->load($id);
-is ($attr2->sub_value('Format'), 'This is a format');
+is ($attr2->sub_value('format'), 'This is a format');
$attr2->delete;
my $attr3 = RT::Model::Attribute->new(current_user => RT->system_user);
($id) = $attr3->load($id);
Modified: rt/branches/3.999-DANGEROUS/t/api/date.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/api/date.t (original)
+++ rt/branches/3.999-DANGEROUS/t/api/date.t Thu Jan 31 17:06:03 2008
@@ -18,7 +18,7 @@
# set timezone in all places to UTC
RT->system_user->user_object->__set(column => 'timezone', value => 'UTC')
if RT->system_user->user_object->timezone;
- RT->config->set( Timezone => 'UTC' );
+ RT->config->set( timezone => 'UTC' );
}
my $current_user;
@@ -50,7 +50,7 @@
is($date->timezone, 'UTC', "the deafult value is always UTC");
is($date->timezone('server'), 'UTC', "wasn't changed");
- RT->config->set( Timezone => 'Africa/Ouagadougou' );
+ RT->config->set( timezone => 'Africa/Ouagadougou' );
is($date->timezone('server'),
'Africa/Ouagadougou',
"timezone of the RT server was changed");
@@ -68,12 +68,12 @@
"in user context returns timezone of the server if user's one is not defined");
is($date->timezone, 'UTC', "the deafult value is always UTC");
- RT->config->set( Timezone => 'GMT' );
+ RT->config->set( timezone => 'GMT' );
is($date->timezone('server'),
'UTC',
"timezone is GMT which one is alias for UTC");
- RT->config->set( Timezone => '' );
+ RT->config->set( timezone => '' );
is($date->timezone, 'UTC', "dropped all timzones to UTC");
is($date->timezone('user'),
'UTC',
@@ -82,144 +82,143 @@
'UTC',
"timezone of the server is not defined so UTC");
- RT->config->set( Timezone => 'UTC' );
+ RT->config->set( timezone => 'UTC' );
}
{
my $date = RT::Date->new(current_user => RT->system_user);
is($date->unix, 0, "new date returns 0 in Unix format");
is($date->get, '1970-01-01 00:00:00', "default is ISO format");
- is($date->get(Format =>'SomeBadFormat'),
+ is($date->get(format =>'SomeBadFormat'),
'1970-01-01 00:00:00',
"don't know format, return ISO format");
- is($date->get(Format =>'W3CDTF'),
+ is($date->get(format =>'W3CDTF'),
'1970-01-01T00:00:00Z',
"W3CDTF format with defaults");
-exit;
- is($date->get(Format =>'RFC2822'),
+ is($date->get(format =>'RFC2822'),
'Thu, 1 Jan 1970 00:00:00 +0000',
"RFC2822 format with defaults");
- is($date->iso(Time => 0),
+ is($date->iso(time => 0),
'1970-01-01',
"ISO format without time part");
- is($date->w3cdtf(Time => 0),
+ is($date->w3cdtf(time => 0),
'1970-01-01',
"W3CDTF format without time part");
- is($date->rfc_2822(Time => 0),
+ is($date->rfc2822(time => 0),
'Thu, 1 Jan 1970',
"RFC2822 format without time part");
- is($date->iso(Date => 0),
+ is($date->iso(date => 0),
'00:00:00',
"ISO format without date part");
- is($date->w3cdtf(Date => 0),
+ is($date->w3cdtf(date => 0),
'1970-01-01T00:00:00Z',
"W3CDTF format is incorrect without date part");
- is($date->rfc_2822(Date => 0),
+ is($date->rfc2822(date => 0),
'00:00:00 +0000',
"RFC2822 format without date part");
- is($date->iso(Date => 0, Seconds => 0),
+ is($date->iso(date => 0, seconds => 0),
'00:00',
"ISO format without date part and seconds");
- is($date->w3cdtf(Date => 0, Seconds => 0),
+ is($date->w3cdtf(date => 0, seconds => 0),
'1970-01-01T00:00Z',
- "W3CDTF format without seconds, but we ship date part even if Date is false");
- is($date->rfc_2822(Date => 0, Seconds => 0),
+ "W3CDTF format without seconds, but we ship date part even if date is false");
+ is($date->rfc2822(date => 0, seconds => 0),
'00:00 +0000',
"RFC2822 format without date part and seconds");
- is($date->rfc_2822(DayOfWeek => 0),
+ is($date->rfc2822(day_of_week => 0),
'1 Jan 1970 00:00:00 +0000',
"RFC2822 format without 'day of week' part");
- is($date->rfc_2822(DayOfWeek => 0, Date => 0),
+ is($date->rfc2822(day_of_week => 0, date => 0),
'00:00:00 +0000',
"RFC2822 format without 'day of week' and date parts(corner case test)");
is($date->date,
'1970-01-01',
- "the default format for the 'Date' method is ISO");
- is($date->date(Format => 'W3CDTF'),
+ "the default format for the 'date' method is ISO");
+ is($date->date(format => 'W3CDTF'),
'1970-01-01',
- "'Date' method, W3CDTF format");
- is($date->date(Format => 'RFC2822'),
+ "'date' method, W3CDTF format");
+ is($date->date(format => 'RFC2822'),
'Thu, 1 Jan 1970',
- "'Date' method, RFC2822 format");
- is($date->date(Time => 1),
+ "'date' method, RFC2822 format");
+ is($date->date(time => 1),
'1970-01-01',
- "'Date' method doesn't pass through 'Time' argument");
- is($date->date(Date => 0),
+ "'date' method doesn't pass through 'time' argument");
+ is($date->date(date => 0),
'1970-01-01',
- "'Date' method overrides 'Date' argument");
+ "'date' method overrides 'date' argument");
is($date->time,
'00:00:00',
- "the default format for the 'Time' method is ISO");
- is($date->time(Format => 'W3CDTF'),
+ "the default format for the 'time' method is ISO");
+ is($date->time(format => 'W3CDTF'),
'1970-01-01T00:00:00Z',
- "'Time' method, W3CDTF format, date part is required by w3c doc");
- is($date->time(Format => 'RFC2822'),
+ "'time' method, W3CDTF format, date part is required by w3c doc");
+ is($date->time(format => 'RFC2822'),
'00:00:00 +0000',
- "'Time' method, RFC2822 format");
- is($date->time(Date => 1),
+ "'time' method, RFC2822 format");
+ is($date->time(date => 1),
'00:00:00',
- "'Time' method doesn't pass through 'Date' argument");
- is($date->time(Time => 0),
+ "'time' method doesn't pass through 'date' argument");
+ is($date->time(time => 0),
'00:00:00',
- "'Time' method overrides 'Time' argument");
+ "'time' method overrides 'time' argument");
is($date->date_time,
'1970-01-01 00:00:00',
"the default format for the 'DateTime' method is ISO");
- is($date->date_time(Format =>'W3CDTF'),
+ is($date->date_time(format =>'W3CDTF'),
'1970-01-01T00:00:00Z',
"'DateTime' method, W3CDTF format");
- is($date->date_time(Format =>'RFC2822'),
+ is($date->date_time(format =>'RFC2822'),
'Thu, 1 Jan 1970 00:00:00 +0000',
"'DateTime' method, RFC2822 format");
- is($date->date_time(Date => 0, Time => 0),
+ is($date->date_time(date => 0, time => 0),
'1970-01-01 00:00:00',
- "the 'DateTime' method overrides both 'Date' and 'Time' arguments");
+ "the 'DateTime' method overrides both 'date' and 'time' arguments");
}
{ # positive timezone
$current_user->user_object->__set( column => 'timezone', value => 'Europe/Moscow');
my $date = RT::Date->new( current_user => $current_user );
- $date->set( Format => 'ISO', Timezone => 'utc', value => '2005-01-01 15:10:00' );
- is($date->iso( Timezone => 'user' ), '2005-01-01 18:10:00', "ISO");
- is($date->w3cdtf( Timezone => 'user' ), '2005-01-01T18:10:00+03:00', "W3C DTF");
- is($date->rfc_2822( Timezone => 'user' ), 'Sat, 1 Jan 2005 18:10:00 +0300', "RFC2822");
+ $date->set( format => 'ISO', timezone => 'utc', value => '2005-01-01 15:10:00' );
+ is($date->iso( timezone => 'user' ), '2005-01-01 18:10:00', "ISO");
+ is($date->w3cdtf( timezone => 'user' ), '2005-01-01T18:10:00+03:00', "W3C DTF");
+ is($date->rfc2822( timezone => 'user' ), 'Sat, 1 Jan 2005 18:10:00 +0300', "RFC2822");
# DST
$date = RT::Date->new(current_user => $current_user );
- $date->set( Format => 'ISO', Timezone => 'utc', value => '2005-07-01 15:10:00' );
- is($date->iso( Timezone => 'user' ), '2005-07-01 19:10:00', "ISO");
- is($date->w3cdtf( Timezone => 'user' ), '2005-07-01T19:10:00+04:00', "W3C DTF");
- is($date->rfc_2822( Timezone => 'user' ), 'Fri, 1 Jul 2005 19:10:00 +0400', "RFC2822");
+ $date->set( format => 'ISO', timezone => 'utc', value => '2005-07-01 15:10:00' );
+ is($date->iso( timezone => 'user' ), '2005-07-01 19:10:00', "ISO");
+ is($date->w3cdtf( timezone => 'user' ), '2005-07-01T19:10:00+04:00', "W3C DTF");
+ is($date->rfc2822( timezone => 'user' ), 'Fri, 1 Jul 2005 19:10:00 +0400', "RFC2822");
}
{ # negative timezone
$current_user->user_object->__set( column => 'timezone', value => 'America/New_York');
my $date = RT::Date->new( current_user => $current_user );
- $date->set( Format => 'ISO', Timezone => 'utc', value => '2005-01-01 15:10:00' );
- is($date->iso( Timezone => 'user' ), '2005-01-01 10:10:00', "ISO");
- is($date->w3cdtf( Timezone => 'user' ), '2005-01-01T10:10:00-05:00', "W3C DTF");
- is($date->rfc_2822( Timezone => 'user' ), 'Sat, 1 Jan 2005 10:10:00 -0500', "RFC2822");
+ $date->set( format => 'ISO', timezone => 'utc', value => '2005-01-01 15:10:00' );
+ is($date->iso( timezone => 'user' ), '2005-01-01 10:10:00', "ISO");
+ is($date->w3cdtf( timezone => 'user' ), '2005-01-01T10:10:00-05:00', "W3C DTF");
+ is($date->rfc2822( timezone => 'user' ), 'Sat, 1 Jan 2005 10:10:00 -0500', "RFC2822");
# DST
$date = RT::Date->new( current_user => $current_user );
- $date->set( Format => 'ISO', Timezone => 'utc', value => '2005-07-01 15:10:00' );
- is($date->iso( Timezone => 'user' ), '2005-07-01 11:10:00', "ISO");
- is($date->w3cdtf( Timezone => 'user' ), '2005-07-01T11:10:00-04:00', "W3C DTF");
- is($date->rfc_2822( Timezone => 'user' ), 'Fri, 1 Jul 2005 11:10:00 -0400', "RFC2822");
+ $date->set( format => 'ISO', timezone => 'utc', value => '2005-07-01 15:10:00' );
+ is($date->iso( timezone => 'user' ), '2005-07-01 11:10:00', "ISO");
+ is($date->w3cdtf( timezone => 'user' ), '2005-07-01T11:10:00-04:00', "W3C DTF");
+ is($date->rfc2822( timezone => 'user' ), 'Fri, 1 Jul 2005 11:10:00 -0400', "RFC2822");
}
# bad format
my $date = RT::Date->new(current_user => RT->system_user);
- $date->set( Format => 'bad' );
+ $date->set( format => 'bad' );
is($date->unix, undef, "bad format");
@@ -232,7 +231,7 @@
$date->unix(1);
is($date->iso, '1970-01-01 00:00:01', "correct value");
- $date->set(Format => 'unix', value => $_);
+ $date->set(format => 'unix', value => $_);
is($date->iso, '1970-01-01 00:00:00', "Set a date to midnight 1/1/1970 GMT due to wrong call");
is($date->unix, 0, "unix is 0 => unset");
}
@@ -242,124 +241,124 @@
{ # set+ISO format
my $date = RT::Date->new(current_user => RT->system_user);
- my $return = $date->set(Format => 'ISO', value => 'weird date');
+ my $return = $date->set(format => 'ISO', value => 'weird date');
is ($return, undef, "The set failed. returned undef");
is($date->unix, undef, "date was wrong => unix == 0");
# XXX: ISO format has more feature than we suport
# http://www.cl.cam.ac.uk/~mgk25/iso-time.html
- $date->set(Format => 'ISO', value => '2005-11-28 15:10:00');
+ $date->set(format => 'ISO', value => '2005-11-28 15:10:00');
is($date->iso, '2005-11-28 15:10:00', "YYYY-DD-MM hh:mm:ss");
- $date->set(Format => 'ISO', value => '2005-11-28 15:10:00+00');
+ $date->set(format => 'ISO', value => '2005-11-28 15:10:00+00');
is($date->iso, '2005-11-28 15:10:00', "YYYY-DD-MM hh:mm:ss+00");
- $date->set(Format => 'ISO', value => '11-28 15:10:00');
+ $date->set(format => 'ISO', value => '11-28 15:10:00');
is($date->iso, $year .'-11-28 15:10:00', "DD-MM hh:mm:ss");
- $date->set(Format => 'ISO', value => '11-28 15:10:00+00');
+ $date->set(format => 'ISO', value => '11-28 15:10:00+00');
is($date->iso, $year .'-11-28 15:10:00', "DD-MM hh:mm:ss+00");
- $date->set(Format => 'ISO', value => '20051128151000');
+ $date->set(format => 'ISO', value => '20051128151000');
is($date->iso, '2005-11-28 15:10:00', "YYYYDDMMhhmmss");
- $date->set(Format => 'ISO', value => '1128151000');
+ $date->set(format => 'ISO', value => '1128151000');
is($date->iso, $year .'-11-28 15:10:00', "DDMMhhmmss");
- $date->set(Format => 'ISO', value => '2005112815:10:00');
+ $date->set(format => 'ISO', value => '2005112815:10:00');
is($date->iso, '2005-11-28 15:10:00', "YYYYDDMMhh:mm:ss");
- $date->set(Format => 'ISO', value => '112815:10:00');
+ $date->set(format => 'ISO', value => '112815:10:00');
is($date->iso, $year .'-11-28 15:10:00', "DDMMhh:mm:ss");
- $date->set(Format => 'ISO', value => '2005-13-28 15:10:00');
+ $date->set(format => 'ISO', value => '2005-13-28 15:10:00');
is($date->unix, 0, "wrong month value");
- $date->set(Format => 'ISO', value => '2005-00-28 15:10:00');
+ $date->set(format => 'ISO', value => '2005-00-28 15:10:00');
is($date->unix, 0, "wrong month value");
- $date->set(Format => 'ISO', value => '1960-01-28 15:10:00');
+ $date->set(format => 'ISO', value => '1960-01-28 15:10:00');
is($date->unix, 0, "too old, we don't support");
}
-{ # set+datemanip format(Time::ParseDate)
+{ # set+datemanip format(time::ParseDate)
my $date = RT::Date->new(current_user => RT->system_user);
- $date->set(Format => 'unknown', value => 'weird date');
+ $date->set(format => 'unknown', value => 'weird date');
is($date->unix, 0, "date was wrong");
- RT->config->set( Timezone => 'Europe/Moscow' );
- $date->set(Format => 'datemanip', value => '2005-11-28 15:10:00');
+ RT->config->set( timezone => 'Europe/Moscow' );
+ $date->set(format => 'datemanip', value => '2005-11-28 15:10:00');
is($date->iso, '2005-11-28 12:10:00', "YYYY-DD-MM hh:mm:ss");
- RT->config->set( Timezone => 'UTC' );
- $date->set(Format => 'datemanip', value => '2005-11-28 15:10:00');
+ RT->config->set( timezone => 'UTC' );
+ $date->set(format => 'datemanip', value => '2005-11-28 15:10:00');
is($date->iso, '2005-11-28 15:10:00', "YYYY-DD-MM hh:mm:ss");
- $current_user->user_object->__set( column => 'Timezone', value => 'Europe/Moscow');
+ $current_user->user_object->__set( column => 'timezone', value => 'Europe/Moscow');
$date = RT::Date->new( current_user => $current_user );
- $date->set(Format => 'datemanip', value => '2005-11-28 15:10:00');
+ $date->set(format => 'datemanip', value => '2005-11-28 15:10:00');
is($date->iso, '2005-11-28 12:10:00', "YYYY-DD-MM hh:mm:ss");
}
-{ # set+unknown format(Time::ParseDate)
+{ # set+unknown format(time::ParseDate)
my $date = RT::Date->new(current_user => RT->system_user);
- $date->set(Format => 'unknown', value => 'weird date');
+ $date->set(format => 'unknown', value => 'weird date');
is($date->unix, 0, "date was wrong");
- RT->config->set( Timezone => 'Europe/Moscow' );
- $date->set(Format => 'unknown', value => '2005-11-28 15:10:00');
+ RT->config->set( timezone => 'Europe/Moscow' );
+ $date->set(format => 'unknown', value => '2005-11-28 15:10:00');
is($date->iso, '2005-11-28 12:10:00', "YYYY-DD-MM hh:mm:ss");
- $date->set(Format => 'unknown', value => '2005-11-28 15:10:00', Timezone => 'utc' );
+ $date->set(format => 'unknown', value => '2005-11-28 15:10:00', timezone => 'utc' );
is($date->iso, '2005-11-28 15:10:00', "YYYY-DD-MM hh:mm:ss");
- RT->config->set( Timezone => 'UTC' );
- $date->set(Format => 'unknown', value => '2005-11-28 15:10:00');
+ RT->config->set( timezone => 'UTC' );
+ $date->set(format => 'unknown', value => '2005-11-28 15:10:00');
is($date->iso, '2005-11-28 15:10:00', "YYYY-DD-MM hh:mm:ss");
$current_user->user_object->__set( column => 'timezone', value => 'Europe/Moscow');
$date = RT::Date->new( current_user => $current_user );
- $date->set(Format => 'unknown', value => '2005-11-28 15:10:00');
+ $date->set(format => 'unknown', value => '2005-11-28 15:10:00');
is($date->iso, '2005-11-28 12:10:00', "YYYY-DD-MM hh:mm:ss");
- $date->set(Format => 'unknown', value => '2005-11-28 15:10:00', Timezone => 'server' );
+ $date->set(format => 'unknown', value => '2005-11-28 15:10:00', timezone => 'server' );
is($date->iso, '2005-11-28 15:10:00', "YYYY-DD-MM hh:mm:ss");
- $date->set(Format => 'unknown', value => '2005-11-28 15:10:00', Timezone => 'utc' );
+ $date->set(format => 'unknown', value => '2005-11-28 15:10:00', timezone => 'utc' );
is($date->iso, '2005-11-28 15:10:00', "YYYY-DD-MM hh:mm:ss");
}
{ # SetToMidnight
my $date = RT::Date->new(current_user => RT->system_user);
- RT->config->set( Timezone => 'Europe/Moscow' );
- $date->set(Format => 'ISO', value => '2005-11-28 15:10:00');
+ RT->config->set( timezone => 'Europe/Moscow' );
+ $date->set(format => 'ISO', value => '2005-11-28 15:10:00');
$date->set_to_midnight;
is($date->iso, '2005-11-28 00:00:00', "default is utc");
- $date->set(Format => 'ISO', value => '2005-11-28 15:10:00');
- $date->set_to_midnight(Timezone => 'utc');
+ $date->set(format => 'ISO', value => '2005-11-28 15:10:00');
+ $date->set_to_midnight(timezone => 'utc');
is($date->iso, '2005-11-28 00:00:00', "utc context");
- $date->set(Format => 'ISO', value => '2005-11-28 15:10:00');
- $date->set_to_midnight(Timezone => 'user');
+ $date->set(format => 'ISO', value => '2005-11-28 15:10:00');
+ $date->set_to_midnight(timezone => 'user');
is($date->iso, '2005-11-27 21:00:00', "user context, user has no preference, fallback to server");
- $date->set(Format => 'ISO', value => '2005-11-28 15:10:00');
- $date->set_to_midnight(Timezone => 'server');
+ $date->set(format => 'ISO', value => '2005-11-28 15:10:00');
+ $date->set_to_midnight(timezone => 'server');
is($date->iso, '2005-11-27 21:00:00', "server context");
$current_user->user_object->__set( column => 'timezone', value => 'Europe/Moscow');
$date = RT::Date->new(current_user => $current_user );
- $date->set(Format => 'ISO', value => '2005-11-28 15:10:00');
+ $date->set(format => 'ISO', value => '2005-11-28 15:10:00');
$date->set_to_midnight;
is($date->iso, '2005-11-28 00:00:00', "default is utc");
- $date->set(Format => 'ISO', value => '2005-11-28 15:10:00');
- $date->set_to_midnight(Timezone => 'utc');
+ $date->set(format => 'ISO', value => '2005-11-28 15:10:00');
+ $date->set_to_midnight(timezone => 'utc');
is($date->iso, '2005-11-28 00:00:00', "utc context");
- $date->set(Format => 'ISO', value => '2005-11-28 15:10:00');
- $date->set_to_midnight(Timezone => 'user');
+ $date->set(format => 'ISO', value => '2005-11-28 15:10:00');
+ $date->set_to_midnight(timezone => 'user');
is($date->iso, '2005-11-27 21:00:00', "user context");
- $date->set_to_midnight(Timezone => 'server');
+ $date->set_to_midnight(timezone => 'server');
is($date->iso, '2005-11-27 21:00:00', "server context");
- RT->config->set( Timezone => 'UTC' );
+ RT->config->set( timezone => 'UTC' );
}
{ # set_to_now
@@ -390,7 +389,7 @@
is($date->iso, '1970-01-01 01:01:01', "added one hour, minute and a second");
TODO: {
- local $TODO = "BUG or subject to change Date handling to support unix time <= 0";
+ local $TODO = "BUG or subject to change date handling to support unix time <= 0";
$date->unix(0);
$date->add_seconds(-2);
ok($date->unix > 0);
@@ -414,21 +413,21 @@
my $date = RT::Date->new(current_user => $current_user );
is($date->as_string, "Not set", "AsString returns 'Not set'");
- RT->config->set( DateTimeFormat => '');
+ RT->config->set( date_time_format => '');
$date->unix(1);
is($date->as_string, 'Thu Jan 01 00:00:01 1970', "correct string");
- is($date->as_string(Date => 0), '00:00:01', "correct string");
- is($date->as_string(Time => 0), 'Thu Jan 01 1970', "correct string");
- is($date->as_string(Date => 0, Time => 0), 'Thu Jan 01 00:00:01 1970', "invalid input");
+ is($date->as_string(date => 0), '00:00:01', "correct string");
+ is($date->as_string(time => 0), 'Thu Jan 01 1970', "correct string");
+ is($date->as_string(date => 0, time => 0), 'Thu Jan 01 00:00:01 1970', "invalid input");
- RT->config->set( DateTimeFormat => 'RFC2822' );
+ RT->config->set( date_time_format => 'RFC2822' );
$date->unix(1);
is($date->as_string, 'Thu, 1 Jan 1970 00:00:01 +0000', "correct string");
- RT->config->set( DateTimeFormat => { Format => 'RFC2822', Seconds => 0 } );
+ RT->config->set( date_time_format => { format => 'RFC2822', seconds => 0 } );
$date->unix(1);
is($date->as_string, 'Thu, 1 Jan 1970 00:00 +0000', "correct string");
- is($date->as_string(Seconds => 1), 'Thu, 1 Jan 1970 00:00:01 +0000', "correct string");
+ is($date->as_string(seconds => 1), 'Thu, 1 Jan 1970 00:00:01 +0000', "correct string");
}
{ # DurationAsString
@@ -506,7 +505,7 @@
}
#TODO: AsString
-#TODO: RFC2822, W3CDTF with Timezones
+#TODO: RFC2822, W3CDTF with timezones
exit(0);
Modified: rt/branches/3.999-DANGEROUS/t/mail/crypt-gnupg.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/mail/crypt-gnupg.t (original)
+++ rt/branches/3.999-DANGEROUS/t/mail/crypt-gnupg.t Thu Jan 31 17:06:03 2008
@@ -21,7 +21,7 @@
RT->config->set( 'GnuPG',
Enable => 1,
- OutgoingMessagesFormat => 'RFC' );
+ outgoing_messages_format => 'RFC' );
RT->config->set( 'GnuPGOptions',
homedir => $homedir );
@@ -52,7 +52,7 @@
my @parts = RT::Crypt::GnuPG::find_protected_parts( Entity => $entity );
is( scalar @parts, 1, 'one protected part' );
is( $parts[0]->{'type'}, 'signed', "have signed part" );
- is( $parts[0]->{'Format'}, 'RFC3156', "RFC3156 format" );
+ is( $parts[0]->{'format'}, 'RFC3156', "RFC3156 format" );
is( $parts[0]->{'Top'}, $entity, "it's the same entity" );
my @res = RT::Crypt::GnuPG::verify_decrypt( Entity => $entity );
@@ -122,7 +122,7 @@
my @parts = RT::Crypt::GnuPG::find_protected_parts( Entity => $entity );
is( scalar @parts, 1, 'one protected part' );
is( $parts[0]->{'type'}, 'encrypted', "have encrypted part" );
- is( $parts[0]->{'Format'}, 'RFC3156', "RFC3156 format" );
+ is( $parts[0]->{'format'}, 'RFC3156', "RFC3156 format" );
is( $parts[0]->{'Top'}, $entity, "it's the same entity" );
}
@@ -169,7 +169,7 @@
my @parts = RT::Crypt::GnuPG::find_protected_parts( Entity => $entity );
is( scalar @parts, 1, 'one protected part' );
is( $parts[0]->{'type'}, 'encrypted', "have encrypted part" );
- is( $parts[0]->{'Format'}, 'RFC3156', "RFC3156 format" );
+ is( $parts[0]->{'format'}, 'RFC3156', "RFC3156 format" );
is( $parts[0]->{'Top'}, $entity, "it's the same entity" );
}
@@ -191,7 +191,7 @@
my @parts = RT::Crypt::GnuPG::find_protected_parts( Entity => $entity );
is( scalar @parts, 1, 'one protected part, top most' );
is( $parts[0]->{'type'}, 'signed', "have signed part" );
- is( $parts[0]->{'Format'}, 'RFC3156', "RFC3156 format" );
+ is( $parts[0]->{'format'}, 'RFC3156', "RFC3156 format" );
is( $parts[0]->{'Top'}, $entity, "it's the same entity" );
}
@@ -214,7 +214,7 @@
my @parts = RT::Crypt::GnuPG::find_protected_parts( Entity => $entity );
is( scalar @parts, 1, 'one protected part' );
is( $parts[0]->{'type'}, 'encrypted', "have encrypted part" );
- is( $parts[0]->{'Format'}, 'RFC3156', "RFC3156 format" );
+ is( $parts[0]->{'format'}, 'RFC3156', "RFC3156 format" );
is( $parts[0]->{'Top'}, $entity->parts(0), "it's the same entity" );
}
@@ -291,11 +291,11 @@
my @parts = RT::Crypt::GnuPG::find_protected_parts( Entity => $entity );
is( scalar @parts, 2, 'two protected parts' );
is( $parts[1]->{'type'}, 'signed', "have signed part" );
- is( $parts[1]->{'Format'}, 'Inline', "inline format" );
+ is( $parts[1]->{'format'}, 'Inline', "inline format" );
is( $parts[1]->{'Data'}, $entity->parts(0), "it's first part" );
is( $parts[0]->{'type'}, 'signed', "have signed part" );
- is( $parts[0]->{'Format'}, 'Attachment', "attachment format" );
+ is( $parts[0]->{'format'}, 'Attachment', "attachment format" );
is( $parts[0]->{'Data'}, $entity->parts(1), "data in second part" );
is( $parts[0]->{'Signature'}, $entity->parts(2), "file's signature in third part" );
Modified: rt/branches/3.999-DANGEROUS/t/mail/gnupg-bad.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/mail/gnupg-bad.t (original)
+++ rt/branches/3.999-DANGEROUS/t/mail/gnupg-bad.t Thu Jan 31 17:06:03 2008
@@ -10,7 +10,7 @@
RT->config->set( LogToScreen => 'debug' );
RT->config->set( 'GnuPG',
Enable => 1,
- OutgoingMessagesFormat => 'RFC' );
+ outgoing_messages_format => 'RFC' );
RT->config->set( 'GnuPGOptions',
homedir => $homedir,
Modified: rt/branches/3.999-DANGEROUS/t/mail/gnupg-incoming.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/mail/gnupg-incoming.t (original)
+++ rt/branches/3.999-DANGEROUS/t/mail/gnupg-incoming.t Thu Jan 31 17:06:03 2008
@@ -27,7 +27,7 @@
RT->config->set( LogToScreen => 'debug' );
RT->config->set( 'GnuPG',
Enable => 1,
- OutgoingMessagesFormat => 'RFC' );
+ outgoing_messages_format => 'RFC' );
RT->config->set( 'GnuPGOptions',
homedir => $homedir,
Modified: rt/branches/3.999-DANGEROUS/t/mail/gnupg-realmail.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/mail/gnupg-realmail.t (original)
+++ rt/branches/3.999-DANGEROUS/t/mail/gnupg-realmail.t Thu Jan 31 17:06:03 2008
@@ -13,7 +13,7 @@
RT->config->set( LogToScreen => 'debug' );
RT->config->set( 'GnuPG',
Enable => 1,
- OutgoingMessagesFormat => 'RFC' );
+ outgoing_messages_format => 'RFC' );
RT->config->set( 'GnuPGOptions',
homedir => $homedir,
Modified: rt/branches/3.999-DANGEROUS/t/mail/gnupg-reverification.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/mail/gnupg-reverification.t (original)
+++ rt/branches/3.999-DANGEROUS/t/mail/gnupg-reverification.t Thu Jan 31 17:06:03 2008
@@ -11,7 +11,7 @@
RT->config->set( LogToScreen => 'debug' );
RT->config->set( 'GnuPG',
Enable => 1,
- OutgoingMessagesFormat => 'RFC' );
+ outgoing_messages_format => 'RFC' );
RT->config->set( 'GnuPGOptions',
homedir => $homedir,
Modified: rt/branches/3.999-DANGEROUS/t/savedsearch.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/savedsearch.t (original)
+++ rt/branches/3.999-DANGEROUS/t/savedsearch.t Thu Jan 31 17:06:03 2008
@@ -71,7 +71,7 @@
type => 'Ticket',
name => 'owned by me',
SearchParams => {
- 'Format' => $format,
+ 'format' => $format,
'Query' => "Owner = '" . $searchuser->name . "'"
}
);
@@ -84,7 +84,7 @@
($ret, $msg) = $groupsearch->save(Privacy => 'RT::Model::Group-' . $ingroup->id,
type => 'Ticket',
name => 'search queue',
- SearchParams => {'Format' => $format,
+ SearchParams => {'format' => $format,
'Query' => "Queue = '"
. $queue->name . "'"});
ok($ret, "groupsearch was Created");
@@ -93,7 +93,7 @@
($ret, $msg) = $othersearch->save(Privacy => 'RT::Model::Group-' . $outgroup->id,
type => 'Ticket',
name => 'searchuser requested',
- SearchParams => {'Format' => $format,
+ SearchParams => {'format' => $format,
'Query' =>
"Requestor.name LIKE 'search'"});
ok(!$ret, "othersearch NOT Created");
@@ -103,7 +103,7 @@
($ret, $msg) = $othersearch->save(Privacy => 'RT::Model::Group-' . $outgroup->id,
type => 'Ticket',
name => 'searchuser requested',
- SearchParams => {'Format' => $format,
+ SearchParams => {'format' => $format,
'Query' =>
"Requestor.name LIKE 'search'"});
ok($ret, "othersearch Created by systemuser");
@@ -148,7 +148,7 @@
isnt($loadedsearch4->id, $othersearch->id, "Did not load othersearch");
# Try to update an existing search.
-$loadedsearch1->update( SearchParams => {'Format' => $format,
+$loadedsearch1->update( SearchParams => {'format' => $format,
'Query' => "Queue = '" . $queue->name . "'" } );
like($loadedsearch1->get_parameter('Query'), qr/Queue/,
"Updated mysearch parameter");
Modified: rt/branches/3.999-DANGEROUS/t/web/crypt-gnupg.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/crypt-gnupg.t (original)
+++ rt/branches/3.999-DANGEROUS/t/web/crypt-gnupg.t Thu Jan 31 17:06:03 2008
@@ -30,7 +30,7 @@
RT->config->set( 'GnuPG',
Enable => 1,
- OutgoingMessagesFormat => 'RFC' );
+ outgoing_messages_format => 'RFC' );
RT->config->set( 'GnuPGOptions',
homedir => $homedir,
Modified: rt/branches/3.999-DANGEROUS/t/web/gnupg-outgoing.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/gnupg-outgoing.t (original)
+++ rt/branches/3.999-DANGEROUS/t/web/gnupg-outgoing.t Thu Jan 31 17:06:03 2008
@@ -16,7 +16,7 @@
RT->config->set( GnuPG =>
Enable => 1,
- OutgoingMessagesFormat => 'RFC',
+ outgoing_messages_format => 'RFC',
);
RT->config->set( GnuPGOptions =>
Modified: rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-create.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-create.t (original)
+++ rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-create.t Thu Jan 31 17:06:03 2008
@@ -16,7 +16,7 @@
RT->config->set( GnuPG =>
Enable => 1,
- OutgoingMessagesFormat => 'RFC',
+ outgoing_messages_format => 'RFC',
);
RT->config->set( GnuPGOptions =>
Modified: rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-update.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-update.t (original)
+++ rt/branches/3.999-DANGEROUS/t/web/gnupg-select-keys-on-update.t Thu Jan 31 17:06:03 2008
@@ -16,7 +16,7 @@
RT->config->set( GnuPG =>
Enable => 1,
- OutgoingMessagesFormat => 'RFC',
+ outgoing_messages_format => 'RFC',
);
RT->config->set( GnuPGOptions =>
Modified: rt/branches/3.999-DANGEROUS/t/web/ticket_seen.t
==============================================================================
--- rt/branches/3.999-DANGEROUS/t/web/ticket_seen.t (original)
+++ rt/branches/3.999-DANGEROUS/t/web/ticket_seen.t Thu Jan 31 17:06:03 2008
@@ -38,7 +38,7 @@
my ($txn, $msg);
($tid, $txn, $msg) = $ticket->create(
queue => $queue->id,
- Owner => $user_a->id,
+ owner => $user_a->id,
subject => 'test',
);
ok $tid, 'created a ticket #'. $tid or diag "error: $msg";
More information about the Rt-commit
mailing list