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

Diff for /loncom/interface/lonpdfupload.pm between versions 1.4 and 1.5

version 1.4, 2009/05/15 17:53:06 version 1.5, 2009/05/15 23:40:54
Line 80  sub handler() { Line 80  sub handler() {
     }      }
   
     #link to course-content      #link to course-content
     $r->print("    <br />\n    <a href='/adm/navmaps'>\n      ".&mt("Navigate Contents")."\n    </a>\n    <br />");      $r->print('<p>'."\n"
                .'<a href="/adm/navmaps">'."\n"
                .&mt("Navigate Contents")."\n"
                .'</a>'."\n"
                .'</p>'."\n"
       );
   
     #&dumpenv($r); #debug -> prints the environment      #&dumpenv($r); #debug -> prints the environment
     $r->print("  </body> \n</html>\n");      $r->print("  </body> \n</html>\n");
Line 140  END Line 145  END
   
 sub get_uploadform() {  sub get_uploadform() {
           
     #TODO use LON-CAPA routines like pick_box or like that    
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
                  'title'=>'Submit a PDF-Form with problems',                    'title'=>'Submit a PDF-Form with problems', 
                  'chFile' => 'Choose file:',                   'chFile' => 'Choose file',
                  'submit'=>'Submit'                   'submit'=>'Submit'
              );               );
   
     my $result = <<END      my $result = 
     <form method="post" enctype="multipart/form-data" onsubmit="return checkFilename(this);">          '<br />'
       <input type="hidden" name="type" value="upload" />         .'<form method="post" enctype="multipart/form-data" onsubmit="return checkFilename(this);">'
       <br />         .'<input type="hidden" name="type" value="upload" />'
       <b>$lt{'title'}</b>         .&Apache::lonhtmlcommon::start_pick_box()
       <table class="LC_pick_box">          .&Apache::lonhtmlcommon::row_headline()
         <tbody>         .'<h2>'.$lt{'title'}.'</h2>'
           <tr class="LC_pick_box_row">         .&Apache::lonhtmlcommon::row_closure()
             <td class="LC_pick_box_title">         .&Apache::lonhtmlcommon::row_title($lt{'chFile'})
               $lt{'chFile'}         .'<input type="file" name="file" id="filename" />'
             </td>         .&Apache::lonhtmlcommon::row_closure(1)
             <td class="LC_pick_box_value LC_odd_row">         .&Apache::lonhtmlcommon::end_pick_box()
               <input type="file" name="file" id="filename" />         .'<input type="submit" name="Uploaded" value="'.$lt{'submit'}.'" />'
             </td>         .'</form>'
           </tr>         .'<br />'
         </tbody>         .'<hr />';
       </table>  
       <br />  
       <input type="submit" name="Uploaded" value="$lt{'submit'}" />  
     </form>  
     <br />  
     <hr />      
 END  
 ;  
   return $result;    return $result;
 }  }
   
Removed from v.1.4  
changed lines
  Added in v.1.5

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