[Rt-commit] r13942 - in rt/3.8/trunk: lib/RT share/html/REST/1.0/Forms/ticket
jesse at bestpractical.com
jesse at bestpractical.com
Thu Jul 10 10:14:43 EDT 2008
Author: jesse
Date: Thu Jul 10 10:14:32 2008
New Revision: 13942
Modified:
rt/3.8/trunk/lib/RT/Interface/REST.pm
rt/3.8/trunk/lib/RT/Ticket_Overlay.pm
rt/3.8/trunk/share/html/REST/1.0/Forms/ticket/history
Log:
* Cleaning up some uninit warnings. Backing down some "critical" warnings which aren't to debug warning
Modified: rt/3.8/trunk/lib/RT/Interface/REST.pm
==============================================================================
--- rt/3.8/trunk/lib/RT/Interface/REST.pm (original)
+++ rt/3.8/trunk/lib/RT/Interface/REST.pm Thu Jul 10 10:14:32 2008
@@ -295,7 +295,7 @@
my ($val) = @_;
my ($line, $word, @words);
- foreach $line (map {split /\n/} (ref $val eq 'ARRAY') ? @$val : $val)
+ foreach $line (map {split /\n/} (ref $val eq 'ARRAY') ? @$val : ($val||''))
{
# XXX: This should become a real parser, ? la Text::ParseWords.
$line =~ s/^\s+//;
Modified: rt/3.8/trunk/lib/RT/Ticket_Overlay.pm
==============================================================================
--- rt/3.8/trunk/lib/RT/Ticket_Overlay.pm (original)
+++ rt/3.8/trunk/lib/RT/Ticket_Overlay.pm Thu Jul 10 10:14:32 2008
@@ -169,14 +169,14 @@
my ($ticketid,$msg) = $self->LoadById($id);
unless ($self->Id) {
- $RT::Logger->crit("$self tried to load a bogus ticket: $id");
+ $RT::Logger->debug("$self tried to load a bogus ticket: $id");
return (undef);
}
}
#It's not a URI. It's not a numerical ticket ID. Punt!
else {
- $RT::Logger->warning("Tried to load a bogus ticket id: '$id'");
+ $RT::Logger->debug("Tried to load a bogus ticket id: '$id'");
return (undef);
}
Modified: rt/3.8/trunk/share/html/REST/1.0/Forms/ticket/history
==============================================================================
--- rt/3.8/trunk/share/html/REST/1.0/Forms/ticket/history (original)
+++ rt/3.8/trunk/share/html/REST/1.0/Forms/ticket/history Thu Jul 10 10:14:32 2008
@@ -148,7 +148,7 @@
my $attachlist;
my $attachments = $t->Attachments;
while (my $a = $attachments->Next) {
- my $size = length($a->Content);
+ my $size = length($a->Content||'');
if ($size > 1024) { $size = int($size/102.4)/10 . "k" }
else { $size .= "b" }
$attachlist .= "\n" . $a->Id.": ".($a->Filename || "untitled")." (".$size.")";
More information about the Rt-commit
mailing list