--- loncom/publisher/lonpublisher.pm	2003/12/29 21:17:00	1.158
+++ loncom/publisher/lonpublisher.pm	2003/12/31 03:02:49	1.159
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.158 2003/12/29 21:17:00 www Exp $
+# $Id: lonpublisher.pm,v 1.159 2003/12/31 03:02:49 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -127,6 +127,7 @@ use Apache::lonmysql;
 use Apache::lonlocal;
 use Apache::loncfile;
 use Apache::lonmeta;
+use Apache::lonmsg;
 use vars qw(%metadatafields %metadatakeys);
 
 my %addid;
@@ -1016,6 +1017,9 @@ sub publish {
         }
 
     } else {
+# ------------------------------------------ See if anything new in file itself
+ 
+	$allmeta=&parseformeta($source,$style);
 # ---------------------- Read previous metafile, remember parameters and stores
 
         $scrout.=&metaread($logfile,$source.'.meta');
@@ -1026,9 +1030,6 @@ sub publish {
 		delete $metadatafields{$_};
             }
         }
-# ------------------------------------------ See if anything new in file itself
- 
-	$allmeta=&parseformeta($source,$style);
    }
 
        
@@ -1434,7 +1435,10 @@ sub phasetwo {
 	$r->print($error);
 	print $logfile "\n".$error;
     }
-
+# --------------------------------------------- Delete author resource messages
+    my $delresult=&Apache::lonmsg::del_url_author_res_msg($target); 
+    $r->print('<p>'.&mt('Removing error messages:').' '.$delresult.'</p>');
+    print $logfile "\nRemoving error messages: $delresult";
 # ----------------------------------------------------------- Copy old versions
    
     if (-e $target) {
@@ -1750,7 +1754,7 @@ sub handler {
 # -------------------------------------------------------------- Check filename
 
     my $fn=&Apache::lonnet::unescape($ENV{'form.filename'});
-
+    $fn=~s/\.meta$//;
   
     unless ($fn) { 
 	$r->log_reason($cuname.' at '.$cudom.