Changeset 26596 for gs3-extensions/html-to-expeditee/trunk/src/perllib/ExpediteeFrameIO.pm

Timestamp:

2013-01-08T14:13:09+13:00 (11 years ago)

Author:

davidb

Message:

The html to expeditee feature will now obtain a matching assocfilepath for each frame and write this value out to the frame as a piece of text.

File:

• gs3-extensions/html-to-expeditee/trunk/src/perllib/ExpediteeFrameIO.pm (modified) (5 diffs)

gs3-extensions/html-to-expeditee/trunk/src/perllib/ExpediteeFrameIO.pm

@@ -217 +217 @@
 {
     my $self = shift @_;
-    my ($x, $y, $text, $w, $attr) = @_;
-
-    my %attr_copy = %$attr; # make a private copy of 'attr'
-
-    $self->setTextDefaultAttributes(\%attr_copy);
-    my $items = $self->{'items'};
-
-    $attr_copy{'P'} = "$x $y";
-    $attr_copy{'T'} = $text;
-    $attr_copy{'w'} = "-$w" if (defined $w);
-
-    return $self->_addItem("T",\%attr_copy);
+    my ($x,$y,$text,$w,$attr) = @_;
+    
+    my %attr_copy = %$attr; #make a private copy of 'attr'
+    
+    $self->setTextDefaultAttributes(\%attr_copy);
+    my $items = $self->{'items'};
+    
+    $attr_copy{'P'} = "$x $y";
+    $attr_copy{'T'} = $text;
+    $attr_copy{'w'} = "-$w" if (defined $w);
+    
+    return $self->_addItem("T",\%attr_copy);
 }
 
@@ -422 +422 @@
 }
 
-sub saveFrame
-{
-    my $self = shift @_;
-    my ($file) = @_;
+sub saveZeroFrame
+{
+    my $self = shift @_;
+    my $file = "0.exp";
 
     my $filename = &util::filename_cat($self->{'output_dir'},$file);
 
     my $status = undef;
+
+    my $username = $self->{'username'};
+    my $fdate = getFormattedDate();
 
     if (open(FOUT,">$filename")) {
     binmode(FOUT,":utf8");
+    
+    print FOUT <<EOT;
+    
+V 1
+p 4
+U $username
+D $fdate
+M $username
+d $fdate
+Z
+
+Z
+
+Z
+
+Z
+    
+EOT
+
+    close(FOUT);
+    $status = 1;
+    }
+    else {
+    print STDERR "ExpediteeFrameIO::saveZeroFrame() Failed to open $filename for output\n";
+    $status = 0;
+    }
+
+    return $status;
+}
+
+sub writeAssocFilePath
+{
+    my $self = shift @_;
+    my ($assoc) = @_;
+    
+    my $x = 318;
+    my $y = 123;
+    my $text = "\@assocfilepath: $assoc";
+    
+    my $attr = {};
+    
+    #add data: gsdl.Metadata: assocfilepath to this piece of text.
+    $attr->{'D'} = "gsdl.Metadata: assocfilepath";
+    
+    $self->addText($x,$y,$text,undef,$attr);
+}
+
+sub saveFrame
+{
+    my $self = shift @_;
+    my ($file,$assoc) = @_;
+
+    if ($file eq "1.exp") {
+        $self->saveZeroFrame();
+    }
+
+    my $filename = &util::filename_cat($self->{'output_dir'},$file);
+
+    my $status = undef;
+
+    if (open(FOUT,">$filename")) {
+    binmode(FOUT,":utf8");
+    
+
+    $self->writeAssocFilePath($assoc);                      #write assocfilepath out to frame.
+    
     $self->writeHeaderSection();
     $self->writeItemsSection();
@@ -438 +507 @@
     $self->writeConstraintsSection();
     $self->writeStatisticsSection();
-
+    
+    
+    
     close(FOUT);
     $status = 1;
@@ -486 +557 @@
         $img_url =~ s/^http:\/\/(.*?)\/greenstone3(.*?)\///;
         if ($img_url =~ m/^interfaces\//) {
-        $img_url = "images/$img_url";
+        $img_url = "greenstone3-svn/web/$img_url";
         }
         elsif ($img_url =~ m/^sites\//) {
-        $img_url =~ s/^sites\/(.*?)\//images\//;
+#       if ($img_url =~ m/^sites\//) {
+#       $img_url =~ s/^sites\/(.*?)\//images\//;
+            $img_url = "greenstone3-svn/web/$img_url";
         }
 
@@ -546 +619 @@
     #writes frameset name concatenated with last frame number in the set to the frame.inf file. 
         my $getFramesetName = $self->{'output_dir'};
-    print FNOUT "$getFramesetName$last_frame_number\n";
-
+        
     
     close(FNOUT);