--- loncom/interface/portfolio.pm 2005/02/11 00:18:14 1.73
+++ loncom/interface/portfolio.pm 2005/02/17 08:29:43 1.75
@@ -499,27 +499,25 @@ sub createdir {
sub handler {
# this handles file management
my $r = shift;
- my $bodytag;
my $portfolio_root = &Apache::loncommon::propath($ENV{'user.domain'},
$ENV{'user.name'}).
'/userfiles/portfolio';
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['selectfile','currentpath','meta',
'currentfile','action','fieldname','mode','rename']);
- if ($ENV{"form.mode"} eq 'selectfile'){
- $bodytag = &Apache::loncommon::bodytag('Portfolio Manager',undef,undef,1);
- } else {
- $bodytag = &Apache::loncommon::bodytag('Portfolio Manager');
- }
-
&Apache::loncommon::no_cache($r);
&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;
# Give the LON-CAPA page header
- $r->print(''.
+ my $html=&Apache::lonxml::xmlbegin();
+ $r->print($html.'<head><title>'.
&mt('Portfolio Manager').
- "\n".
- $bodytag);
+ "\n");
+ if ($ENV{"form.mode"} eq 'selectfile'){
+ $r->print(&Apache::loncommon::bodytag('Portfolio Manager',undef,undef,1));
+ } else {
+ $r->print(&Apache::loncommon::bodytag('Portfolio Manager'));
+ }
$r->rflush();
if (($ENV{'form.storeupl'} eq 'Upload') & (!$ENV{'form.uploaddoc.filename'})){
$r->print(' No file was selected to upload.'.