Changeset 24934 for gs3-extensions/html-to-expeditee/trunk/src/src/cgi-bin/html-to-expeditee.pl.in

Timestamp:

2012-01-11T10:05:58+13:00 (12 years ago)

Author:

davidb

Message:

Introduction of new Perl module to handle taking the JSON version of the traversed HTML tree and output it as an expeditee frame

File:

• gs3-extensions/html-to-expeditee/trunk/src/src/cgi-bin/html-to-expeditee.pl.in (modified) (4 diffs)

gs3-extensions/html-to-expeditee/trunk/src/src/cgi-bin/html-to-expeditee.pl.in

@@ -157 +157 @@
               url = "library.cgi";
               url += "?c="+collect +"&a=d&d=" + docOID;
-         }
-         else {
+          }
+          else {
               url = "dev";
               url += "?c="+collect +"&a=d&d=" + docOID;
               url += "&ed=1&dt=hierarchy";
-         }
-          
+              // url += "&excerptid=gs_content";
+          }
+          
+          /* load iframe with document drawn from Greenstone collection */
           iframe.src = url;
           
@@ -200 +202 @@
          });
 
-          var expFrameTree = htmlToExpeditee(iframeDoc.body);
+          var gsContent = iframeDoc.getElementById("gs_content");
+
+          /*
+          var gsContentPos = getElementPosition(gsContent); 
+          var pxl = gsContentPos.xl;
+          var pxr = gsContentPos.xr;
+          */
+
+          var expFrameTree = htmlToExpeditee(gsContent);
+
           var expFrame = JSON.stringify(expFrameTree);
           //alert(expFrame);
@@ -240 +251 @@
                   url += "?c="+collect +"&a=d&d=" + docOID;
                   url += "&ed=1&dt=hierarchy";
+                  // url += "&excerptid=gs_content";
               }
 
@@ -277 +289 @@
 {
 
-#    $ENV{'QUERY_STRING'} = "a=set-import-metadata&c=espresso-music&d=HASH012d6f72cde5dc48162f4a1d.1&metaname=annotation&metapos=0&metavalue=adfadfad";
-#    $ENV{'QUERYSTRING'} = "a=set-import-metadata&c=espresso-music&d=HASH012d6f72cde5dc48162f4a1d.1&metaname=annotation&metapos=0&metavalue=adfadfad";
+#    $ENV{'QUERY_STRING'} = "a=...";set-import-metadata&c=espresso-music&d=HASH012d6f72cde5dc48162f4a1d.1&metaname=annotation&metapos=0&metavalue=adfadfad";
 #    $ENV{'REQUEST_METHOD'} = "GET";
-
 
     my $gsdl_cgi = new gsdlCGI();