version 1.94, 2006/03/03 23:27:25
|
version 1.96, 2006/03/19 21:54:41
|
Line 680 sub handler {
|
Line 680 sub handler {
|
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
# Give the LON-CAPA page header |
# Give the LON-CAPA page header |
my $html=&Apache::lonxml::xmlbegin(); |
|
$r->print($html.'<head><title>'.$title."</title></head>\n"); |
|
if ($env{"form.mode"} eq 'selectfile'){ |
if ($env{"form.mode"} eq 'selectfile'){ |
$r->print(&Apache::loncommon::bodytag($title,undef,undef,1)); |
$r->print(&Apache::loncommon::start_page($title,undef, |
|
{'only_body' => 1}); |
} else { |
} else { |
$r->print(&Apache::loncommon::bodytag($title)); |
$r->print(&Apache::loncommon::start_page($title); |
} |
} |
$r->rflush(); |
$r->rflush(); |
if (($env{'form.storeupl'}) & (!$env{'form.uploaddoc.filename'})){ |
if (($env{'form.storeupl'}) & (!$env{'form.uploaddoc.filename'})){ |
Line 749 sub handler {
|
Line 748 sub handler {
|
my $is_empty=(@dir_list == 2); |
my $is_empty=(@dir_list == 2); |
&display_common($r,$url,$current_path,$is_empty,\@dir_list,$group); |
&display_common($r,$url,$current_path,$is_empty,\@dir_list,$group); |
&display_directory($r,$url,$current_path,$is_empty,\@dir_list,$group); |
&display_directory($r,$url,$current_path,$is_empty,\@dir_list,$group); |
$r->print("</body>\n</html>\n"); |
$r->print(&Apache::loncommon::end_page()); |
} |
} |
return OK; |
return OK; |
} |
} |