loncom/interface/lonpdfupload.pm - diff

Return to lonpdfupload.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.12, 2009/05/25 12:54:18	version 1.13, 2009/06/17 13:00:38
Line 65 sub handler() {	Line 65 sub handler() {
$env{'request.uri'}=$r->uri;	$env{'request.uri'}=$r->uri;
$r->content_type('text/html');	$r->content_type('text/html');
$r->send_http_header();	$r->send_http_header();
$r->print(&Apache::loncommon::start_page('Upload PDF Form'));
	# Breadcrumbs
	my $brcrum = [{'href' => '/pdfupload',
	'text' => 'Upload PDF Form'}];

	$r->print(&Apache::loncommon::start_page('Upload PDF Form',
	undef,
	{'bread_crumbs' => $brcrum,})
	);

#load post data into environment	#load post data into environment
&Apache::lonacc::get_posted_cgi($r);	&Apache::lonacc::get_posted_cgi($r);
Line 164 sub get_uploadform() {	Line 172 sub get_uploadform() {
.'<input type="file" name="file" id="filename" />'	.'<input type="file" name="file" id="filename" />'
.&Apache::lonhtmlcommon::row_closure(1)	.&Apache::lonhtmlcommon::row_closure(1)
.&Apache::lonhtmlcommon::end_pick_box()	.&Apache::lonhtmlcommon::end_pick_box()
	.'<p>'
.'<input type="submit" name="Uploaded" value="'.$lt{'submit'}.'" />'	.'<input type="submit" name="Uploaded" value="'.$lt{'submit'}.'" />'
	.'</p>'
.'</form>'	.'</form>'
.'<br />';	.'<br />';