urgent multi-draft fixes from amalfi
[stet:stet.git] / rtNoAuth / getannotations.html
1 %# Copyright (C) 2006   Software Freedom Law Center, Inc.
2 %# Modified-By: Orion Montoya <orion@mdcclv.com>
3 %#
4 %# This software gives you freedom; it is licensed to you under version
5 %# 3 of the GNU Affero General Public License, along with the
6 %# additional permission in the following paragraph.
7 %#
8 %# This notice constitutes a grant of such permission as is necessary
9 %# to combine or link this software, or a modified version of it, with
10 %# Request Tracker (RT), published by Jesse Vincent and Best Practical
11 %# Solutions, LLC, or a derivative work of RT, and to copy, modify, and
12 %# distribute the resulting work.  RT is licensed under version 2 of
13 %# the GNU General Public License.
14 %# 
15 %# This software is distributed WITHOUT ANY WARRANTY, without even the
16 %# implied warranties of MERCHANTABILITY and FITNESS FOR A PARTICULAR
17 %# PURPOSE.  See the GNU Affero General Public License for further
18 %# details.
19 %#  
20 %# You should have received a copy of the GNU Affero General Public
21 %# License, version 3, and the GNU General Public License, version 2,
22 %# along with this software.  If not, see <http://www.gnu.org/licenses/>.
23 %#  
24 <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
25 %
26 <response>
27 % @ids = split(/:/,$ARGS{'ids'});
28 <d><% $drafter %></d>
29 % foreach my $id (@ids) {
30 % $id += 0;
31 % if ($id > 0) {
32 % unless (exists $donehash{$id}) {
33 % $donehash{$id} = 1;
34 % my $item = LoadTicket($id);
35 % if ($item) {
36 <anf>
37 <n><% ptag($item->Transactions->First->Content) %></n>
38 %# <e><% $item->FirstCustomFieldValue('NoteEndNodeId') %></e>
39 %# <s><% cleanNoteSel(\$item) %></s>
40 <i><% $item->FirstCustomFieldValue('NoteStartNodeId') %></i>
41 <u><% $item->CreatorObj->Name %></u>
42 % my ($agree,$agr_count) = showAgree(\$item,$name);
43 <ua><% $agree |n %></ua>
44 <at><% $agr_count %></at>
45 <id><% $item->id %></id>
46 %# <qn><% $item->QueueObj->Name %></qn>
47 </anf>
48 % }
49 % }
50 % }
51 % }
52 </response>
53 %
54 %
55 %
56 <%INIT>
57
58 use CGI qw/standard/;
59 use MIME::Base64;
60 use Frontier::Client;
61 use Data::Dumper;
62
63 use HTML::Scrubber;
64 my $scrubber = HTML::Scrubber->new( allow => [ qw[ a b i u br ] ] );
65
66 require "/var/www/stet/stetsubs.pl";
67
68 my ($name, $resp, $pass, $CurrentUser, @ids, %donehash);
69
70 my $rsslink = "/comments/rt/rssresults.rdf?" . (($ARGS{'Query'}) ? ("Query=".$ARGS{'Query'}) : ("id=".$ARGS{'id'}));
71 my $listlink = "/comments/rt/readsay.html?" . (($ARGS{'Query'}) ? ("Query=".$ARGS{'Query'}) : ("id=".$ARGS{'id'})) . "&Order=DESC";
72
73 ($CurrentUser, $resp, $name) = getUser("foo");
74 print STDERR "Currentuser $CurrentUser, $resp\n";
75
76 my $drafter = '';
77 my $DrafterQueue = RT::Queue->new($CurrentUser);
78 $DrafterQueue->Load('Drafter');
79 if ($DrafterQueue->CurrentUserHasRight('SeeQueue')) {
80   $drafter = "drafter";
81 }
82
83 $r->content_type('text/xml');
84
85 sub ptag {
86     my $cont = shift;
87     if ($cont =~ s/(\S)\n\n(\S)/$1<\/p><p>\n$2/gs) {
88         $cont = "<p style=\"display: inline\">$cont</p>";
89     }                   
90     return $cont;
91 }
92 </%INIT>
93 <%ARGS>
94 $Rows => 30
95 $StartAt => 1
96 $Order => 'DESC'
97 $Query => "'CF.NoteUrl'%20LIKE%20'gplv3-draft-1'";
98 </%ARGS>