version 1.99, 2007/01/10 19:51:35
|
version 1.104, 2007/10/18 21:58:21
|
Line 211 sub startpage {
|
Line 211 sub startpage {
|
{'body_title' => |
{'body_title' => |
$pagetitle,})); |
$pagetitle,})); |
} else { |
} 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); |
$r->print($pagetitle); |
} |
} |
|
|
|
my $esc_thisdisfn = &Apache::loncommon::escape_single($thisdisfn); |
my $pubdirscript=(<<ENDPUBDIRSCRIPT); |
my $pubdirscript=(<<ENDPUBDIRSCRIPT); |
<script type="text/javascript"> |
<script type="text/javascript"> |
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 |
// Store directory location for menu bar to find |
|
|
parent.lastknownpriv='/~$uname$thisdisfn/'; |
parent.lastknownpriv='/~$uname$esc_thisdisfn/'; |
|
|
// Confirmation dialogues |
// Confirmation dialogues |
|
|
Line 354 sub dircontrols {
|
Line 356 sub dircontrols {
|
ncrf => 'New custom rights file', |
ncrf => 'New custom rights file', |
nsty => 'New style file', |
nsty => 'New style file', |
nlib => 'New library file', |
nlib => 'New library file', |
|
nbt => 'New bridgetask file', |
nsub => 'New subdirectory', |
nsub => 'New subdirectory', |
renm => 'Rename current file to', |
renm => 'Rename current file to', |
move => 'Move current file to', |
move => 'Move current file to', |
Line 412 sub dircontrols {
|
Line 415 sub dircontrols {
|
<option value="newsequencefile">$lt{'nseq'}:</option> |
<option value="newsequencefile">$lt{'nseq'}:</option> |
<option value="newrightsfile">$lt{'ncrf'}:</option> |
<option value="newrightsfile">$lt{'ncrf'}:</option> |
<option value="newstyfile">$lt{'nsty'}:</option> |
<option value="newstyfile">$lt{'nsty'}:</option> |
|
<option value="newtaskfile">$lt{'nbt'}:</option> |
<option value="newlibraryfile">$lt{'nlib'}:</option> |
<option value="newlibraryfile">$lt{'nlib'}:</option> |
<option value="newdir">$lt{'nsub'}:</option> |
<option value="newdir">$lt{'nsub'}:</option> |
</select> <input type="text" name="newfilename" value="Type Name Here" onfocus="if (this.value == 'Type Name Here') this.value=''" /> <input type="button" value="Go" onclick="document.fileaction.submit()" /> |
</select> <input type="text" name="newfilename" value="Type Name Here" onfocus="if (this.value == 'Type Name Here') this.value=''" /> <input type="button" value="Go" onclick="document.fileaction.submit()" /> |
Line 609 sub putresource {
|
Line 613 sub putresource {
|
$title = '<a href="/res/'.$targetdir.'/'.$filename. |
$title = '<a href="/res/'.$targetdir.'/'.$filename. |
'.meta" target="cat">'. |
'.meta" target="cat">'. |
&getTitleString($targetdir.'/'.$filename).'</a>'; |
&getTitleString($targetdir.'/'.$filename).'</a>'; |
&Apache::lonnet::logthis("same $same meta $meta_same"); |
|
if ($same) { |
if ($same) { |
if (&Apache::lonnet::metadata($targetdir.'/'.$filename,'obsolete')) { |
if (&Apache::lonnet::metadata($targetdir.'/'.$filename,'obsolete')) { |
$pubstatus = 'obsolete'; |
$pubstatus = 'obsolete'; |
Line 675 sub putresource {
|
Line 678 sub putresource {
|
'<td>'.($filename=~/[\#\~]$/?' ': |
'<td>'.($filename=~/[\#\~]$/?' ': |
'<img src="'.&Apache::loncommon::icon($filename).'" alt="" />').'</td>'. |
'<img src="'.&Apache::loncommon::icon($filename).'" alt="" />').'</td>'. |
'<td>'.$pub_select.'</td>'. |
'<td>'.$pub_select.'</td>'. |
'<td><span class="LC_filename"> '. |
'<td><span class="LC_filename">'. |
'<a href="'.$linkdir.'/'.$filename.'" target="_parent">'. |
'<a href="'.$linkdir.'/'.$filename.'" target="_parent">'. |
$filename.'</a></span>'.$editlink2.$editlink. |
$filename.'</a></span>'.$editlink2.$editlink. |
'</td>'. |
'</td>'. |