--- loncom/interface/lonpdfupload.pm 2009/05/15 17:53:06 1.4 +++ loncom/interface/lonpdfupload.pm 2009/05/15 23:40:54 1.5 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Publication Handler # -# $Id: lonpdfupload.pm,v 1.4 2009/05/15 17:53:06 onken Exp $ +# $Id: lonpdfupload.pm,v 1.5 2009/05/15 23:40:54 bisitz Exp $ # # Copyright Michigan State University Board of Trustees # @@ -80,7 +80,12 @@ sub handler() { } #link to course-content - $r->print("
\n \n ".&mt("Navigate Contents")."\n \n
"); + $r->print('

'."\n" + .''."\n" + .&mt("Navigate Contents")."\n" + .''."\n" + .'

'."\n" + ); #&dumpenv($r); #debug -> prints the environment $r->print(" \n\n"); @@ -140,37 +145,29 @@ END sub get_uploadform() { - #TODO use LON-CAPA routines like pick_box or like that my %lt = &Apache::lonlocal::texthash( 'title'=>'Submit a PDF-Form with problems', - 'chFile' => 'Choose file:', + 'chFile' => 'Choose file', 'submit'=>'Submit' ); - my $result = < - -
- $lt{'title'} - - - - - - - -
- $lt{'chFile'} - - -
-
- - -
-
-END -; + my $result = + '
' + .'
' + .'' + .&Apache::lonhtmlcommon::start_pick_box() + .&Apache::lonhtmlcommon::row_headline() + .'

'.$lt{'title'}.'

' + .&Apache::lonhtmlcommon::row_closure() + .&Apache::lonhtmlcommon::row_title($lt{'chFile'}) + .'' + .&Apache::lonhtmlcommon::row_closure(1) + .&Apache::lonhtmlcommon::end_pick_box() + .'' + .'
' + .'
' + .'
'; + return $result; }