[LON-CAPA-cvs] cvs: loncom /publisher lonpubdir.pm
www
lon-capa-cvs@mail.lon-capa.org
Sat, 03 Jan 2004 15:57:11 -0000
www Sat Jan 3 10:57:11 2004 EDT
Modified files:
/loncom/publisher lonpubdir.pm
Log:
Looks a little nicer.
Index: loncom/publisher/lonpubdir.pm
diff -u loncom/publisher/lonpubdir.pm:1.53 loncom/publisher/lonpubdir.pm:1.54
--- loncom/publisher/lonpubdir.pm:1.53 Sat Jan 3 10:11:37 2004
+++ loncom/publisher/lonpubdir.pm Sat Jan 3 10:57:11 2004
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Construction Space Directory Lister
#
-# $Id: lonpubdir.pm,v 1.53 2004/01/03 15:11:37 www Exp $
+# $Id: lonpubdir.pm,v 1.54 2004/01/03 15:57:11 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -281,8 +281,8 @@
'<td><img src="'.
$Apache::lonnet::perlvar{'lonIconsURL'}.'/folder_closed.gif" /></td>'.
'<td>'.&mt('Go to ...').'</td>'.
- '<td><a href="'.$here.'/'.$dirname.'/" target="_top">'.
- $disfilename.'</a></td>'.
+ '<td><font size="+1" face="arial"><a href="'.$here.'/'.$dirname.'/" target="_top">'.
+ $disfilename.'</a></font></td>'.
'<td colspan="2">'.($kaputt?'<img src="/adm/lonMisc/bomb.gif" />':'').$Apache::lonpublisher::metadatafields{'title'}.' <i>'.
$Apache::lonpublisher::metadatafields{'subject'}.'</i> '.
$Apache::lonpublisher::metadatafields{'keywords'}.'</td>'.
@@ -336,11 +336,11 @@
my $editlink='';
my $editlink2='';
if ($filename=~/\.(xml|html|htm|xhtml|xhtm|sty)$/) {
- $editlink=' (<a href="'.$linkdir.'/'.$filename.'?forceedit=1" target="_top">'.&mt('Edit').'</a>)';
+ $editlink=' <br />(<a href="'.$linkdir.'/'.$filename.'?forceedit=1" target="_top">'.&mt('Edit').'</a>)';
}
if ($filename=~/\.(problem|exam|quiz|assess|survey|form|library)$/) {
$editlink=' (<a href="'.$linkdir.'/'.$filename.'?forceedit=1" target="_top">'.&mt('EditXML').'</a>)';
- $editlink2=' (<a href="'.$linkdir.'/'.$filename.'?forceColoredit=1" target="_top">'.&mt('Edit').'</a>)';
+ $editlink2=' <br />(<a href="'.$linkdir.'/'.$filename.'?forceColoredit=1" target="_top">'.&mt('Edit').'</a>)';
}
if ($filename=~/\.(zip|tar|bz2|gz|tar.gz|tar.bz2|tgz)$/) {
$editlink=' (<a target="_parent" href="/adm/cfile?decompress=/~'.
@@ -352,9 +352,9 @@
'<td><a target="_parent" href="/adm/publish?filename=/~'.
$uname.$thisdisfn.'/'.$filename.'">'.&mt('Publish').'</a>'.
'</td>'.
- '<td>'.
+ '<td><font size="+1" face="arial">'.
'<a href="'.$linkdir.'/'.$filename.'" target="_top">'.
- $filename.'</a>'.$editlink2.$editlink.
+ $filename.'</a></font>'.$editlink2.$editlink.
'</td>'.
'<td>'.$title.'</td>'.
'<td>'.$status.'</td>'.