[Rt-commit] [svn] r1738 - in rt/branches/3.3-TESTING: . html/Elements html/Elements/CollectionAsTable html/Elements/RT__Ticket html/NoAuth html/Search lib/RT

jesse at pallas.eruditorum.org jesse at pallas.eruditorum.org
Sun Nov 7 10:08:08 EST 2004


Author: jesse
Date: Sun Nov  7 10:08:08 2004
New Revision: 1738

Modified:
   rt/branches/3.3-TESTING/   (props changed)
   rt/branches/3.3-TESTING/html/Elements/CollectionAsTable/Header
   rt/branches/3.3-TESTING/html/Elements/RT__Ticket/ColumnMap
   rt/branches/3.3-TESTING/html/Elements/TicketList
   rt/branches/3.3-TESTING/html/NoAuth/webrt.css
   rt/branches/3.3-TESTING/html/Search/Results.html
   rt/branches/3.3-TESTING/lib/RT/Principal_Overlay.pm
Log:
 r6198 at tinbook:  jesse | 2004-11-07T04:18:22.934311Z
 Devel: Changed severity of calling Principal->HasRight without a Right


Modified: rt/branches/3.3-TESTING/html/Elements/CollectionAsTable/Header
==============================================================================
--- rt/branches/3.3-TESTING/html/Elements/CollectionAsTable/Header	(original)
+++ rt/branches/3.3-TESTING/html/Elements/CollectionAsTable/Header	Sun Nov  7 10:08:08 2004
@@ -32,7 +32,7 @@
 $Page => undef
 $maxitems => undef
 </%ARGS>
-<TR>
+<TR class="collection-as-table">
 <%perl>
 
 my %generic_query_args = ( Query => $Query, Rows => $Rows, Page => $Page );
@@ -43,7 +43,7 @@
     $item++;
     $$maxitems = $item if $item > $$maxitems;
     if ( $col->{title} eq 'NEWLINE' ) {
-        $m->out('</TR>       <TR>');
+        $m->out(qq{</TR>\n<TR class="collection-as-table">});
 	$item = 0;
     }
     else {

Modified: rt/branches/3.3-TESTING/html/Elements/RT__Ticket/ColumnMap
==============================================================================

Modified: rt/branches/3.3-TESTING/html/Elements/TicketList
==============================================================================
--- rt/branches/3.3-TESTING/html/Elements/TicketList	(original)
+++ rt/branches/3.3-TESTING/html/Elements/TicketList	Sun Nov  7 10:08:08 2004
@@ -22,17 +22,7 @@
 %# 
 %# END LICENSE BLOCK
 
-% if ($ShowNavigation) {
-%     my $FirstItem = $maxitems*($Page-1)+1;
-%     my $LastItem = $FirstItem + $Rows - 1;
-<&|/l, $FirstItem, $LastItem&>Results [_1] to [_2]</&>
-% }
-
-%# If you're having TicketList display a single record, you need
-%# to wrap the calls in your own table(s).
-% unless (defined $SingleRecord) {
 <TABLE BORDER=0 cellspacing=0 cellpadding=1 WIDTH=100%>
-% }
 
 % if ($ShowHeader) {
 <& /Elements/CollectionAsTable/Header, 
@@ -47,39 +37,37 @@
     maxitems => \$maxitems &> 
 % }
 
-% if (defined $SingleRecord) {
-<&   /Elements/CollectionAsTable/Row, Format => \@Format, i => 0, record => $SingleRecord, maxitems => $maxitems &>
-% } else {
 %   my $i;
 %   while (my $record = $Collection->Next) {
 %   $i++;
 <&   /Elements/CollectionAsTable/Row, Format => \@Format, i => $i, record => $record, maxitems => $maxitems &>
 %   }
-% }
 
-% unless (defined $SingleRecord) {
 </TABLE>
-% }
 
 % if ($Rows && $ShowNavigation) {
 <hr>
 <&|/l, $Page, int($TotalFound/$Rows)+1&>Page [_1] of [_2]</&>
 
 <%perl>
-my $prev =  $m->comp('/Elements/QueryString',
-                     Query => $Query,
-                     Format => $Format,
-                     Rows => $Rows,
-                     OrderBy => $OrderBy,
-                     Order => $Order,
-                     Page => ($Page-1));
-my $next =  $m->comp('/Elements/QueryString',
-                     Query => $Query,
-                     Format => $Format,
-                     Rows => $Rows,
-                     OrderBy => $OrderBy,
-                     Order => $Order,
-                     Page => ($Page+1));
+my $prev = $m->comp(
+    '/Elements/QueryString',
+    Query   => $Query,
+    Format  => $Format,
+    Rows    => $Rows,
+    OrderBy => $OrderBy,
+    Order   => $Order,
+    Page    => ( $Page - 1 )
+);
+my $next = $m->comp(
+    '/Elements/QueryString',
+    Query   => $Query,
+    Format  => $Format,
+    Rows    => $Rows,
+    OrderBy => $OrderBy,
+    Order   => $Order,
+    Page    => ( $Page + 1 )
+);
 </%perl>
 % if ($Page > 1) {
 <A href="<%$BaseURL%><%$prev%>"><&|/l&>Previous Page</&></a>
@@ -115,7 +103,6 @@
 $Page => 1
 $Title => 'Ticket Search'
 $Collection => undef
-$SingleRecord => undef
 $AllowSorting => undef
 $Order => undef
 $OrderBy => undef

Modified: rt/branches/3.3-TESTING/html/NoAuth/webrt.css
==============================================================================
--- rt/branches/3.3-TESTING/html/NoAuth/webrt.css	(original)
+++ rt/branches/3.3-TESTING/html/NoAuth/webrt.css	Sun Nov  7 10:08:08 2004
@@ -551,27 +551,11 @@
   /* color: #990; */
 }
 
-ADDRESS { 
-  text-align: right;
-  font-weight: bold;
-  font-style: italic 
-}
-
-BLOCKQUOTE P {			/* Try to avoid space above the attribution */
-  margin-bottom: 0;
-}
-BLOCKQUOTE ADDRESS {
-  margin: 0;
-}
-
-
 .emphasized {
   font-weight: bold
 }
 
 
-P.map-also { font-style: italic; margin-left: 15%; text-align: right }
-
 .oddline { 
         background-color : #ccccee;
 }
@@ -599,9 +583,21 @@
 	margin-top: .5em;
 }
 
-TH.collection-as-table {  text-align: center;}
-
-TD.collection-as-table {  text-align: left;}
+TH.collection-as-table {  text-align: center;
+                          font-size: 0.8em; 
+                          padding-left: .5em;
+                          padding-right: .5em;
+                          color: #333333;
+                          background-color: #999999;
+                          white-space: nowrap;
+                          border-collapse: collapse;
+                          border-bottom: solid #999999 1px; 
+                  }
+
+TD.collection-as-table {  text-align: left;
+                          padding-left: .5em;
+                          padding-right: .5em;
+                        }
 
 %# Provide a callback for adding/modifying the style sheet.
 %# http://www.w3.org/TR/REC-CSS1 - section 3.2, says:

Modified: rt/branches/3.3-TESTING/html/Search/Results.html
==============================================================================
--- rt/branches/3.3-TESTING/html/Search/Results.html	(original)
+++ rt/branches/3.3-TESTING/html/Search/Results.html	Sun Nov  7 10:08:08 2004
@@ -52,7 +52,6 @@
     Rows => $Rows,
     OrderBy => $OrderBy,
     Order => $Order &>
-<hr>
 <& /Elements/TicketList, 
     Query => $Query,
     AllowSorting => 1,

Modified: rt/branches/3.3-TESTING/lib/RT/Principal_Overlay.pm
==============================================================================
--- rt/branches/3.3-TESTING/lib/RT/Principal_Overlay.pm	(original)
+++ rt/branches/3.3-TESTING/lib/RT/Principal_Overlay.pm	Sun Nov  7 10:08:08 2004
@@ -43,7 +43,9 @@
 # those contributions and any derivatives thereof.
 # 
 # }}} END BPS TAGGED BLOCK
+#
 use strict;
+use warnings;
 
 no warnings qw(redefine);
 use vars qw(%_ACL_KEY_CACHE);
@@ -252,8 +254,7 @@
     }
 
     if ( !defined $args{'Right'} ) {
-        require Carp;
-        $RT::Logger->debug( Carp::cluck("HasRight called without a right") );
+        $RT::Logger->crit("HasRight called without a right" );
         return (undef);
     }
 


More information about the Rt-commit mailing list