[LON-CAPA-cvs] cvs: loncom /publisher lonpubdir.pm

[www]

www		Wed Jun 18 10:58:39 2003 EDT

  Modified files:              
    /loncom/publisher	lonpubdir.pm 
  Log:
  As discussed in developer meeting, now shows EditXML for problems.
  
  
Index: loncom/publisher/lonpubdir.pm
diff -u loncom/publisher/lonpubdir.pm:1.33 loncom/publisher/lonpubdir.pm:1.34
--- loncom/publisher/lonpubdir.pm:1.33	Mon Jun 16 17:32:43 2003
+++ loncom/publisher/lonpubdir.pm	Wed Jun 18 10:58:39 2003
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Construction Space Directory Lister
 #
-# $Id: lonpubdir.pm,v 1.33 2003/06/16 21:32:43 www Exp $
+# $Id: lonpubdir.pm,v 1.34 2003/06/18 14:58:39 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -311,8 +311,11 @@
 	    $thisdisfn.'/'.$filename.'" target=cat>Retrieve</a>';
     }
     my $editlink='';
-    if ($filename=~/\.(xml|html|htm|xhtml|xhtm|problem|exam|quiz|assess|survey|form|library)$/) {
+    if ($filename=~/\.(xml|html|htm|xhtml|xhtm)$/) {
 	$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>)';
     }
     $r->print('<tr bgcolor="'.$bgcolor.'">'.
 	      '<td><a target="_parent" href="/adm/publish?filename=/~'.