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.91 and 1.92

version 1.91, 2006/05/17 13:41:45	version 1.92, 2006/06/22 20:09:41
Line 105 sub handler {	Line 105 sub handler {

# Start off the directory table.	# Start off the directory table.
$r->print('<h3>Directory Contents:</h3>');	$r->print('<h3>Directory Contents:</h3>');
$r->print('<table border="0" cellspacing="2" cellpadding="2"><tr>'.	$r->print('<table id="LC_browser"><tr>'.
'<th bgcolor="#DDDDDD">'.&mt('Type').'</th>'.	'<th>'.&mt('Type').'</th>'.
'<th bgcolor="#DDDDDD">'.&mt('Actions').'</th>'.	'<th>'.&mt('Actions').'</th>'.
'<th bgcolor="#DDDDDD">'.&mt('Name').'</th>'.	'<th>'.&mt('Name').'</th>'.
'<th bgcolor="#DDDDDD">'.&mt('Title').'</th>'.	'<th>'.&mt('Title').'</th>'.
'<th bgcolor="#DDDDDD">'.&mt('Status').'</th>'.	'<th>'.&mt('Status').'</th>'.
'<th bgcolor="#DDDDDD">'.&mt('Last Modified').	'<th>'.&mt('Last Modified').
'</th></tr>'."\n");	'</th></tr>'."\n");

my $filename;	my $filename;
Line 399 sub dircontrols {	Line 399 sub dircontrols {
</td>	</td>
<td bgcolor="#ccddaa" align="center">	<td bgcolor="#ccddaa" align="center">
<form name="fileaction" method="post" action="/adm/cfile" target="_parent">	<form name="fileaction" method="post" action="/adm/cfile" target="_parent">
<nobr>	<span style="white-space: nowrap">
<input type="hidden" name="filename" value="/~$uname$thisdisfn/" />	<input type="hidden" name="filename" value="/~$uname$thisdisfn/" />
<select name="action">	<select name="action">
<option value="Select Action">$lt{'sela'}</option>	<option value="Select Action">$lt{'sela'}</option>
Line 413 sub dircontrols {	Line 413 sub dircontrols {
<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()" />
</nobr>	</span>
</form>	</form>
</td>	</td>
</tr>	</tr>
Line 540 sub putdirectory {	Line 540 sub putdirectory {
'</form>';	'</form>';
$$numdir ++;	$$numdir ++;
}	}
$r->print('<tr bgcolor="#CCCCFF">'.	$r->print('<tr class="LC_browser_folder">'.
'<td><img src="'.	'<td><img src="'.
$Apache::lonnet::perlvar{'lonIconsURL'}.'/folder_closed.gif" alt="folder" /></td>'.	$Apache::lonnet::perlvar{'lonIconsURL'}.'/folder_closed.gif" alt="folder" /></td>'.
'<td>'.$actionitem.'</td>'.	'<td>'.$actionitem.'</td>'.
'<td><font face="arial"><a href="'.&HTML::Entities::encode($here.'/'.$dirname,'<>&"').'/" target="_parent">'.	'<td><span class="LC_filename"><a href="'.&HTML::Entities::encode($here.'/'.$dirname,'<>&"').'/" target="_parent">'.
$disfilename.'</a></font></td>'.	$disfilename.'</a></span></td>'.
'<td colspan="2">'.($kaputt?&Apache::lonhtmlcommon::authorbombs($resdir.'/'.$disfilename.'/'):'').$Apache::lonpublisher::metadatafields{'title'}.' <i>'.	'<td colspan="2">'.($kaputt?&Apache::lonhtmlcommon::authorbombs($resdir.'/'.$disfilename.'/'):'').$Apache::lonpublisher::metadatafields{'title'});
$Apache::lonpublisher::metadatafields{'subject'}.'</i> '.	if ($Apache::lonpublisher::metadatafields{'subject'} ne '') {
$Apache::lonpublisher::metadatafields{'keywords'}.'</td>'.	$r->print(' <i>'.
	$Apache::lonpublisher::metadatafields{'subject'}.
	'</i> ');
	}
	$r->print($Apache::lonpublisher::metadatafields{'keywords'}.'</td>'.
'<td>'.&Apache::lonlocal::locallocaltime($modtime).'</td>'.	'<td>'.&Apache::lonlocal::locallocaltime($modtime).'</td>'.
"</tr>\n");	"</tr>\n");
}	}
Line 564 sub putresource {	Line 568 sub putresource {
&Apache::lonnet::devalidate_cache_new('meta',$targetdir.'/'.$filename);	&Apache::lonnet::devalidate_cache_new('meta',$targetdir.'/'.$filename);
my $pubstatus = 'unpublished';	my $pubstatus = 'unpublished';
my $status=&mt('Unpublished');	my $status=&mt('Unpublished');
my $bgcolor='#FFAA99';	my $css_class='LC_browser_file';
my $title=' ';	my $title=' ';
my $publish_button=&mt('Publish');	my $publish_button=&mt('Publish');
# my $action_buttons=	# my $action_buttons=
Line 593 sub putresource {	Line 597 sub putresource {
$status=&mt('Published').'<br />'.	$status=&mt('Published').'<br />'.
&mt(&getCopyRightString($targetdir.'/'.$filename)).' '.	&mt(&getCopyRightString($targetdir.'/'.$filename)).' '.
&mt(&getSourceRightString($targetdir.'/'.$filename));	&mt(&getSourceRightString($targetdir.'/'.$filename));
$bgcolor='#CCFF88';
if (&Apache::lonnet::metadata($targetdir.'/'.$filename,'obsolete')) {	if (&Apache::lonnet::metadata($targetdir.'/'.$filename,'obsolete')) {
$pubstatus = 'obsolete';	$pubstatus = 'obsolete';
$status=&mt('Obsolete');	$status=&mt('Obsolete');
$bgcolor='#AAAAAA';
}	}
# } else {	# } else {
# $action_buttons='';	# $action_buttons='';
Line 610 sub putresource {	Line 612 sub putresource {
$status=&mt('Modified').'<br />'.	$status=&mt('Modified').'<br />'.
&mt(&getCopyRightString($targetdir.'/'.$filename)).' '.	&mt(&getCopyRightString($targetdir.'/'.$filename)).' '.
&mt(&getSourceRightString($targetdir.'/'.$filename));	&mt(&getSourceRightString($targetdir.'/'.$filename));
$bgcolor='#FFFF77';
# $action_buttons='';	# $action_buttons='';
$title='<a href="/res/'.$targetdir.'/'.$filename.'.meta" target="cat">'.	$title='<a href="/res/'.$targetdir.'/'.$filename.'.meta" target="cat">'.
&getTitleString($targetdir.'/'.$filename).'</a>';	&getTitleString($targetdir.'/'.$filename).'</a>';
Line 644 sub putresource {	Line 645 sub putresource {
}	}
my $pub_select = '';	my $pub_select = '';
&create_pubselect($r,\$pub_select,$udom,$uname,$thisdisfn,$filename,$resdir,$pubstatus,$publish_button,$numres);	&create_pubselect($r,\$pub_select,$udom,$uname,$thisdisfn,$filename,$resdir,$pubstatus,$publish_button,$numres);
$r->print('<tr bgcolor="'.$bgcolor.'">'.	$r->print('<tr class="LC_browser_file_'.$pubstatus.'">'.
'<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><font face="arial">'.	'<td><span class="LC_filename"> '.
'<a href="'.$linkdir.'/'.$filename.'" target="_parent">'.	'<a href="'.$linkdir.'/'.$filename.'" target="_parent">'.
$filename.'</a></font>'.$editlink2.$editlink.	$filename.'</a></span>'.$editlink2.$editlink.
'</td>'.	'</td>'.
'<td>'.$title.'</td>'.	'<td>'.$title.'</td>'.
'<td>'.$status.'</td>'.	'<td>'.$status.'</td>'.

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

Removed from v.1.91
changed lines
	Added in v.1.92