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

[albertel]

albertel		Fri Feb 27 12:27:51 2004 EDT

  Modified files:              
    /loncom/publisher	lonpublisher.pm 
  Log:
  - BUG#2454, don't say /adm/navmpss is currently available when publishing a sequence
  
  
Index: loncom/publisher/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.163 loncom/publisher/lonpublisher.pm:1.164
--- loncom/publisher/lonpublisher.pm:1.163	Tue Jan 27 17:54:59 2004
+++ loncom/publisher/lonpublisher.pm	Fri Feb 27 12:27:51 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.163 2004/01/27 22:54:59 albertel Exp $
+# $Id: lonpublisher.pm,v 1.164 2004/02/27 17:27:51 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -920,11 +920,11 @@
               $allowstr.="\n".'<allow src="'.$thisdep.'" />';
 	   }
            $scrout.='<br />';
-           unless ($thisdep=~/\*/) {
+           if ($thisdep!~/\*/ && $thisdep!~m|^/adm/|) {
 	       $scrout.='<a href="'.$thisdep.'">';
            }
            $scrout.='<tt>'.$thisdep.'</tt>';
-           unless ($thisdep=~/\*/) {
+           if ($thisdep!~/\*/ && $thisdep!~m|^/adm/|) {
 	       $scrout.='</a>';
                if (
        &Apache::lonnet::getfile($Apache::lonnet::perlvar{'lonDocRoot'}.'/'.