[Ipcop-svn] SF.net SVN: ipcop:[2794] ipcop/branches/template-branch/html

[riddles]

Revision: 2794
          http://ipcop.svn.sourceforge.net/ipcop/?rev=2794&view=rev
Author:   riddles
Date:     2009-05-05 10:30:49 +0000 (Tue, 05 May 2009)

Log Message:
-----------
Fix wrapping of modules output

Modified Paths:
--------------
    ipcop/branches/template-branch/html/cgi-bin/sysinfo.cgi
    ipcop/branches/template-branch/html/html/pages/sysinfo.tpl

Modified: ipcop/branches/template-branch/html/cgi-bin/sysinfo.cgi
===================================================================
--- ipcop/branches/template-branch/html/cgi-bin/sysinfo.cgi     2009-05-05 
10:06:47 UTC (rev 2793)
+++ ipcop/branches/template-branch/html/cgi-bin/sysinfo.cgi     2009-05-05 
10:30:49 UTC (rev 2794)
@@ -240,19 +240,10 @@
 foreach my $line (@lsmod) {
     chomp($line);
     ($line = &Header::cleanhtml($line,"y")) =~ s/\[.*\]//g;
-    my @split = split(/\s+/, $line);
+    my (@split) = split(/\s+/, $line);
 
-    my @usedby=split(/,/,$split[3]);
-    my $printusedby='';
-    my $i=1;
-    foreach my $module (@usedby) {
-        if ($i % 5 != 1) {
-            $printusedby.=',';
-        }
-        $printusedby.=$module;
-        $i++;
-    }
-    push (@modules, [ $split[0], $split[1], $split[2], $printusedby ]);
+    my (@usedby) = split(/,/,$split[3]);
+    push (@modules, [ $split[0], $split[1], $split[2], \...@usedby ]);
 }
 
 ##

Modified: ipcop/branches/template-branch/html/html/pages/sysinfo.tpl
===================================================================
--- ipcop/branches/template-branch/html/html/pages/sysinfo.tpl  2009-05-05 
10:06:47 UTC (rev 2793)
+++ ipcop/branches/template-branch/html/html/pages/sysinfo.tpl  2009-05-05 
10:30:49 UTC (rev 2794)
@@ -199,7 +199,13 @@
         <td width='12%' [% firstbold %]>[% module.0 %]&nbsp;</td>
         <td width='5%' align='right' [% firstbold %]>[% module.1 %]&nbsp;</td>
         <td width='5%' align='right' [% firstbold %]>[% module.2 %]&nbsp;</td>
-        <td width='78%' [% firstbold %]>[% module.3 %]</td>
+        <td width='78%' [% firstbold %]>
+             [%- i = 1 -%]
+             [%- FOREACH usedby IN module.3 -%]
+                [%- "," IF (i % 5) != 1 -%]
+                [% usedby %][%- "<br />" IF (i % 5) == 0 -%]
+                [%- i = i+1 -%]
+             [%- END -%]</td>
         [% firstbold = '' %]
     </tr>
   [% END %]


This was sent by the SourceForge.net collaborative development platform, the 
world's largest Open Source development site.

------------------------------------------------------------------------------
The NEW KODAK i700 Series Scanners deliver under ANY circumstances! Your
production scanning environment may not be a perfect world - but thanks to
Kodak, there's a perfect scanner to get the job done! With the NEW KODAK i700
Series Scanner you'll get full speed at 300 dpi even with all image 
processing features enabled. http://p.sf.net/sfu/kodak-com
_______________________________________________
Ipcop-svn mailing list
Ipcop-svn@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/ipcop-svn