Index: gs3-extensions/html-to-expeditee/trunk/src/perllib/ExpediteeExportAction.pm
===================================================================
--- gs3-extensions/html-to-expeditee/trunk/src/perllib/ExpediteeExportAction.pm (revision 26714)
+++ (revision )
@@ -1,121 +1,0 @@
-###########################################################################
-#
-# ExpediteeExportAction.pm --
-# Based on HTMLToExpediteeAction.pm - Used for exporting INDIVIDUAL
-# Greenstone documents to Expeditee. If you want to export an entire
-# collection, use HTMLToExpediteeAction.pm.
-#
-# A component of the Greenstone digital library software
-# from the New Zealand Digital Library Project at the
-# University of Waikato, New Zealand.
-#
-# Copyright (C) 2009 New Zealand Digital Library Project
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or
-# (at your option) any later version.
-#
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-#
-###########################################################################
-
-package ExpediteeExportAction;
-
-use strict;
-
-use cgiactions::baseaction;
-
-use ExpediteeFrameIO;
-use JSON;
-
-use Devel::Peek;
-
-BEGIN {
-# unshift (@INC, "$ENV{'GSDLHOME'}/perllib/cpan/perl-5.8");
-}
-
-@ExpediteeExportAction::ISA = ('baseaction');
-
-# c=collect and site=xxxx implicitly handled by code
-# 'c' is handled by base action, site is tested for only if greenstone3.
-
-my $action_table=
-{
- "generate-frame" => { 'compulsory-args' => [ "fn", "json" ],
- 'optional-args' => [] },
-};
-
-sub new
-{
- my $class = shift (@_);
- my ($gsdl_cgi,$iis6_mode) = @_;
-
- my $self = new baseaction($action_table,$gsdl_cgi,$iis6_mode);
-
- return bless $self, $class;
-}
-
-sub generate_frame
-{
- my $self = shift @_;
-
- my $username = $self->{'username'};
- my $collect = $self->{'collect'};
- my $gsdl_cgi = $self->{'gsdl_cgi'};
- my $gsdlhome = $self->{'gsdlhome'};
-
- my $site = $self->{'site'};
- my $collect_dir = $gsdl_cgi->get_collection_dir($site);
-
- my $fn = $self->{'fn'};
-
- my $json_str_unicode = $self->{'json'};
-
- my $found = $self->{'found'};
-
- if (!Encode::is_utf8( $json_str_unicode )) {
- $json_str_unicode = Encode::decode_utf8( $json_str_unicode );
- }
-
- # decode_json expects string to convert to be raw utf8
- my $json_str_utf8 = Encode::encode("utf8",$json_str_unicode);
- my $exp_frame_tree = decode_json $json_str_utf8;
-
- my $output_dir = &util::filename_cat($collect_dir,$collect,"export");
-
- if (!-d $output_dir) {
- &util::mk_dir($output_dir);
- }
-
- my $expeditee_frame_io = new ExpediteeFrameIO($output_dir,"kgas1A");
-
- $expeditee_frame_io->buildFrame($exp_frame_tree);
-
- if($expeditee_frame_io->saveFrame("$fn.exp")){
- #need to determine if $fn is followed by another number or $fn is the last number in the frameset.
-
- #if $fn is last number, write out next free frame num
- unless($found){
- #write out next free frame num
- $expeditee_frame_io->saveLastFrameNumber($fn);
- }
-
- #otherwise just carry on.
-
- $gsdl_cgi->generate_message("Item Exported to Expeditee $fn");
- }else{
- $gsdl_cgi->generate_error("Failed to save frame number $fn");
- }
-
-
-}
-
-1;