Changeset 22871

Timestamp:

2010-09-07T14:05:36+12:00 (13 years ago)

Author:

kjdon

Message:

added code to generate an item file if asked for pagedimg output with openoffice. Have to tidy up the generated HTML files so remove unnecessary links

File:

• main/trunk/greenstone2/perllib/plugins/PowerPointPlugin.pm (modified) (3 diffs)

main/trunk/greenstone2/perllib/plugins/PowerPointPlugin.pm

@@ -197 +197 @@
     #is this true??
     push(@$specific_options,"-input_encoding", "utf8");
+    if ($self->{'openoffice_conversion'}) {
+        push(@$specific_options, "-create_thumbnail", "false", "-create_screenview", "false");
+    }
     }
 
@@ -259 +262 @@
     #print STDERR "result = $result\n";
     if ($self->{'convert_to'} eq "pagedimg") {
-        #my $item_filename = $self->generate_item_file($new_filename);
-        #return $item_filename;
-        return "/research/kjdon/home/gsdl/collect/openoffice/test.item";
+        my $item_filename = $self->generate_item_file($new_filename);
+        return $item_filename;
     }
     return $new_filename;
@@ -301 +303 @@
 }
 
+sub generate_item_file
+{
+    my $self = shift(@_);
+    my ($input_filename) = @_;
+    my $outhandle = $self->{'outhandle'};
+    my ($tailname, $dirname, $suffix)
+    = &File::Basename::fileparse($input_filename, "\\.[^\\.]+\$");
+
+    # find all the files in the directory
+    if (!opendir (DIR, $dirname)) {
+    print $outhandle "PowerPointPlugin: Couldn't read directory $dirname\n";
+    return $input_filename;
+    }
+
+    my @dir = readdir (DIR);
+    closedir (DIR);
+
+    # start the item file
+    my $itemfile_name = &util::filename_cat($dirname, "$tailname.item");
+
+    # encoding specification????
+    if (!open (ITEMFILE, ">$itemfile_name")) {
+    print $outhandle "PowerPOintPlugin: Couldn't open $itemfile_name for writing\n";
+    }
+    print ITEMFILE "<GeneratedBy>PowerPointPlugin\n";
+    # print the first page
+    my @sorted_dir = sort alphanum_sort @dir;
+    for (my $i = 0; $i < scalar(@sorted_dir); $i++) {
+    my $file = $sorted_dir[$i];
+    if ($file =~ /^img(\d+)\.jpg$/) {
+        my $num = $1;
+        $self->tidy_up_html(&util::filename_cat($dirname, "text$num.html"));
+        print ITEMFILE "$num:img$num.jpg:text$num.html:\n";
+    }
+    }
+    close ITEMFILE;
+    return $itemfile_name;
+
+    
+}
+
+# want to sort img1, img2, ...img10, img11 etc.
+sub alphanum_sort {
+    
+    my ($a_txt, $a_num) = $a =~ /^([^\d]*)(\d*)/;
+    my ($b_txt, $b_num) = $b =~ /^([^\d]*)(\d*)/;
+    
+    if ($a_txt ne $b_txt) { return ($a cmp $b) };
+    return ($a_num <=> $b_num);
+}
+
+# Want to remove the line that links to first page, last page, next page, text etc.
+sub tidy_up_html {
+
+    my $self = shift(@_);
+    my ($filename) = @_;
+    return unless (-f $filename);
+    my $backup_filename = "$filename.bak";
+
+    &File::Copy::copy($filename, $backup_filename);
+
+    open (ORIGINAL, $backup_filename) || return;
+    open(HTMLFILE, ">$filename") || return;
+
+    my $line ="";
+    while ($line = <ORIGINAL>) {
+    if ($line =~ /\<body\>/) {
+        print HTMLFILE $line;
+        $line = <ORIGINAL>;
+        next if $line =~ /\<center\>/;
+    }
+    next if $line =~ /First page/;
+    print HTMLFILE ($line);
+    }
+
+    close HTMLFILE;
+    close ORIGINAL;
+}
 1;