[Rt-commit] r5141 - in rt/branches/3.5-TESTING: html/REST/1.0/Forms/ticket

[kevinr at bestpractical.com]

Author: kevinr
Date: Mon May  1 15:17:28 2006
New Revision: 5141

Modified:
   rt/branches/3.5-TESTING/   (props changed)
   rt/branches/3.5-TESTING/html/REST/1.0/Forms/ticket/attachments
   rt/branches/3.5-TESTING/html/REST/1.0/Forms/ticket/default
   rt/branches/3.5-TESTING/html/REST/1.0/Forms/ticket/history
   rt/branches/3.5-TESTING/html/REST/1.0/Forms/ticket/links

Log:
 r12277 at sad-girl-in-snow:  kevinr | 2006-04-24 21:12:50 -0400
 * Changed the other REST Forms to use <%INIT> instead of <%perl>


Modified: rt/branches/3.5-TESTING/html/REST/1.0/Forms/ticket/attachments
==============================================================================
--- rt/branches/3.5-TESTING/html/REST/1.0/Forms/ticket/attachments	(original)
+++ rt/branches/3.5-TESTING/html/REST/1.0/Forms/ticket/attachments	Mon May  1 15:17:28 2006
@@ -49,7 +49,7 @@
 $id
 $args => undef
 </%ARGS>
-<%perl>
+<%INIT>
 my @data;
 my ($c, $o, $k, $e) = ("", [], {}, "");
 my $ticket = new RT::Ticket $session{CurrentUser};
@@ -125,4 +125,4 @@
 }
 
 return [ $c, $o, $k, $e ];
-</%perl>
+</%INIT>

Modified: rt/branches/3.5-TESTING/html/REST/1.0/Forms/ticket/default
==============================================================================
--- rt/branches/3.5-TESTING/html/REST/1.0/Forms/ticket/default	(original)
+++ rt/branches/3.5-TESTING/html/REST/1.0/Forms/ticket/default	Mon May  1 15:17:28 2006
@@ -50,7 +50,7 @@
 $changes => {}
 $fields => undef
 </%ARGS>
-<%perl>
+<%INIT>
 use MIME::Entity;
 
 my @comments;
@@ -333,4 +333,4 @@
 $c ||= join("\n", @comments) if @comments;
 return [$c, $o, $k, $e];
 
-</%perl>
+</%INIT>

Modified: rt/branches/3.5-TESTING/html/REST/1.0/Forms/ticket/history
==============================================================================
--- rt/branches/3.5-TESTING/html/REST/1.0/Forms/ticket/history	(original)
+++ rt/branches/3.5-TESTING/html/REST/1.0/Forms/ticket/history	Mon May  1 15:17:28 2006
@@ -51,7 +51,7 @@
 $format => undef
 $fields => undef
 </%ARGS>
-<%perl>
+<%INIT>
 my $ticket = new RT::Ticket $session{CurrentUser};
 my ($c, $o, $k, $e) = ("", [], {}, "");
 
@@ -184,4 +184,4 @@
 
 return [ $c, $o, $k, $e ];
 
-</%perl>
+</%INIT>

Modified: rt/branches/3.5-TESTING/html/REST/1.0/Forms/ticket/links
==============================================================================
--- rt/branches/3.5-TESTING/html/REST/1.0/Forms/ticket/links	(original)
+++ rt/branches/3.5-TESTING/html/REST/1.0/Forms/ticket/links	Mon May  1 15:17:28 2006
@@ -50,7 +50,7 @@
 $format => 's'
 $changes => undef
 </%ARGS>
-<%perl>
+<%INIT>
 my @data;
 my $ticket = new RT::Ticket $session{CurrentUser};
 
@@ -167,4 +167,4 @@
 }
 
 return [ $c, $o, $k, $e ];
-</%perl>
+</%INIT>