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.105 and 1.106

version 1.105, 2007/11/02 19:24:44	version 1.106, 2008/01/16 12:08:04
Line 105 sub handler {	Line 105 sub handler {
my $numres = 0;	my $numres = 0;

# Start off the directory table.	# Start off the directory table.
$r->print('<h3>Directory Contents:</h3>');	$r->print('<h3>'.&mt('Directory Contents:').'</h3>');
$r->print('<table id="LC_browser"><tr>'.	$r->print('<table id="LC_browser"><tr>'.
'<th>'.&mt('Type').'</th>'.	'<th>'.&mt('Type').'</th>'.
'<th>'.&mt('Actions').'</th>'.	'<th>'.&mt('Actions').'</th>'.
Line 197 sub startpage {	Line 197 sub startpage {
my $formaction='/priv/'.$uname.$thisdisfn.'/';	my $formaction='/priv/'.$uname.$thisdisfn.'/';
$formaction=~s\|/+\|/\|g;	$formaction=~s\|/+\|/\|g;
my $pagetitle .= &Apache::loncommon::help_open_menu('','',3,'Authoring').	my $pagetitle .= &Apache::loncommon::help_open_menu('','',3,'Authoring').
'<font face="Arial, Helvetica, sans-serif" size="+1"><b>Construction Space</b>:</font> '.	'<font face="Arial, Helvetica, sans-serif" size="+1"><b>'.&mt('Construction Space').'</b>:</font> '.
'<form name="dirs" method="post" action="'.$formaction.	'<form name="dirs" method="post" action="'.$formaction.
'" target="_parent"><tt><b>'.	'" target="_parent"><tt><b>'.
&Apache::lonhtmlcommon::crumbs($uname.$thisdisfn.'/','_top','/priv','','+1',1)."</b></tt><br />".	&Apache::lonhtmlcommon::crumbs($uname.$thisdisfn.'/','_top','/priv','','+1',1)."</b></tt><br />".
Line 207 sub startpage {	Line 207 sub startpage {
&Apache::lonhtmlcommon::store_recent('construct',$formaction,$formaction);	&Apache::lonhtmlcommon::store_recent('construct',$formaction,$formaction);
if ($env{'environment.remote'} eq 'off') {	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(&mt('Construction Space'),undef,
{'body_title' =>	{'body_title' =>
$pagetitle,}));	$pagetitle,}));
} else {	} else {
$r->print(&Apache::loncommon::start_page('Construction Space',undef,	$r->print(&Apache::loncommon::start_page(&mt('Construction Space'),undef,
{ 'only_body' => 1,}));	{ 'only_body' => 1,}));
$r->print($pagetitle);	$r->print($pagetitle);
}	}
Line 219 sub startpage {	Line 219 sub startpage {
my $esc_thisdisfn = &Apache::loncommon::escape_single($thisdisfn);	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 = '$esc_thisdisfn/ - LON-CAPA Construction Space';	top.document.title = '$esc_thisdisfn/ - '.&mt('LON-CAPA Construction Space');
// Store directory location for menu bar to find	// Store directory location for menu bar to find

parent.lastknownpriv='/~$uname$esc_thisdisfn/';	parent.lastknownpriv='/~$uname$esc_thisdisfn/';
Line 369 sub dircontrols {	Line 369 sub dircontrols {
updc => 'Upload a new document',	updc => 'Upload a new document',
pick => 'Please select an action to perform using the new filename',	pick => 'Please select an action to perform using the new filename',
);	);
	my $mytype = $lt{'type'}; # avoid conflict with " and ' in javascript
$r->print(<<END);	$r->print(<<END);
<table id="LC_cstr_controls">	<table id="LC_cstr_controls">
<tr>	<tr>
Line 429 sub dircontrols {	Line 430 sub dircontrols {
<option value="newtaskfile">$lt{'nbt'}:</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="validate_go();" />	</select> <input type="text" name="newfilename" value="$lt{'type'}" onfocus="if (this.value == '$mytype') this.value=''" /> <input type="button" value="Go" onclick="validate_go();" />
</span>	</span>
</form>	</form>
</td>	</td>

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

Removed from v.1.105
changed lines
	Added in v.1.106