--- loncom/interface/lonpdfupload.pm 2008/09/09 13:56:44 1.1
+++ loncom/interface/lonpdfupload.pm 2011/11/02 15:14:21 1.21
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
-# Publication Handler
+# PDF Form Upload Handler
#
-# $Id: lonpdfupload.pm,v 1.1 2008/09/09 13:56:44 onken Exp $
+# $Id: lonpdfupload.pm,v 1.21 2011/11/02 15:14:21 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -29,233 +29,243 @@ 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::lonhtmlcommon();
use Apache::loncommon();
+use Apache::lonnavmaps();
use Apache::lonlocal;
-use Apache::lonmsg();
-use Apache::lonhomework;
-use LONCAPA::Enrollment;
-use LONCAPA::Configuration;
+use File::MMagic;
+use CAM::PDF;
+use LONCAPA qw(:DEFAULT :match);
use strict;
sub handler() {
- my $r = shift;
-
- #Testen ob der Benutzer ein gültiges Cookie besitzt
- if(!&checkpermission($r)) {
- return OK;
- }
+ my $r = shift;
+ &Apache::loncommon::content_type($r,'text/html');
+ $r->send_http_header;
+ return OK if $r->header_only;
+
+ # Needs to be in a course
+ if (!$env{'request.course.fn'}) {
+ # Not in a course
+ $env{'user.error.msg'}="/adm/pdfupload:bre:0:0:Cannot upload PDF forms unless in a course";
+ return HTTP_NOT_ACCEPTABLE;
+ }
- $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'));
-
- #lade die per POST gesendenten daten in env
- &Apache::lonacc::get_posted_cgi($r);
-
- if($env{'form.Uploaded'} && $env{'form.file'}) {
- #Upload-Formular wurde gesendet
- $r->print(&processPDF);
-
- } else {
- #erster Aufruf Upload-Formular wird ausgeben
- $r->print(&get_javascripts);
- $r->print(&get_uploadform);
-
- }
-
- #&dumpenv($r); #debug -> prints the environment
- $r->print("
".&mt("Navigate Contents")."
");
- $r->print("