diff options
-rwxr-xr-x | describekeywords.cgi | 11 | ||||
-rwxr-xr-x | editkeywords.cgi | 12 |
2 files changed, 21 insertions, 2 deletions
diff --git a/describekeywords.cgi b/describekeywords.cgi index fc0fe10bf..c80158267 100755 --- a/describekeywords.cgi +++ b/describekeywords.cgi @@ -31,7 +31,7 @@ print "Content-type: text/html\n\n"; PutHeader("Bugzilla keyword description"); -print qq{ +my $tableheader = qq{ <TABLE BORDER=1 CELLPADDING=4 CELLSPACING=0> <TR BGCOLOR="#6666FF"> <TH ALIGN="left">Name</TH> @@ -40,6 +40,10 @@ print qq{ </TR> }; +print $tableheader; +my $line_count = 0; +my $max_table_size = 50; + SendSQL("SELECT keyworddefs.name, keyworddefs.description, COUNT(keywords.bug_id), keywords.bug_id FROM keyworddefs LEFT JOIN keywords ON keyworddefs.id=keywords.keywordid @@ -59,6 +63,11 @@ while (MoreSQLData()) { } else { $bugs = "none"; } + if ($line_count == $max_table_size) { + print "</table>\n$tableheader"; + $line_count = 0; + } + $line_count++; print qq{ <TR> <TH>$name</TH> diff --git a/editkeywords.cgi b/editkeywords.cgi index 3443a5c3f..da9ec1b1c 100755 --- a/editkeywords.cgi +++ b/editkeywords.cgi @@ -125,7 +125,7 @@ my $action = trim($::FORM{action} || ''); if ($action eq "") { PutHeader("Select keyword"); - print qq{ + my $tableheader = qq{ <TABLE BORDER=1 CELLPADDING=4 CELLSPACING=0> <TR BGCOLOR="#6666FF"> <TH ALIGN="left">Edit keyword ...</TH> @@ -134,6 +134,10 @@ if ($action eq "") { <TH ALIGN="left">Action</TH> </TR> }; + print $tableheader; + my $line_count = 0; + my $max_table_size = 50; + SendSQL("SELECT keyworddefs.id, keyworddefs.name, keyworddefs.description, COUNT(keywords.bug_id), keywords.bug_id FROM keyworddefs LEFT JOIN keywords ON keyworddefs.id = keywords.keywordid @@ -151,6 +155,12 @@ if ($action eq "") { # what it had responded. $bugs = 'none'; } + if ($line_count == $max_table_size) { + print "</table>\n$tableheader"; + $line_count = 0; + } + $line_count++; + print qq{ <TR> <TH VALIGN="top"><A HREF="editkeywords.cgi?action=edit&id=$id">$name</TH> |