--- loncom/publisher/lonpublisher.pm	2001/12/05 20:25:20	1.57
+++ loncom/publisher/lonpublisher.pm	2001/12/05 20:37:06	1.58
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.57 2001/12/05 20:25:20 albertel Exp $
+# $Id: lonpublisher.pm,v 1.58 2001/12/05 20:37:06 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -37,6 +37,8 @@
 # 05/03,05/05,05/07 Gerd Kortemeyer
 # 05/28/2001 Scott Harrison
 # 06/23,08/07,08/11,8/13,8/17,8/18,8/24,9/26,10/16 Gerd Kortemeyer
+# 12/04,12/05 Guy Albertelli
+# 12/05 Gerd Kortemeyer
 
 package Apache::lonpublisher;
 
@@ -359,6 +361,12 @@ sub publish {
            $scrout.='<tt>'.$_.'</tt>';
            unless ($_=~/\*/) {
 	       $scrout.='</a>';
+               if (&Apache::lonnet::getfile(
+                   $Apache::lonnet::perlvar{'lonDocRoot'}.'/'.
+                                            $_.'.meta') eq '-1') {
+		   $scrout.=
+                           ' - <font color=red>Currently not available</font>';
+               }
            }
         } keys %allow;
         $outstring=~s/(\<\/[^\>]+\>\s*)$/$allowstr$1/s;
@@ -492,6 +500,7 @@ sub publish {
           &hiddenfield('phase','two').
           &hiddenfield('filename',$ENV{'form.filename'}).
 	  &hiddenfield('allmeta',&Apache::lonnet::escape($allmeta)).
+          &hiddenfield('dependencies',join(',',keys %allow)).
           &textfield('Title','title',$metadatafields{'title'}).
           &textfield('Author(s)','author',$metadatafields{'author'}).
 	  &textfield('Subject','subject',$metadatafields{'subject'});