version 1.125.4.1, 2011/11/07 13:38:45
|
version 1.126, 2010/03/10 21:26:04
|
Line 93 sub handler {
|
Line 93 sub handler {
|
my %bombs=&Apache::lonmsg::all_url_author_res_msg($uname,$udom); |
my %bombs=&Apache::lonmsg::all_url_author_res_msg($uname,$udom); |
|
|
&startpage($r, $uname, $udom, $thisdisfn); # Put out the start of page. |
&startpage($r, $uname, $udom, $thisdisfn); # Put out the start of page. |
if ($env{'environment.remote'} eq 'off') { |
&dircontrols($r,$uname,$udom,$thisdisfn); # Put out actions for directory, |
&dircontrols($r,$uname,$udom,$thisdisfn); # Put out actions for directory, |
|
# browse/upload + new file page. |
# browse/upload + new file page. |
} else { |
|
&pubbuttons($r,$uname,$thisdisfn); |
|
} |
|
&resourceactions($r,$uname,$udom,$thisdisfn); #Put out form used for printing/deletion etc. |
&resourceactions($r,$uname,$udom,$thisdisfn); #Put out form used for printing/deletion etc. |
|
|
my $numdir = 0; |
my $numdir = 0; |
Line 209 sub startpage {
|
Line 205 sub startpage {
|
# breadcrumbs (and tools) will be created |
# breadcrumbs (and tools) will be created |
# in start_page->bodytag->innerregister |
# in start_page->bodytag->innerregister |
|
|
if ($env{'environment.remote'} eq 'off') { |
$env{'request.noversionuri'}=$currdir.'/'; |
$env{'request.noversionuri'}=$currdir.'/'; |
$r->print(&Apache::loncommon::start_page('Construction Space',undef)); |
$r->print(&Apache::loncommon::start_page('Construction Space',undef)); |
|
} else { |
|
$r->print(&Apache::loncommon::start_page('Construction Space',undef, |
|
{ 'only_body' => 1,})); |
|
} |
|
|
|
$r->print(&Apache::loncommon::head_subbox( |
$r->print(&Apache::loncommon::head_subbox( |
&Apache::loncommon::CSTR_pageheader())); |
&Apache::loncommon::CSTR_pageheader(1))); |
|
|
my $esc_thisdisfn = &Apache::loncommon::escape_single($thisdisfn); |
my $esc_thisdisfn = &Apache::loncommon::escape_single($thisdisfn); |
my $doctitle = 'LON-CAPA '.&mt('Construction Space'); |
my $doctitle = 'LON-CAPA '.&mt('Construction Space'); |
Line 331 parent.lastknownpriv='/~$uname$esc_thisd
|
Line 322 parent.lastknownpriv='/~$uname$esc_thisd
|
</script> |
</script> |
ENDPUBDIRSCRIPT |
ENDPUBDIRSCRIPT |
$r->print($pubdirscript); |
$r->print($pubdirscript); |
|
|
if ((($uname ne $env{'user.name'}) || ($udom ne $env{'user.domain'})) && |
|
$env{'environment.remote'} ne 'off') { |
|
$r->print('<h3>'.&mt('Co-Author [_1]',$uname.':'.$udom).'</h3>'); |
|
} |
|
} |
} |
|
|
sub dircontrols { |
sub dircontrols { |
Line 448 sub dircontrols {
|
Line 434 sub dircontrols {
|
END |
END |
} |
} |
|
|
sub pubbuttons { |
|
my ($r,$uname,$thisdisfn) = @_; |
|
$r->print('<form method="post" action="/adm/publish" target="_parent">'. |
|
'<table><tr><td><input type="hidden" name="filename" value="/~'. |
|
$uname.$thisdisfn.'/" />'. |
|
'<input type="submit" value="'.&mt('Publish Directory').'" /></td><td>'. |
|
'<input type="button" onclick="window.location='."'/~". |
|
$uname.$thisdisfn."/default.meta'".'" value="'. |
|
&mt('Edit Directory Metadata').'" /></td></tr></table></form>'); |
|
} |
|
|
|
sub resourceactions { |
sub resourceactions { |
my ($r,$uname,$udom,$thisdisfn) = @_; |
my ($r,$uname,$udom,$thisdisfn) = @_; |
$r->print(<<END); |
$r->print(<<END); |