--- loncom/publisher/lonpubdir.pm 2007/01/10 19:51:35 1.99 +++ loncom/publisher/lonpubdir.pm 2007/07/25 19:56:57 1.103 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Construction Space Directory Lister # -# $Id: lonpubdir.pm,v 1.99 2007/01/10 19:51:35 albertel Exp $ +# $Id: lonpubdir.pm,v 1.103 2007/07/25 19:56:57 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -211,16 +211,18 @@ sub startpage { {'body_title' => $pagetitle,})); } else { - $r->print(&Apache::loncommon::start_page('Construction Space',undef)); + $r->print(&Apache::loncommon::start_page('Construction Space',undef, + { 'only_body' => 1,})); $r->print($pagetitle); } + my $esc_thisdisfn = &Apache::loncommon::escape_single($thisdisfn); my $pubdirscript=(< -top.document.title = '$thisdisfn/ - LON-CAPA Construction Space'; +top.document.title = '$esc_thisdisfn/ - LON-CAPA Construction Space'; // Store directory location for menu bar to find -parent.lastknownpriv='/~$uname$thisdisfn/'; +parent.lastknownpriv='/~$uname$esc_thisdisfn/'; // Confirmation dialogues @@ -354,6 +356,7 @@ sub dircontrols { ncrf => 'New custom rights file', nsty => 'New style file', nlib => 'New library file', + nbt => 'New bridgetask file', nsub => 'New subdirectory', renm => 'Rename current file to', move => 'Move current file to', @@ -412,6 +415,7 @@ sub dircontrols { +    @@ -609,7 +613,6 @@ sub putresource { $title = ''. &getTitleString($targetdir.'/'.$filename).''; - &Apache::lonnet::logthis("same $same meta $meta_same"); if ($same) { if (&Apache::lonnet::metadata($targetdir.'/'.$filename,'obsolete')) { $pubstatus = 'obsolete';