[LON-CAPA-cvs] cvs: loncom /publisher lonpubdir.pm
taceyjo1
lon-capa-cvs@mail.lon-capa.org
Sun, 21 Sep 2003 03:30:03 -0000
taceyjo1 Sat Sep 20 23:30:03 2003 EDT
Modified files:
/loncom/publisher lonpubdir.pm
Log:
Added the edit link, that was discussed in bug: 2047 to allow for easy editing
Index: loncom/publisher/lonpubdir.pm
diff -u loncom/publisher/lonpubdir.pm:1.37 loncom/publisher/lonpubdir.pm:1.38
--- loncom/publisher/lonpubdir.pm:1.37 Sat Aug 2 21:20:02 2003
+++ loncom/publisher/lonpubdir.pm Sat Sep 20 23:30:02 2003
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Construction Space Directory Lister
#
-# $Id: lonpubdir.pm,v 1.37 2003/08/03 01:20:02 www Exp $
+# $Id: lonpubdir.pm,v 1.38 2003/09/21 03:30:02 taceyjo1 Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -318,11 +318,13 @@
$thisdisfn.'/'.$filename.'" target=cat>Retrieve</a>';
}
my $editlink='';
+ my $editlink2='';
if ($filename=~/\.(xml|html|htm|xhtml|xhtm|sty)$/) {
$editlink=' (<a href="'.$linkdir.'/'.$filename.'?forceedit=1" target="_top">Edit</a>)';
}
if ($filename=~/\.(problem|exam|quiz|assess|survey|form|library)$/) {
$editlink=' (<a href="'.$linkdir.'/'.$filename.'?forceedit=1" target="_top">EditXML</a>)';
+ $editlink2=' (<a href="'.$linkdir.'/'.$filename.'?forceColoredit=1" target="_top">Edit</a>)';
}
$r->print('<tr bgcolor="'.$bgcolor.'">'.
'<td><a target="_parent" href="/adm/publish?filename=/~'.
@@ -330,7 +332,7 @@
'</td>'.
'<td>'.
'<a href="'.$linkdir.'/'.$filename.'" target="_top">'.
- $filename.'</a>'.$editlink.
+ $filename.'</a>'.$editlink2.$editlink.
'</td>'.
'<td>'.$title.'</td>'.
'<td>'.$status.'</td>'.