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; |
} |
} |
|
|