# The LearningOnline Network with CAPA
# Publication Handler
#
# $Id: lonpdfupload.pm,v 1.2 2009/04/03 15:40:17 onken Exp $
#
# Copyright Michigan State University Board of Trustees
#
# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
#
# LON-CAPA 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.
#
# LON-CAPA 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 LON-CAPA; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
#
# /home/httpd/html/adm/gpl.txt
#
# http://www.lon-capa.org/
#
package Apache::lonpdfupload;
use lib '/home/httpd/lib/perl';
use Apache::Constants qw(:common :http);
use LONCAPA;
use LONCAPA::loncgi;
use File::Path;
use File::Basename;
use File::Copy;
use IO::File;
use Image::Magick;
use Apache::lonacc;
use Apache::lonxml;
use Apache::lonhtmlcommon();
use Apache::lonnet;
use Apache::loncommon();
use Apache::lonlocal;
use Apache::lonmsg();
use Apache::lonhomework;
use LONCAPA::Enrollment;
use LONCAPA::Configuration;
use CAM::PDF;
use strict;
sub handler() {
my $r = shift;
# check user permissions
if(!&checkpermission($r)) {
# stop processing
return OK;
}
$Apache::lonxml::request=$r;
$Apache::lonxml::debug=$env{'user.debug'};
$env{'request.uri'}=$r->uri;
$r->content_type('text/html');
$r->send_http_header();
$r->print(&Apache::loncommon::start_page('Upload-PDF-Form'));
#load post data into environment
&Apache::lonacc::get_posted_cgi($r);
# if a file was upload
if($env{'form.Uploaded'} && $env{'form.file'}) {
$r->print(&processPDF);
} else {
# print upload form
$r->print(&get_javascripts);
$r->print(&get_uploadform);
}
#link to course-content
$r->print("
\n \n ".&mt("Navigate Contents")."\n \n
");
#&dumpenv($r); #debug -> prints the environment
$r->print("