Changeset 2899

Timestamp:

2001-12-14T13:18:02+13:00 (22 years ago)

Author:

sjboddie

Message:

Added Alan Christensen's W3ImagePlug

Location:

trunk/gsdl

Files:

• perllib/plugins/W3ImgPlug.pm (added)
• src/recpt/vlistbrowserclass.cpp (modified) (2 diffs)

trunk/gsdl/src/recpt/vlistbrowserclass.cpp

@@ -124 +124 @@
   ResultDocInfo_tarray::iterator endsection = sections.docInfo.end();
 
+  // ** here lies Alan's hack to get 4 results per table row
+  int item = 0, perline;; // set perline to 1 normally
+  text_t fstring;
+  if ( thissection != endsection ) { // only if there are results (else corrupts display)
+    fstring = 
+      get_formatted_string (collection, collectproto, 
+                *thissection, disp, formatlistptr, link, icon, false, logout);
+    // if format string
+    // has <td><t (e.g. <td><table>) then
+    // we assume it is an image and put it in 4 columns
+    if (fstring[5] == 't') 
+      perline = 4;
+    else
+      perline = 1;
+  }
+
   while (thissection != endsection) {
-
+    item++;
     get_link_icon (*thissection, args, collink, link, icon);
     bool highlight = false;
@@ -133 +149 @@
       if (arg_cl == (*thissection).OID) highlight = true;
 
-    if (use_table || colnumber > 0) textout << "<tr valign=top>";
+    if ((item == 1 && use_table) || colnumber > 0 )
+      textout << "<tr valign=top>\n";
+
     textout << outconvert << disp 
-        << get_formatted_string (collection, collectproto, 
-                     *thissection, disp, formatlistptr, 
-                     link, icon, highlight, logout);
-
-    if (use_table || colnumber > 0) textout << "</tr>";
+        << " " << get_formatted_string (collection, collectproto, 
+      *thissection, disp, formatlistptr, link, icon, false, logout);
+
+    if ((item >= perline && use_table) || colnumber > 0) {
+      textout << "\n</tr>";
+      item = 0;
+    }
     textout << "\n";
     thissection ++;