This commit was generated by cvs2svn to compensate for changes in r5562,

[freeside.git] / httemplate / search / sqlradius.cgi

diff --git a/httemplate/search/sqlradius.cgi b/httemplate/search/sqlradius.cgi
index 2b6b692..324729b 100644 (file)
--- a/httemplate/search/sqlradius.cgi
+++ b/httemplate/search/sqlradius.cgi
@@ -57,21 +57,22 @@
 %       @{ $part_export->usage_sessions(
 %            $beginning, $ending, $cgi_svc_acct, $ip, $prefix, ) }
 %   ) {
+%     if ( $bgcolor eq $bgcolor1 ) {
+%       $bgcolor = $bgcolor2;
+%     } else {
+%       $bgcolor = $bgcolor1;
+%     }
 
       <TR>
 %     foreach my $field ( keys %efields ) { 
-%       if ( $bgcolor eq $bgcolor1 ) {
-%         $bgcolor = $bgcolor2;
-%       } else {
-%         $bgcolor = $bgcolor1;
-%       }
-
-        <TD CLASS="grid" BGCOLOR="<% $bgcolor %>" ALIGN="<% $efields{$field}->{align} %>">
-          <% &{ $efields{$field}->{fmt} }( $session->{$field},
-                                           $session,
-                                           $part_export,
-                                         )
-          %>
+%       my $html = &{ $efields{$field}->{fmt} }( $session->{$field},
+%                                                $session,
+%                                                $part_export,
+%                                              );
+%       my $class = ( $html =~ /<TABLE/ ? 'inv' : 'grid' );
+
+        <TD CLASS="<%$class%>" BGCOLOR="<% $bgcolor %>" ALIGN="<% $efields{$field}->{align} %>">
+          <% $html %>
         </TD>
 %     } 
   </TR>
@@ -83,8 +84,11 @@
 
 % } 
 
-
 <%init>
+
+die "access denied"
+  unless $FS::CurrentUser::CurrentUser->access_right('List rating data');
+
 ###
 # parse cgi params
 ###
@@ -93,12 +97,12 @@
 my $beginning = '';
 my $ending = '';
 if ( $cgi->param('beginning')
-     && $cgi->param('beginning') =~ /^([ 0-9\-\/]{0,10})$/ ) {
+     && $cgi->param('beginning') =~ /^([ 0-9\-\/\:\w]{0,54})$/ ) {
   $beginning = str2time($1);
 }
 if ( $cgi->param('ending')
-     && $cgi->param('ending') =~ /^([ 0-9\-\/]{0,10})$/ ) {
-  $ending = str2time($1) + 86399;
+     && $cgi->param('ending') =~ /^([ 0-9\-\/\:\w]{0,54})$/ ) {
+  $ending = str2time($1); # + 86399;
 }
 if ( $cgi->param('begin') && $cgi->param('begin') =~ /^(\d+)$/ ) {
   $beginning = $1;
@@ -222,12 +226,12 @@ my $duration_format = sub {
   my $hour = int($seconds/3600);
   my $min = int( ($seconds%3600) / 60 );
   my $sec = $seconds%60;
-  '<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0>'.
-  '<TR><TD ALIGN="right">'.
+  '<TABLE CLASS="inv" BORDER=0 CELLSPACING=0 CELLPADDING=0>'.
+  '<TR><TD CLASS="inv" ALIGN="right">'.
      ( $hour ? "<B>$hour</B>h" : '&nbsp;' ).
-   '</TD><TD ALIGN="right">'.
+   '</TD><TD CLASS="inv" ALIGN="right">'.
      ( ( $hour || $min ) ? "<B>$min</B>m" : '&nbsp;' ).
-   '</TD><TD ALIGN="right">'.
+   '</TD><TD CLASS="inv" ALIGN="right">'.
      "<B>$sec</B>s".
   '</TD></TR></TABLE>';
 };