loncom/publisher/lonpubdir.pm - diff

Return to lonpubdir.pm CVS log

Up to [LON-CAPA] / loncom / publisher

Diff for /loncom/publisher/lonpubdir.pm between versions 1.100 and 1.104

version 1.100, 2007/01/19 02:36:04	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 674 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>'.

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.100
changed lines
	Added in v.1.104