[BACK]Return to lonpdfupload.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonpdfupload.pm between versions 1.14 and 1.15

version 1.14, 2009/10/17 03:13:35 version 1.15, 2010/03/18 13:16:11
Line 29  package Apache::lonpdfupload; Line 29  package Apache::lonpdfupload;
   
 use lib '/home/httpd/lib/perl';  use lib '/home/httpd/lib/perl';
 use Apache::Constants qw(:common :http);  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::lonnet;
   use Apache::lonhtmlcommon();
 use Apache::loncommon();  use Apache::loncommon();
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::lonmsg();  
 use Apache::lonhomework;  
 use LONCAPA::Enrollment;  
 use LONCAPA::Configuration;  
 use CAM::PDF;  use CAM::PDF;
   
 use strict;  use strict;
   
 sub handler() {  sub handler() {
     my $r = shift;      my $r = shift;
       &Apache::loncommon::content_type($r,'text/html');
     # check user permissions       $r->send_http_header;
     if(!&checkpermission($r)) {      return OK if $r->header_only;
         # 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();  
   
     # Breadcrumbs      # Breadcrumbs
     my $brcrum = [{'href' => '/pdfupload',      my $brcrum = [{'href' => '/adm/pdfupload',
                    'text' => 'Upload PDF Form'}];                     'text' => 'Upload PDF Form'}];
   
     $r->print(&Apache::loncommon::start_page('Upload PDF Form',      $r->print(&Apache::loncommon::start_page('Upload PDF Form',
Line 75  sub handler() { Line 52  sub handler() {
                                              {'bread_crumbs' => $brcrum,})                                               {'bread_crumbs' => $brcrum,})
     );      );
   
     #load post data into environment  
     &Apache::lonacc::get_posted_cgi($r);  
   
     # if a file was upload      # if a file was upload
     if($env{'form.Uploaded'} && $env{'form.file'}) {      if($env{'form.Uploaded'} && $env{'form.file'}) {
         $r->print(&processPDF);          $r->print(&processPDF);
Line 101  sub handler() { Line 75  sub handler() {
     return OK;      return OK;
 }  }
   
   
 sub checkpermission() {  
     my $r = shift;  
     if (! &LONCAPA::loncgi::check_cookie_and_load_env()) {  
         my $result  = <<END  
 Content-type: text/html  
   
 <html>  
   <head>  
     <title>  
       Bad Cookie  
     </title>  
   </head>  
   <body>  
     Your cookie information is incorrect.  
   </body>  
 </html>  
 END  
 ;  
         $r->print($result);  
         return 0;  
     } else {  
         return 1;  
     }  
 }  
   
   
 sub get_javascripts() {  sub get_javascripts() {
           
     my $message = &mt('Please choose a PDF-File.');      my $message = &mt('Please choose a PDF-File.');
Line 206  sub get_pdf_data() { Line 153  sub get_pdf_data() {
  my $dict = $pdf->getFormFieldDict($pdf->getFormField($field)); # get formfield dictonary   my $dict = $pdf->getFormFieldDict($pdf->getFormField($field)); # get formfield dictonary
   
         #          #
         # this is nessesary 'cause CAM::PDF has a problem with formfieldnames which include a          # this is necessary because CAM::PDF has a problem with formfieldnames which include a
         # dot in fieldnames. So a fieldname like "i.am.aFormfield" will offer three fieldnames "i", "i.am"           # dot in fieldnames. So a fieldname like "i.am.aFormfield" will offer three fieldnames "i", "i.am" 
         # and "i.am.aFormfield". The fragmentary names keep no values and will be ignored.          # and "i.am.aFormfield". The fragmentary names keep no values and will be ignored.
         if($dict->{'V'}) {          if($dict->{'V'}) {
Removed from v.1.14  
changed lines
  Added in v.1.15

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>