File: box.inc

package info (click to toggle)
libapache-asp-perl 2.63-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, forky, sid, trixie
  • size: 4,120 kB
  • sloc: perl: 6,044; php: 409; sh: 62; lisp: 22; makefile: 10
file content (21 lines) | stat: -rw-r--r-- 425 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
<% 
  my($args, $html) = @_; 
  $args->{width} ||= '240';
%>

<!-- box.inc -->
<table width=<%= $args->{width } %> bgcolor=<%=$DarkRowColor%> border=1 cellpadding=3 cellspacing=0 >
 <% if($args->{title}) { %>
  <tr><td align=center><b>
    <font size=-1 color=white face=verdana,helvetica,arial>
      <nobr><%= $args->{title} %></nobr>
    </font></b>
  </td></tr>
 <% } %>

 <tr><td>
   <%= $html %>
 </td></tr>

</table>