Navigation

← Previous Changeset
Next Changeset →

Changeset 38

Timestamp:

02/10/06 17:57:33 (3 years ago)

Author:

orion

Message:

drafter and intensity

Files:

trunk/agree.pl (modified) (1 diff)
trunk/doc-markup-samples/debug.html (modified) (15 diffs)
trunk/doc-markup-samples/gplv3-draft-1.html (modified) (2 diffs)
trunk/email-submission/email-reply-template-created.txt (added)
trunk/email-submission/email-reply-template-notfound.txt (added)
trunk/email-submission/email-reply-template-toomany.txt (added)
trunk/email-submission/sendmail.pl (added)
trunk/rtNoAuth/autogen.html (added)
trunk/rtNoAuth/Build.html (added)
trunk/rtNoAuth/buildquery.html (modified) (4 diffs)
trunk/rtNoAuth/change-static.html (modified) (5 diffs)
trunk/rtNoAuth/changeshown-devel.html (modified) (5 diffs)
trunk/rtNoAuth/changeshown.html (modified) (4 diffs)
trunk/rtNoAuth/data.html (added)
trunk/rtNoAuth/getnotes.html (added)
trunk/rtNoAuth/header-devel.html (modified) (1 diff)
trunk/rtNoAuth/header.html (modified) (1 diff)
trunk/rtNoAuth/more-ploneish-header.html (modified) (1 diff)
trunk/rtNoAuth/readsay-devel.html (modified) (14 diffs)
trunk/rtNoAuth/readsay.html (modified) (15 diffs)
trunk/rtNoAuth/readsay.pl (added)
trunk/rtNoAuth/rssresults.rdf (modified) (4 diffs)
trunk/rtNoAuth/stet-mason.html (moved) (moved from trunk/various-experiments/stet-mason.html)
trunk/rtNoAuth/stetresults.html (added)
trunk/rtNoAuth/stetresults.rdf (added)
trunk/rtNoAuth/stetwrap.html (added)
trunk/rtNoAuth/submitcomment-devel.html (modified) (6 diffs)
trunk/rtNoAuth/submitcomment.html (modified) (1 diff)
trunk/rtNoAuth/webrt.css (modified) (1 diff)
trunk/rtNoAuth/xmlresults-debug.html (modified) (2 diffs)
trunk/rtNoAuth/xmlresults-devel.html (modified) (9 diffs)
trunk/rtNoAuth/xmlresults.xml (added)
trunk/rtNoAuth/xmlresultsnew.html (modified) (2 diffs)
trunk/selectxpath.xsl (modified) (3 diffs)
trunk/stet.css (modified) (12 diffs)
trunk/stet.js (modified) (7 diffs)
trunk/stetsubs.pl (modified) (4 diffs)
trunk/xmlpass.pl (added)

Legend:

: Unmodified
: Added
: Removed
: Modified
: Copied
: Moved

trunk/agree.pl

r20	r38
47	47	if (($name, $pass) = split(/:/, decode_base64(cookie('__ac')))) {
48	48	$name =~ s/\"//g;
49		$server = Frontier::Client->new(url => 'http://',
	49	$server = Frontier::Client->new(url => 'http://cs_auth:eeSahp1n@gplv3.fsf.org:8800/launch/acl_users/Users/acl_users',
50	50	username => $username,
51	51	password => $password);

trunk/doc-markup-samples/debug.html

r20	r38
3	3	<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
4	4	<title>GNU GENERAL PUBLIC LICENSE</title>
5		<script type="text/javascript" src="sarissa.js"></script>
6		<script type="text/javascript" src="stet-devel.js"></script>
7
8		<script type="text/javascript" language="javascript">
	5	<script type="text/javascript" src="stet-drafter.js"></script><script type="text/javascript" language="javascript">
9	6	window.onload = initPage();
10	7	</script><link rel="stylesheet" type="text/css" href="stet.css">
…	…
12	9	<body onkeypress="checkKeyPressed(event);" bgcolor="#FFFFFF">
13	10	<div id="topbar" class="topbar">
14		<span id="statustext" class="statustext">Loading comments, but we're having serious server load problems so this may just fail. But there's also a chance that we do not properly support your browser yet. You may need to <a href="/comments/email.html">email your comments</a> instead, or try another recent Gecko-based browser.</span><span id="querydiv" style="display:none"></span><span id="login" class="login"></span>
	11	<span id="statustext" class="statustext">Loading comments. If you're still reading this, it's a strong indication that we do not properly support your browser yet. You may need to <a href="/comments/email.html">email your comments</a> instead, or try another recent Gecko-based browser. You can, however, <a href="http://gplv3.fsf.org/comments/rt/readsay.html?Query=%20'CF.NoteUrl'%20LIKE%20'gplv3-draft-1'%20&Order=DESC">browse comments</a> on any browser.</span><span id="querydiv" style="display:none"></span><span id="login" class="login"></span>
15	12	</div>
16	13	<div class="portlet" id="portlet-dogear"><div class="portletBody"><img alt="" src="http://gplv3.fsf.org/dogear.png"></div></div>
…	…
21	18	<li class="plain"><a href="http://gplv3.fsf.org/wiki/">Wiki</a></li>
22	19	<li class="plain"><a href="http://gplv3.fsf.org/press">Press</a></li>
	20	<li id="portaltab-support" class="plain"><a href="http://gplv3.fsf.org/support">Support</a></li>
23	21	</ul>
24	22	<ul id="portal-personaltools"></ul>
…	…
60	58	<p id="gpl3.preamble.p4" name="gpl3.preamble.p4"><sent id="gpl3.preamble.p4.s1" name="gpl3.preamble.p4.s1">Developers that use the GNU GPL protect
61	59	your rights with two steps: (1) assert copyright on the software, and
62		(2) offer you this license which gives you legal permission to copy,
	60	(2) offer you this License which gives you legal permission to copy,
63	61	distribute and/or modify the software. </sent></p>
64	62	<p id="gpl3.preamble.p5" name="gpl3.preamble.p5"><sent id="gpl3.preamble.p5.s1" name="gpl3.preamble.p5.s1">For the developers' and author's
…	…
88	86	"work based on the Program" means either the Program or any derivative work
89	87	under copyright law: that is to say, a work containing the Program or a
90		portion of it, either modified or unmodified. </sent><sent id="gpl3.definitions.p0.s3" name="gpl3.definitions.p0.s3">Throughout this license, the
	88	portion of it, either modified or unmodified. </sent><sent id="gpl3.definitions.p0.s3" name="gpl3.definitions.p0.s3">Throughout this License, the
91	89	term "modification" includes, without limitation, translation and
92	90	extension. </sent><sent id="gpl3.definitions.p0.s4" name="gpl3.definitions.p0.s4">A "covered work" means either the Program or any work based on
…	…
120	118	can regenerate automatically from other parts of the Complete Corresponding
121	119	Source Code. </sent></p>
122		<p id="gpl3.sourcecode.p4" name="gpl3.sourcecode.p4"><sent id="gpl3.sourcecode.p4.s1" name="gpl3.sourcecode.p4.s1">As a special exception, the ~~source code distributed~~ need not include a
	120	<p id="gpl3.sourcecode.p4" name="gpl3.sourcecode.p4"><sent id="gpl3.sourcecode.p4.s1" name="gpl3.sourcecode.p4.s1">As a special exception, the Complete Corresponding Source Code need not include a
123	121	particular subunit if (a) the identical subunit is normally included
124	122	as an adjunct in the distribution of either a major essential component
…	…
162	160	<p id="gpl3.verbatimcopying.p0" name="gpl3.verbatimcopying.p0"><sent id="gpl3.verbatimcopying.p0.s1" name="gpl3.verbatimcopying.p0.s1">You may copy and distribute verbatim copies of the Program's source code
163	161	as you receive it, in any medium, provided that you conspicuously and
164		appropriately publish on each copy an appropriate copyright notice and
165		disclaimer of warranty; keep intact all license notices and notices of the
	162	appropriately publish on each copy an appropriate copyright notice; keep intact all license notices and notices of the
166	163	absence of any warranty; give all recipients of the Program a copy of this
167	164	License along with the Program; and obey any additional terms present on
…	…
176	173	<p id="gpl3.distribmod.p1" name="gpl3.distribmod.p1"><sent id="gpl3.distribmod.p1.s1" name="gpl3.distribmod.p1.s1">a) The modified work must carry prominent notices stating that you
177	174	changed the work and the date of any change. </sent></p>
178		<p id="gpl3.distribmod.p2" name="gpl3.distribmod.p2"><sent id="gpl3.distribmod.p2.s1" name="gpl3.distribmod.p2.s1">b) You must license the entire ~~work based on the Program~~, as a whole,
	175	<p id="gpl3.distribmod.p2" name="gpl3.distribmod.p2"><sent id="gpl3.distribmod.p2.s1" name="gpl3.distribmod.p2.s1">b) You must license the entire modified work, as a whole,
179	176	under this License to anyone who comes into possession of a copy. </sent><sent id="gpl3.distribmod.p2.s2" name="gpl3.distribmod.p2.s2">This
180	177	License must apply, unmodified except as permitted by section 7 below,
…	…
182	179	the work in any other way, but it does not invalidate such permission
183	180	if you have separately received it. </sent></p>
184		<p id="gpl3.distribmod.p3" name="gpl3.distribmod.p3"><sent id="gpl3.distribmod.p3.s1" name="gpl3.distribmod.p3.s1">c) If the modified ~~program~~ has interactive user interfaces, each must
	181	<p id="gpl3.distribmod.p3" name="gpl3.distribmod.p3"><sent id="gpl3.distribmod.p3.s1" name="gpl3.distribmod.p3.s1">c) If the modified work has interactive user interfaces, each must
185	182	include a convenient feature that displays an appropriate copyright
186	183	notice, and tells the user that there is no warranty for the program
187	184	(or that you provide a warranty), that users may redistribute the
188		program under these conditions, and how to view a copy of this License,
189		plus the central list (if any) of other terms in accord with section 7. </sent><sent id="gpl3.distribmod.p3.s2" name="gpl3.distribmod.p3.s2">If the interface presents a list of user commands or options, such as a
	185	program under these conditions, and how to view a copy of this License together with the central list (if any) of other terms in accord with section 7. </sent><sent id="gpl3.distribmod.p3.s2" name="gpl3.distribmod.p3.s2">If the interface presents a list of user commands or options, such as a
190	186	menu, a command to display this information must be prominent in the
191		list. </sent><sent id="gpl3.distribmod.p3.s3" name="gpl3.distribmod.p3.s3">Otherwise, the modified ~~program~~ must display this information at
	187	list. </sent><sent id="gpl3.distribmod.p3.s3" name="gpl3.distribmod.p3.s3">Otherwise, the modified work must display this information at
192	188	startup--except in the case that the Program has such interactive
193	189	modes and does not display this information at startup. </sent></p>
…	…
207	203	exercise the right to control the distribution of derivative or
208	204	collective works based on the Program. </sent></p>
209		<p id="gpl3.distribmod.p6" name="gpl3.distribmod.p6"><sent id="gpl3.distribmod.p6.s1" name="gpl3.distribmod.p6.s1">A compilation of a covered work with other separate and independent
210		documents or works, which are not by their nature extensions of the covered
	205	<p id="gpl3.distribmod.p6" name="gpl3.distribmod.p6"><sent id="gpl3.distribmod.p6.s1" name="gpl3.distribmod.p6.s1">A compilation of a covered work with other separate and independent works, which are not by their nature extensions of the covered
211	206	work, in or on a volume of a storage or distribution medium, is called an
212	207	"aggregate" if the copyright resulting from the compilation is not used to
…	…
269	264	they apply to are present. </sent></p>
270	265	<p id="gpl3.licensecompat.p1" name="gpl3.licensecompat.p1"><sent id="gpl3.licensecompat.p1.s1" name="gpl3.licensecompat.p1.s1">Aside from additional permissions, your terms may add limited kinds of
271		additional requirements on your ~~code~~, as follows: </sent></p>
	266	additional requirements on your added parts, as follows: </sent></p>
272	267	<p id="gpl3.licensecompat.p2" name="gpl3.licensecompat.p2"><sent id="gpl3.licensecompat.p2.s1" name="gpl3.licensecompat.p2.s1">a) They may require the preservation of certain copyright notices, other
273	268	legal notices, and/or author attributions, and may require that the
274		origin of the parts ~~it covers~~ not be misrepresented, and/or that
	269	origin of the parts they cover not be misrepresented, and/or that
275	270	altered versions of them be marked in the source code, or marked there
276	271	in specific reasonable ways, as different from the original version. </sent></p>
…	…
278	273	different from those used in this License. </sent></p>
279	274	<p id="gpl3.licensecompat.p4" name="gpl3.licensecompat.p4"><sent id="gpl3.licensecompat.p4.s1" name="gpl3.licensecompat.p4.s1">c) They may prohibit or limit the use for publicity purposes of specified
280		names of contributors, and it may require that certain specified
	275	names of contributors, and they may require that certain specified
281	276	trademarks be used for publicity purposes only in the ways that are
282	277	fair use under trademark law except with express permission. </sent></p>
283		<p id="gpl3.licensecompat.p5" name="gpl3.licensecompat.p5"><sent id="gpl3.licensecompat.p5.s1" name="gpl3.licensecompat.p5.s1">d) They may require that the ~~program~~ contain functioning facilities that
284		allow users to ~~obtain copies of the program'~~s Complete Corresponding
	278	<p id="gpl3.licensecompat.p5" name="gpl3.licensecompat.p5"><sent id="gpl3.licensecompat.p5.s1" name="gpl3.licensecompat.p5.s1">d) They may require that the work contain functioning facilities that
	279	allow users to immediately obtain copies of its Complete Corresponding
285	280	Source Code. </sent></p>
286	281	<p id="gpl3.licensecompat.p6" name="gpl3.licensecompat.p6"><sent id="gpl3.licensecompat.p6.s1" name="gpl3.licensecompat.p6.s1">e) They may impose software patent retaliation, which means permission
…	…
326	321	if you do not accept this License. </sent><sent id="gpl3.notacontract.p0.s5" name="gpl3.notacontract.p0.s5">Therefore, by modifying or propagating
327	322	the Program (or any covered work), you indicate your acceptance of this
328		License to do so, and all its terms and conditions. </sent></p></section><section id="autolicense" name="autolicense"><p class="sectTitle" id="autolicense.0"><sent id="autolicense.0.0">10.[7] Automatic Licensing of Downstream Users</sent></p>
	323	License to do so, and all its terms and conditions. </sent></p></section><section id="autolicense" name="autolicense"><p class="sectTitle" id="autolicense.0"><sent id="autolicense.0.0">10.[6] Automatic Licensing of Downstream Users</sent></p>
329	324	<p class="sectTitle sub" id="autolicense.0.0.0"><sent id="autolicense.0.0.0.0"></sent></p>
330	325	<p id="gpl3.autolicense.p0" name="gpl3.autolicense.p0"><sent id="gpl3.autolicense.p0.s1" name="gpl3.autolicense.p0.s1">Each time you redistribute a covered work, the recipient automatically
…	…
340	335	the recipient, and to anyone that receives any version of the work,
341	336	permitting, for any and all versions of the covered work, all
342		activities allowed or contemplated by this license, such as
	337	activities allowed or contemplated by this License, such as
343	338	installing, running and distributing versions of the work, and using
344	339	their output. </sent><sent id="gpl3.licensingpatents.p0.s2" name="gpl3.licensingpatents.p0.s2">This patent license is nonexclusive, royalty-free and
…	…
417	412	possibility of such damages. </sent></p></section><section id="nottested" name="nottested"><p class="sectTitle" id="nottested.0"><sent id="nottested.0.0">18</sent></p>
418	413	<p class="sectTitle sub" id="nottested.0.0.0"><sent id="nottested.0.0.0.0"></sent></p>
419		<p id="nottested.p0" name="nottested.p0"><sent id="nottested.p0.s0" name="nottested.p0.s0">Unless specifically stated, this software has not been tested for use
420		in safety critical systems. </sent><sent id="nottested.p0.s1" name="nottested.p0.s1">END OF TERMS AND CONDITIONS </sent></p></section><section id="howtoapply" name="howtoapply"><p class="sectTitle" id="howtoapply.0"><sent id="howtoapply.0.0">How to Apply These Terms to Your New Programs</sent></p>
	414	<p id="nottested.p0" name="nottested.p0"><sent id="nottested.p0.s0" name="nottested.p0.s0">Unless specifically stated, the Program has not been tested for use
	415	in safety critical systems. </sent></p>
	416	<p id="nottested.p1" name="nottested.p1"><sent id="nottested.p1.s0" name="nottested.p1.s0"><strong>END OF TERMS AND CONDITIONS</strong> </sent></p></section><section id="howtoapply" name="howtoapply"><p class="sectTitle" id="howtoapply.0"><sent id="howtoapply.0.0">How to Apply These Terms to Your New Programs</sent></p>
421	417	<p class="sectTitle sub" id="howtoapply.0.0.0"><sent id="howtoapply.0.0.0.0"></sent></p>
422	418	<p id="gpl3.howtoapply.p0" name="gpl3.howtoapply.p0"><sent id="gpl3.howtoapply.p0.s1" name="gpl3.howtoapply.p0.s1">If you develop a new program, and you want it to be of the greatest

trunk/doc-markup-samples/gplv3-draft-1.html

r20	r38
9	9	<body onkeypress="checkKeyPressed(event);" bgcolor="#FFFFFF">
10	10	<div id="topbar" class="topbar">
11		<span id="statustext" class="statustext">Loading comments. If you're still reading this~~, it's a strong indication that we do not properly support your browser yet. You may need to <a href="/comments/email.html">email your comments</a> instead, or try another recent Gecko-based~~ browser.</span><span id="querydiv" style="display:none"></span><span id="login" class="login"></span>
	11	<span id="statustext" class="statustext">Loading comments. If you're still reading this after about 15 seconds, we do not completely support your browser yet. You may need to <a href="/comments/email.html">email your comments</a> instead, or try another recent Gecko-based browser. But you can <a href="http://gplv3.fsf.org/comments/rt/readsay.html?Query=%20'CF.NoteUrl'%20LIKE%20'gplv3-draft-1'%20&Order=DESC">browse</a> and <a href="http://gplv3.fsf.org/comments/rt/changeshown.html?came_from=rt/readsay.html">search</a> comments on any browser.</span><span id="querydiv" style="display:none"></span><span id="login" class="login"></span>
12	12	</div>
13	13	<div class="portlet" id="portlet-dogear"><div class="portletBody"><img alt="" src="http://gplv3.fsf.org/dogear.png"></div></div>
…	…
18	18	<li class="plain"><a href="http://gplv3.fsf.org/wiki/">Wiki</a></li>
19	19	<li class="plain"><a href="http://gplv3.fsf.org/press">Press</a></li>
	20	<li id="portaltab-support" class="plain"><a href="http://gplv3.fsf.org/support">Support</a></li>
20	21	</ul>
21	22	<ul id="portal-personaltools"></ul>

trunk/rtNoAuth/buildquery.html

r31	r38
1	1	%# {{{ BEGIN BPS TAGGED BLOCK
	2	%#
	3	%# Copyright (C) 2006 Software Freedom Law Center, Inc.
	4	%# Author: Orion Montoya <orion@mdcclv.com>
	5	%#
	6	%# This software gives you freedom; it is licensed to you under version
	7	%# 3 of the GNU Affero General Public License, along with the
	8	%# additional permission in the following paragraph.
	9	%#
	10	%# This notice constitutes a grant of such permission as is necessary
	11	%# to combine or link this software, or a modified version of it, with
	12	%# Request Tracker (RT), published by Jesse Vincent and Best Practical
	13	%# Solutions, LLC, or a derivative work of RT, and to copy, modify, and
	14	%# distribute the resulting work. RT is licensed under version 2 of
	15	%# the GNU General Public License.
	16	%#
	17	%# This software is distributed WITHOUT ANY WARRANTY, without even the
	18	%# implied warranties of MERCHANTABILITY and FITNESS FOR A PARTICULAR
	19	%# PURPOSE. See the GNU Affero General Public License for further
	20	%# details.
	21	%#
	22	%# You should have received a copy of the GNU Affero General Public
	23	%# License, version 3, and the GNU General Public License, version 2,
	24	%# along with this software. If not, see <http://www.gnu.org/licenses/>.
2	25	%#
3	26	%# COPYRIGHT:
…	…
44	67	%#
45	68	%# }}} END BPS TAGGED BLOCK
46		%
	69
	70	%# <& /Elements/Header, Title => $title &>
	71	%# <& /Ticket/Elements/Tabs,
	72	%# current_tab => "Search/Build.html".$QueryString,
	73	%# Title => $title,
	74	%# Format => $Format,
	75	%# Query => $Query,
	76	%# Order => $Order,
	77	%# OrderBy => $OrderBy,
	78	%# Rows => $RowsPerPage
	79	%# &>
47	80	<html>
48	81	<head>
49	82	<title>stet query builder</title>
50		%# <link rel="stylesheet" href="/rt/NoAuth/webrt.css" type="text/css">
51		<script type="text/javascript" src="/comments/stet.js"></script>
	83	<link rel="stylesheet" href="/rt/NoAuth/webrt.css" type="text/css">
52	84	</head>
53	85	<body>
54		<FORM METHOD="GET" ACTION="/~~rt/NoAuth/stet-build-query.htm~~l" NAME="BuildQuery">
	86	<FORM METHOD="GET" ACTION="/comments/getnotes.pl" NAME="BuildQuery">
55	87	<input type=hidden name=SearchId value="<%$SearchId%>">
56	88	<input type=hidden name=Query value="<%$Query%>">
57		%# <input type=hidden name=Format value="<%$Format%>">
58		% my $qs;
59		% if (!$came_from) {
60		% $qs = $ENV{'HTTP_REFERER'};
61		% $qs =~ s/(.)\?./$1/;
62		% print STDERR "s-b-q qs $qs\n";
63		% print STDERR "s-b-q H_R ".$ENV{'HTTP_REFERER'}."\n";
64		% print STDERR "s-b-q Q_S ".$ENV{'QUERY_STRING'}."\n";
65		% }
66		% else {
67		% $qs = $came_from;
68		% }
69		<input type=hidden name="came_from" value="<% $qs %>">
70		<% $qs %>
	89	<input type=hidden name=Format value="<%$Format%>">
71	90	<table>
72	91	<tr>
73	92	<td valign=top class="boxcontainer">
74	93	<& Elements/PickCriteria, query => $Query, cfqueues => \%queues &>
75		~~<& /Elements/Submit, Caption => "Do the Search", Label => loc('Search'), Name => 'DoSearch'&>~~
76	94	<& /Elements/Submit, Caption => loc('Add additional criteria'), Label => loc('Add'), Name => 'AddClause'&>
77	95
…	…
778	796	# {{{ Show the results, if we were asked.
779	797	if ( $ARGS{"DoSearch"} ) {
780		# $m->comp("stetwrap.html" , Query => $Query, Format => $Format, Order => $Order, OrderBy => $OrderBy, Rows => $RowsPerPage);
781		my $redirurl = "$came_from?Query=$Query&Order=$Order&OrderBy=$OrderBy&Rows=$RowsPerPage";
782		$m->redirect($redirurl);
	798	$m->comp("Results.html" , Query => $Query, Format => $Format, Order => $Order, OrderBy => $OrderBy, Rows => $RowsPerPage);
783	799	$m->abort();
784	800	}
785
786	801	# }}}
787	802
…	…
813	828	$RowsPerPage => undef
814	829	$HideResults => 0
815		~~$came_from => 'http://gplv3.fsf.org/comments/gplv3-draft-1.xml'~~
816	830	</%ARGS>

trunk/rtNoAuth/change-static.html

r36	r38
1		~~%# {{{ BEGIN BPS TAGGED BLOCK~~
2	1	%#
3	2	%# Copyright (C) 2006 Software Freedom Law Center, Inc.
…	…
23	22	%# License, version 3, and the GNU General Public License, version 2,
24	23	%# along with this software. If not, see <http://www.gnu.org/licenses/>.
25		%#
26		~~%# COPYRIGHT:~~
27		%#
28		~~%# This software is Copyright (c) 1996-2004 Best Practical Solutions, LLC~~
29		~~%# <jesse@bestpractical.com>~~
30		%#
31		~~%# (Except where explicitly superseded by other copyright notices)~~
32		%#
33		%#
34		~~%# LICENSE:~~
35		%#
36		~~%# This work is made available to you under the terms of Version 2 of~~
37		~~%# the GNU General Public License. A copy of that license should have~~
38		~~%# been provided with this software, but in any event can be snarfed~~
39		~~%# from www.gnu.org.~~
40		%#
41		~~%# This work is distributed in the hope that it will be useful, but~~
42		~~%# WITHOUT ANY WARRANTY; without even the implied warranty of~~
43		~~%# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU~~
44		~~%# General Public License for more details.~~
45		%#
46		~~%# You should have received a copy of the GNU General Public License~~
47		~~%# along with this program; if not, write to the Free Software~~
48		~~%# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.~~
49		%#
50		%#
51		~~%# }}} END BPS TAGGED BLOCK~~
52		%
53	24	<html>
54	25	<head>
…	…
68	39	<& header.html &>
69	40	<div id="maintext">
70		<FORM METHOD="GET" ACTION="/~~comments/rt~~/changeshown.html" NAME="BuildQuery">
	41	<FORM METHOD="GET" ACTION="/rt/NoAuth/changeshown.html" NAME="BuildQuery">
71	42	<input type=hidden name=SearchId value="new">
72	43	<input type=hidden name=Query value="">
…	…
201	172
202	173	<tr><td class=label align="right">
203		File~~name~~ commented on
	174	File commented on
204	175	</td>
205	176	<td>
206	177	<SELECT disabled NAME ="'CF.NoteUrl'Op">
207	178	<OPTION VALUE="LIKE"
208		>~~matche~~s</OPTION>
	179	>contains</OPTION>
209	180	<OPTION VALUE="NOT LIKE"
210	181	>doesn't contain</OPTION>
…	…
339	310	</TD>
340	311	<TD ALIGN=RIGHT VALIGN=CENTER>
341		<~~B>Find comments</b~~> <INPUT TYPE=SUBMIT
	312	<!-- <B>Do the Search</B> --> <INPUT TYPE=SUBMIT
342	313	NAME="DoSearch"
343	314	VALUE='Search'>

trunk/rtNoAuth/changeshown-devel.html

r34	r38
66	66	</span><span id="login" class="login">you could <a href="http://gplv3.fsf.org/login_form?came_from=/comments/rt/changeshown.html">login</a></span></div>
67	67	% }
68		<& header.html &>
	68	<& header.html, name => $name &>
69	69	<div id="maintext">
70	70	<FORM METHOD="GET" ACTION="/comments/rt/changeshown.html" NAME="BuildQuery">
…	…
81	81	% $qs =~ s/(.html\|.xml)$//;
82	82	<h3 class="searchheader">Search for comments on <% $qs %></h3>
83		<input type=hidden name="came_from" value="<% $qs %>">
	83	<input type=hidden name="came_from" value="<% $came_from %>">
84	84	<table>
85	85	<tr>
…	…
117	117	<OPTION VALUE="Issues" >Issues
118	118	</OPTION>
	119	% my $drafterQ = RT::Queue->new($CurrentUser);
	120	% $drafterQ->Load('Drafter');
	121	% if ($drafterQ->CurrentUserHasRight('SeeQueue')) {
	122	<OPTION VALUE="Drafter">Drafters' comments</OPTION>
	123	% }
119	124	</SELECT>
120	125	</td></tr>
…	…
220	225	</td>
221	226	<td>
222		<input disabled name="ValueOf'CF.NoteUrl'" size="20" value="~~<% $qs %>~~">
	227	<input disabled name="ValueOf'CF.NoteUrl'" size="20" value="gplv3-draft-1">
223	228	</td></tr>
224	229
225	230	<input type="hidden" NAME="'CF.NoteUrl'Op" VALUE="LIKE">
226		<input type="hidden" name="ValueOf'CF.NoteUrl'" value="~~<% $qs %>~~">
	231	<input type="hidden" name="ValueOf'CF.NoteUrl'" value="gplv3-draft-1">
227	232
228	233
…	…
1053	1058	$RowsPerPage => 30
1054	1059	$HideResults => 0
1055		$came_from => 'http://gplv3.fsf.org/comments/~~gplv3-draft-1.xml~~'
	1060	$came_from => 'http://gplv3.fsf.org/comments/debug'
1056	1061	$Delete => 1
1057	1062	$NewQuery => 1

trunk/rtNoAuth/changeshown.html

r14	r38
66	66	</span><span id="login" class="login">you could <a href="http://gplv3.fsf.org/login_form?came_from=/comments/rt/changeshown.html">login</a></span></div>
67	67	% }
68		<& header.html &>
	68	<& header.html, name => $name &>
69	69	<div id="maintext">
70	70	<FORM METHOD="GET" ACTION="/comments/rt/changeshown.html" NAME="BuildQuery">
…	…
81	81	% $qs =~ s/(.html\|.xml)$//;
82	82	<h3 class="searchheader">Search for comments on <% $qs %></h3>
83		<input type=hidden name="came_from" value="<% $qs %>">
	83	<input type=hidden name="came_from" value="<% $came_from %>">
84	84	<table>
85	85	<tr>
…	…
117	117	<OPTION VALUE="Issues" >Issues
118	118	</OPTION>
	119	% my $drafterQ = RT::Queue->new($CurrentUser);
	120	% $drafterQ->Load('Drafter');
	121	% if ($drafterQ->CurrentUserHasRight('SeeQueue')) {
	122	<OPTION VALUE="Drafter">Drafters' comments</OPTION>
	123	% }
119	124	</SELECT>
120	125	</td></tr>
…	…
220	225	</td>
221	226	<td>
222		<input disabled name="ValueOf'CF.NoteUrl'" size="20" value="~~<% $qs %>~~">
	227	<input disabled name="ValueOf'CF.NoteUrl'" size="20" value="gplv3-draft-1">
223	228	</td></tr>
224	229
225	230	<input type="hidden" NAME="'CF.NoteUrl'Op" VALUE="LIKE">
226		<input type="hidden" name="ValueOf'CF.NoteUrl'" value="~~<% $qs %>~~">
	231	<input type="hidden" name="ValueOf'CF.NoteUrl'" value="gplv3-draft-1">
227	232
228	233

trunk/rtNoAuth/header-devel.html

r30	r38
18	18	<li class="plain">
19	19	<a href="http://gplv3.fsf.org/press/">Press</a></li>
	20	<li id="portaltab-support" class="plain">
	21	<a href="http://gplv3.fsf.org/support">Support</a></li>
20	22	</ul>
21	23
22	24	<ul id="portal-personaltools">
	25	<li class="portalUser">
	26	% if ($name) {
	27	<% $name %> </li>
	28	<li> <a href="http://gplv3.fsf.org/plone_memberprefs_panel">
	29	Preferences</a> </li>
	30	<li> <a href="http://gplv3.fsf.org/undo_form"> Undo </a> </li>
	31	<li> <a href="http://gplv3.fsf.org/logout"> Log out </a> </li>
	32	% } else {
	33	<a href="http://gplv3.fsf.org/login_form?came_from=/comments/rt/stats/2006-02-02.html">Log in</a></li>
	34	<li>
	35	<a href="https://www.fsf.org/register_form?came_from=/comments/rt/stats/2006-02-02.html">Register</a></li>
	36	%}
	37
23	38	</ul>
	39	<%ARGS>
	40	$name => undef
	41	</%ARGS>

trunk/rtNoAuth/header.html

r23	r38
18	18	<li class="plain">
19	19	<a href="http://gplv3.fsf.org/press/">Press</a></li>
	20	<li id="portaltab-support" class="plain">
	21	<a href="http://gplv3.fsf.org/support">Support</a></li>
20	22	</ul>
21	23
22	24	<ul id="portal-personaltools">
	25	<li class="portalUser">
	26	% if ($name) {
	27	<% $name %> </li>
	28	<li> <a href="http://gplv3.fsf.org/plone_memberprefs_panel">
	29	Preferences</a> </li>
	30	<li> <a href="http://gplv3.fsf.org/undo_form"> Undo </a> </li>
	31	<li> <a href="http://gplv3.fsf.org/logout"> Log out </a> </li>
	32	% } else {
	33	<a href="http://gplv3.fsf.org/login_form?came_from=/comments/rt/stats/2006-02-02.html">Log in</a></li>
	34	<li>
	35	<a href="https://www.fsf.org/register_form?came_from=/comments/rt/stats/2006-02-02.html">Register</a></li>
	36	%}
	37
23	38	</ul>
	39	<%ARGS>
	40	$name => undef
	41	</%ARGS>

trunk/rtNoAuth/more-ploneish-header.html

r35	r38
18	18	<li class="plain">
19	19	<a href="http://gplv3.fsf.org/press/">Press</a></li>
	20	<li id="portaltab-support" class="plain">
	21	<a href="http://gplv3.fsf.org/support">Support</a></li>
20	22	</ul>
21	23
22		<ul id="portal-personaltools">
23		</ul>
	24

trunk/rtNoAuth/readsay-devel.html

r29	r38
22	22	%# along with this software. If not, see <http://www.gnu.org/licenses/>.
23	23	%
	24	%
	25	% sub displayTicket($$$);
	26	%
	27	<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
24	28	<html>
25	29	<head>
26		~~<title>read GPLv3 comments: <% humanQuery($ARGS{'Query'})~~ %></title>
27		~~<link rel="stylesheet" type="text/css" href="/comments/stet.css"~~/>
	30	<title>read GPLv3 comments: <% humanQuery($ARGS{'Query'}) \|\| $ARGS{'id'} %></title>
	31	<link rel="stylesheet" type="text/css" href="/comments/stet.css" />
28	32	</head>
29	33	<body>
…	…
31	35	<span id="statustext" class="statustext">
32	36	% if ($Tickets) {
33		Showing comments where <% humanQuery($ARGS{'Query'}) \|n %> (Found <% $Tickets->CountAll()%>) <br/> <a class="rsslink" href="<% $rsslink %>">[rss]</a> <a href="/comments/<% stripCrap($Tickets->First->FirstCustomFieldValue('NoteUrl')) %>?Query=<% $ARGS{'Query'} %>">[see on license]</a> <a href="/comments/rt/changeshown.html?came_from=<% stripCrap($Tickets->First->FirstCustomFieldValue('NoteUrl')) %>">change</a>
34		% } else {
35		Showing comment <a href="/comments/rt/readsay.html?id=<% $ARGS{'id'} %>"><% $ARGS{'id'} %></a> <a class="rsslink" href="<% $rsslink %>">[rss]</a> <a href="/comments/<% stripCrap($Ticket->FirstCustomFieldValue('NoteUrl')) %>?id=<% $ARGS{'id'} %>#<% $Ticket->FirstCustomFieldValue('NoteStartNodeId') %>">[see on license]</a> <a href="/comments/rt/changeshown.html?came_from=<% stripCrap($Ticket->FirstCustomFieldValue('NoteUrl')) %>">change</a>
	37	Showing comments <% humanQuery($ARGS{'Query'}) \|n %> <a class="rsslink" href="<% $rsslink %>">[rss]</a> <a href="/comments/<% stripCrap($Tickets->First->FirstCustomFieldValue('NoteUrl')) %>?Query=<% $ARGS{'Query'} %>">[see on license]</a> <br/>
	38	( found <% $Tickets->CountAll()%>, showing newest <% $StartAt %>-<% (($StartAt + $Rows) > $Tickets->CountAll()) ? $Tickets->CountAll() : ($StartAt + $Rows - 1) %>:
	39	% if ($Tickets->CountAll() > $Rows) {
	40	% if ($StartAt > 1 ) {
	41	<a href="/comments/rt/readsay.html?Query=<% $ARGS{'Query'} \|n %>&Rows=<%$Rows%>&StartAt=<% (($StartAt - $Rows) < 0) ? 1 : ($StartAt - $Rows) \|n%>">prev <% $Rows %></a>
	42	% }
	43	% if (($Tickets->CountAll() > $Rows) && ($Tickets->CountAll() < $StartAt + $Rows)) {
	44	\|
	45	% }
	46	% if ($Tickets->CountAll() > $StartAt + $Rows) {
	47	<a href="/comments/rt/readsay.html?Query=<% $ARGS{'Query'} \|n %>&Rows=<%$Rows%>&StartAt=<% $StartAt + $Rows %>">next <% $Rows %></a>
	48	% }
	49	%}
	50	)
	51	<a href="/comments/rt/changeshown.html?came_from=rt/readsay.html">search</a>
	52	<%perl>
	53	$Tickets->GotoFirstItem;
	54	if ($StartAt > 1) {
	55	for (my $i = 0; $i < $StartAt; $i++) {
	56	$Tickets->Next;
	57	}
	58	}
	59	</%perl>
	60	% } elsif ($Ticket) {
	61	Showing comment <a href="/comments/rt/readsay.html?id=<% $ARGS{'id'} %>"><% $ARGS{'id'} %></a> <a class="rsslink" href="<% $rsslink %>">[rss]</a> <a href="/comments/<% stripCrap($Ticket->FirstCustomFieldValue('NoteUrl')) %>?id=<% $ARGS{'id'} %>#<% $Ticket->FirstCustomFieldValue('NoteStartNodeId') %>">[see on license]</a> <a href="/comments/rt/changeshown.html?came_from=<% stripCrap($Ticket->FirstCustomFieldValue('NoteUrl')) %>">search</a>
36	62	% }
37	63	% if ($name) {
…	…
40	66	</span><span id="login" class="login">you could <a href="http://gplv3.fsf.org/login_form?came_from=/comments/rt/readsay.html?<% $Tickets ? 'Query='.$ARGS{'Query'} : 'id='.$ARGS{'id'} %>">login</a></span></div>
41	67	% }
42		<& header~~.html~~ &>
	68	<& header-devel.html, name => $name &>
43	69	<div id="readsaymain">
44	70	<span id="listactions">
…	…
47	73	%
48	74	% while (my $item = $Tickets ? $Tickets->Next : $Ticket) {
	75	% my $showactions = $Tickets ? 0 : 1;
	76	<% displayTicket(\$item,$showactions,0) %>
	77	% $Ticket = '';
	78	% $rc++;
	79	% if ($rc == (($StartAt + $Rows) - 1)) {
	80	% $Tickets = '';
	81	% }
	82	% }
	83	<!-- <div id="bottombar"><a href="stet-latest.tar.gz">get the latest source code for this comment system</a></div> -->
	84	%
	85	% sub displayTicket($$$) {
	86	% my $itemref = shift;
	87	% my $item = $$itemref;
	88	% my $showactions = shift;
	89	% my $deletelink = shift;
	90	% if ($item->QueueObj->CurrentUserHasRight('SeeQueue')) {
49	91	<div class="onecomment">
50
51		<h4><% thingType(\$item) %> <a href="readsay.html?id=<% $item->id %>"><% $item->id %>: <% $item->Subject %></a></h4>
52		<span class="tktheader">Regarding the text:</span> <span class="ontextText"><% $scrubber->scrub($item->FirstCustomFieldValue('NoteSelection')) %></span><br/>
53		In section: <span class="nodeLink"><a href="/comments/rt/readsay.html?Query=%20'CF.NoteStartNodeId'%20LIKE%20'<% $scrubber->scrub($item->FirstCustomFieldValue('NoteStartNodeId')) %>'%20AND%20'CF.NoteUrl'%20LIKE%20'<%stripCrap($item->FirstCustomFieldValue('NoteUrl'))%>'%20"><% $scrubber->scrub($item->FirstCustomFieldValue('NoteStartNodeId')) %></a></span><br/>
	92	<h4><% thingType(\$item) %> <a href="readsay.html?id=<% $item->id %>"><% $item->id %>: <% $item->Subject %></a>
	93	% if (($HasIssueRights) && ($showactions) && ($deletelink)) {
	94	<span class="TktInput">[dissociate: <INPUT TYPE=CHECKBOX NAME="<% $deletelink %>" value="1">]</span>
	95	% }
	96	</h4>
	97	% if (!$deletelink) {
	98	% while (my $link = $item->MemberOf->Next) {
	99	<span class="formHelpIsh">This <% thingType(\$item) %> is part of the discussion on:<br/> #<& Elements/ShowLink, URI => $link->TargetURI, StetId => $link->id &></span><span class="TktInput">
	100	%
	101	% if ($HasIssueRights == 1) {
	102	<span class="TktInput">[dissociate from parent: <INPUT TYPE=CHECKBOX NAME="DeleteLink--<% $link->Type %>-<% $link->Target %>" value="1">]</span>
	103	% }
	104	<br/>
	105	% }
	106
	107	% }
	108	<br/>
	109	<span class="formHelpIsh">Regarding the text:</span> <span class="ontextText"><q><% $scrubber->scrub($item->FirstCustomFieldValue('NoteSelection')) %></q></span><br/>
	110	<span class="formHelpIsh">In section: <span class="nodeLink"><a href="/comments/rt/readsay.html?Query=%20'CF.NoteStartNodeId'%20LIKE%20'<% $scrubber->scrub($item->FirstCustomFieldValue('NoteStartNodeId')) %>'%20AND%20'CF.NoteUrl'%20LIKE%20'<%stripCrap($item->FirstCustomFieldValue('NoteUrl'))%>'%20"><% $scrubber->scrub($item->FirstCustomFieldValue('NoteStartNodeId')) %></a></span></span><br/>
54	111	%# In section: <span class="nodeLink"><a href="/comments/<%stripCrap($item->FirstCustomFieldValue('NoteUrl'))%>?Query=%20'CF.NoteStartNodeId'%20LIKE%20'<% $scrubber->scrub($item->FirstCustomFieldValue('NoteStartNodeId')) %>'%20AND%20'CF.NoteUrl'%20LIKE%20'<%stripCrap($item->FirstCustomFieldValue('NoteUrl'))%>'%20"><% $scrubber->scrub($item->FirstCustomFieldValue('NoteStartNodeId')) %></a></span><br/>
55		Submitted by: <a href="/comments/<%stripCrap($item->FirstCustomFieldValue('NoteUrl'))%>?Query=%20Requestor.Name%20LIKE%20'<% $item->CreatorObj->Name %>'%20AND%20'CF.NoteUrl'%20LIKE%20'<%stripCrap($item->FirstCustomFieldValue('NoteUrl'))%>'%20"><% $item->CreatorObj->Name %></a><br/>
	112	<span class="formHelpIsh">Submitted by: <% userlink(\$item, \$item) \|n%> <span class="date">on <% doDate(\$item) %></span></span><br/>
56	113	%# my ($agrees,$agr_count) = showAgree(\$item);
57	114	%# print STDERR "agree is $agree\n";
58	115	%# <% $agree \|n %><br/>
59	116	%# <span class="agreecount"><% $agr_count %> agree</span></span><br/>
60		comments: <% getThread(\$item) \|n %><br/>
61		% if ($Ticket) {
	117	%# comments:<br/>
	118	<br/>
	119	<% getThread(\$item) \|n %>
	120
	121	% if ($item->Members->GotoFirstItem) {
	122	<em>this <% thingType(\$item) %> does not have any children </em><br/>
	123	% }
	124	<br/>
	125	% while (my $link = $item->Members->Next) {
	126	<span class="TktLabel">Child comment of <% $item->id %>:</span>
	127	% my $child = RT::Ticket->new($CurrentUser);
	128	% $child->Load($link->BaseURI->Object->id);
	129	% my $deletelink = "DeleteLink-". $link->Base ."-". $link->Type;
	130	<% displayTicket(\$child,$showactions,$deletelink) %>
	131	% }
	132
	133	% if (($HasIssueRights) && ($showactions) && (!$deletelink)) {
	134	<br/>
	135	<span class="TktLabel">Children:</span><br/>
	136	<span class="TktInput indent">add new: <INPUT NAME="MemberOf-<% $item->id %>"> <span class="inputcaption">[comment id numbers, space separated]</span></span>
	137	% }
	138	% if (($showactions) & (!$deletelink)){
62	139	% if ($resp == 1) {
63	140	<form action="readsay.html" method="POST" name="TicketUpdate" enctype="multipart/form-data">
64	141	<input type="hidden" name="id" value="<% $item->id %>">
65	142	% }
	143
	144	% if ($HasIssueRights) {
66	145	<span class="TktLabel">Parents:</span>
67		~~% if ($item->MemberOf->GotoFirstItem) {~~
68		~~<em>this <% thingType(\$item) %> does not have any parents </em><br/>~~
69		~~% }~~
70		~~<br>~~
71		~~% while (my $link = $item->MemberOf->Next) {~~
72		~~<& Elements/ShowLink, URI => $link->TargetURI, StetId => $link->id &><span class="TktInput">~~
73		~~% if ($HasIssueRights == 1) {~~
74		~~<span class="TktInput">[delete: <INPUT TYPE=CHECKBOX NAME="DeleteLink--<% $link->Type %>-<% $link->Target %>" value="1">]</span>~~
75		~~% }~~
76		~~<br/>~~
77		~~% }~~
78		~~% if ($HasIssueRights) {~~
79	146	<span class="TktInput indent">add new: <INPUT NAME="<% $item->id %>-MemberOf"> <span class="inputcaption">[comment id numbers, space separated]</span></span>
80		~~% }~~
81		~~<br/>~~
82		~~<span class="TktLabel">Children:</span>~~
83		~~% if ($item->Members->GotoFirstItem) {~~
84		~~<em>this <% thingType(\$item) %> does not have any children </em><br/>~~
85		~~% }~~
86		~~<br/>~~
87		~~% while (my $link = $item->Members->Next) {~~
88		~~<& Elements/ShowLink, URI => $link->BaseURI, StetId => $link->id &></span>~~
89		~~% if ($HasIssueRights) {~~
90		~~<span class="TktInput">[delete: <INPUT TYPE=CHECKBOX NAME="DeleteLink-<% $link->Base %>-<% $link->Type %>" value="1">]</span>~~
91		~~% }~~
92		~~<br/>~~
93		~~% }~~
94		~~% if ($HasIssueRights) {~~
95		~~<span class="TktInput indent">add new: <INPUT NAME="MemberOf-<% $item->id %>"> <span class="inputcaption">[comment id numbers, space separated]</span></span>~~
96	147	% }
97	148	<br/>
…	…
100	151	<em>this <% thingType(\$item) %> does not link to any external resources</em>
101	152	% }
102		<br/>
	153	<br/>
103	154	% while (my $link = $item->RefersTo->Next) {
104	155	<A HREF="<% $link->Target %>"><% $link->Target %></A>
…	…
106	157	<span class="TktInput">[delete: <INPUT TYPE=CHECKBOX NAME="DeleteLink-<% $link->Base %>-<% $link->Type %>" value="1">]</span>
107	158	% }
108		<br/>
	159	<br/>
109	160	% }
110	161	%
…	…
112	163	<span class="TktInput indent">link to external item(s): <INPUT NAME="<% $item->id %>-RefersTo"> <span class="inputcaption">[URIs with protocol://, space separated]</span></span><br/>
113	164	% }
	165
	166	% my $DiscussGrpObj = RT::CustomField->new($CurrentUser);
	167	% $DiscussGrpObj->Load(8);
	168	% our $Values = $item->CustomFieldValues($DiscussGrpObj->id);
	169	% our $GroupNames = $DiscussGrpObj->Values();
	170	<br>
	171	<span class="TktLabel">Current Committees:</span>
	172	% while (my $Committee = $GroupNames->Next) {
	173	<% $Values->HasEntry($Committee->Name) && $Committee->Name %>
	174	% }
	175	<br>
114	176	%#### customfield picker doesn't show which groups are related
115	177	% if ($HasIssueRights) {
116	178	% my $groupRows = 7;
117		% my $CustomField = RT::CustomField->new($CurrentUser);
118		% $CustomField->Load(8);
119		% my $Values = $item->CustomFieldValues($CustomField->id);
120		<br>&nbsp
121		<span class="groupselect"><span class="TktLabel select">Discussion Groups</span>
122		% if (($HasIssueRights) && ($item->Queue != $issuequeue)) {
123		<input type="checkbox" value="1" name="MakeIssue"/><span class="TktLabel">Upgrade this to an Issue</span><br/>
124		% }
125		<br>
126		<input type="hidden" name="Ticket-<% $item->id %>-CustomField-<%$CustomField->Id%>-Values-Magic" value="1">
127		<span class="TktInput indent"><select name="Ticket-<% $item->id %>-CustomField-<%$CustomField->Id%>-Values"
	179	<span class="groupselect"><span class="TktLabel select">Change Committees:</span>
	180	<br>
	181	<input type="hidden" name="Ticket-<% $item->id %>-CustomField-<%$DiscussGrpObj->Id%>-Values-Magic" value="1">
	182	<span class="TktInput indent"><select name="Ticket-<% $item->id %>-CustomField-<%$DiscussGrpObj->Id%>-Values"
128	183	size="<%$groupRows%>"
129		<%$~~CustomField~~->Type eq 'SelectMultiple' && 'MULTIPLE'%>>
130		% my $CustomFieldValues = $~~CustomField~~->Values();
	184	<%$DiscussGrpObj->Type eq 'SelectMultiple' && 'MULTIPLE'%>>
	185	% my $CustomFieldValues = $DiscussGrpObj->Values();
131	186	% my $selected;
132	187	% while (my $value = $CustomFieldValues->Next) {
…	…
139	194	<option value="" <% !$selected && 'SELECTED' %>><&\|/l&>(no value)</&></option>
140	195	</select><br/></span>
141
142		% }
	196	%
	197	% if (($HasIssueRights) && ($item->Queue != $issuequeue)) {
	198	<input type="checkbox" value="1" name="MakeIssue"/><span class="TktLabel"> Upgrade this to an Issue</span><br/>
	199	% }
	200	% if (($HasIssueRights) && ($item->Queue == $issuequeue)) {
	201	<input type="checkbox" value="1" name="NonIssue"/><span class="TktLabel"> Downgrade this Issue to a Comment</span><br/>
	202	% }
	203	% if ($item->OwnerObj->Name =~ "Nobody") {
	204	<input type="checkbox" name="Take" value="Take"> <span class="TktLabel">Take personal ownership of this ticket</span><br/>
	205	% }
	206	% }
	207	% if ($item->OwnerObj->Name !~ "Nobody") {
	208	<span class="TktLabel">This ticket is owned by</span> <% $item->OwnerObj->Name eq $name ? "<em>you</em>" : $item->OwnerObj->Name \|n %>
	209	%# of Committee <% $item->OwnerObj->Organization %>
	210	% if (($HasIssueRights) && ($item->OwnerObj->Name != $name)) {
	211	<input type="checkbox" name="Steal" value="Steal"> steal
	212	% }
	213	% elsif (($HasIssueRights) && ($item->OwnerObj->Name =~ $name)) {
	214	<input type="checkbox" name="Untake" value="Untake"> disown
	215	% }
	216	% }
	217	<br>
143	218	% if ($resp == 1) {
144	219	<input type=hidden name="UpdateType" value="public">
145		~~Add comments:~~ <br/>
	220	<span class="TktLabel">Add comments:</span> <br/>
146	221	<textarea class="messagebox" COLS=72 ROWS=15 WRAP=HARD NAME="UpdateContent" onfocus="if(this.value=='Enter additional comments here') {this.value='';}" onblur="if(this.value==''){this.value='Enter additional comments here';}"></textarea><br/>
147	222	% if ($HasIssueRights) {
…	…
152	227	% } # should close "if $resp == 1" after picker
153	228	% }
154		</div>
155		% $Ticket = "";
156		% }
157		</div>
	229	</div>
	230	% }
	231	% else {
	232	<div class="onecomment formHelpIsh">You do not have permission to view comment number <% $item->id %><br/> <br/></div>
	233
	234	% }
	235	% return '';
	236	% }
158	237	</body>
159	238	</html>
160	239	<%INIT>
161		~~###return if $m->cache_self(expire_in => '10 min', [key => 'fookey']);~~
162	240	use CGI qw/:standard/;
163	241	use HTML::Scrubber;
164		my $scrubber = HTML::Scrubber->new( allow => [ qw[ a b i u br ] ] );
	242	our $scrubber = HTML::Scrubber->new( allow => [ qw[ a b i u br ] ] );
165	243	require "/var/www/stet/stetsubs.pl";
166		my $issuequeue = 5;
167
168		my ($name, $resp, $pass, $agr_vals, $CurrentUser, $thing);
	244	our $issuequeue = 5;
	245	my $rc = 0;
	246	our ($name, $resp, $CurrentUser, $HasIssueRights);
	247	my ($pass, $agr_vals, $thing);
169	248	($Cu

stet

Navigation

Changeset 38

Legend: