--- loncom/publisher/lonpublisher.pm	2001/12/05 20:37:06	1.58
+++ loncom/publisher/lonpublisher.pm	2001/12/05 22:00:14	1.61
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.58 2001/12/05 20:37:06 www Exp $
+# $Id: lonpublisher.pm,v 1.61 2001/12/05 22:00:14 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -353,20 +353,29 @@ sub publish {
 	$scrout.='<h3>Dependencies</h3>';
 	my $allowstr="\n";
         map {
-           $allowstr.='<allow src="'.$_.'" />'."\n";
+	   my $thisdep=$_;
+           $allowstr.='<allow src="'.$thisdep.'" />'."\n";
            $scrout.='<br>';
-           unless ($_=~/\*/) {
-	       $scrout.='<a href="'.$_.'">';
+           unless ($thisdep=~/\*/) {
+	       $scrout.='<a href="'.$thisdep.'">';
            }
-           $scrout.='<tt>'.$_.'</tt>';
-           unless ($_=~/\*/) {
+           $scrout.='<tt>'.$thisdep.'</tt>';
+           unless ($thisdep=~/\*/) {
 	       $scrout.='</a>';
-               if (&Apache::lonnet::getfile(
-                   $Apache::lonnet::perlvar{'lonDocRoot'}.'/'.
-                                            $_.'.meta') eq '-1') {
+               if (
+       &Apache::lonnet::getfile($Apache::lonnet::perlvar{'lonDocRoot'}.'/'.
+                                            $thisdep.'.meta') eq '-1') {
 		   $scrout.=
                            ' - <font color=red>Currently not available</font>';
-               }
+               } else {
+                   my %temphash=(&Apache::lonnet::declutter($target).'___'.
+                             &Apache::lonnet::declutter($thisdep).'___usage'
+                                 => time);
+                   $thisdep=~/^\/res\/(\w+)\/(\w+)\//;
+                   if ((defined($1)) && (defined($2))) {
+                      &Apache::lonnet::put('resevaldata',\%temphash,$1,$2);
+		   }
+	       }
            }
         } keys %allow;
         $outstring=~s/(\<\/[^\>]+\>\s*)$/$allowstr$1/s;
@@ -497,6 +506,7 @@ sub publish {
 
         $scrout.=
      '<form action="/adm/publish" method="post">'.
+      '<p><input type="submit" value="Finalize Publication" /></p>'.
           &hiddenfield('phase','two').
           &hiddenfield('filename',$ENV{'form.filename'}).
 	  &hiddenfield('allmeta',&Apache::lonnet::escape($allmeta)).
@@ -588,7 +598,7 @@ sub publish {
                             $metadatafields{'copyright'},%cprtag);
 
     return $scrout.
-      '<p><input type="submit" value="Finalize Publication"></form>';
+      '<p><input type="submit" value="Finalize Publication" /></p></form>';
 }
 
 # -------------------------------------------------------- Publication Step Two
@@ -622,6 +632,7 @@ sub phasetwo {
      $metadatafields{'lastrevisiondate'}=$ENV{'form.lastrevisiondate'};
      $metadatafields{'owner'}=$ENV{'form.owner'};
      $metadatafields{'copyright'}=$ENV{'form.copyright'};
+     $metadatafields{'dependencies'}=$ENV{'form.dependencies'};
 
      my $allkeywords=$ENV{'form.addkey'};
      map {