--- loncom/publisher/lonpublisher.pm	2003/12/27 16:58:36	1.155
+++ loncom/publisher/lonpublisher.pm	2003/12/28 20:12:59	1.156
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.155 2003/12/27 16:58:36 www Exp $
+# $Id: lonpublisher.pm,v 1.156 2003/12/28 20:12:59 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -126,6 +126,7 @@ use Apache::loncommon();
 use Apache::lonmysql;
 use Apache::lonlocal;
 use Apache::loncfile;
+use Apache::lonmeta;
 use vars qw(%metadatafields %metadatakeys);
 
 my %addid;
@@ -799,17 +800,13 @@ sub store_metadata {
 	$metadata{'sequsage'}=$metadata{'usage'};
 	$metadata{'sequsage_list'}=$metadata{'usage_list'};
 	my %newmetadata=();
-# retrieve current database column names
-	my @columns=&Apache::lonmysql::col_order('metadata');
 # see if we have old entries
 	my @oldmeta=&Apache::lonmysql::get_rows('metadata',
 						"url LIKE BINARY '".
 						$metadata{'url'}."'");
 	if ($#oldmeta==0) {
-# there is an old value
-	    for (my $i=0; $i<=$#columns; $i++) {
-		$newmetadata{$columns[$i]}=$oldmeta[0]->[$i];
-	    }
+# yes, there is one old entry, transfer to newmetadata
+	    %newmetadata=&Apache::lonmeta::metadata_col_to_hash(@{$oldmeta[0]});
 # remove old entry
 	    $status=&Apache::lonmysql::remove_from_table
 		('metadata','url',$metadata{'url'});
@@ -1652,8 +1649,8 @@ sub publishdirectory {
     my $resdir=
 	$Apache::lonnet::perlvar{'lonDocRoot'}.'/res/'.$cudom.'/'.$cuname.'/'.
 	$thisdisfn;
-    $r->print('<h1>Directory <tt>'.$thisdisfn.'</tt></h1>'.
-	      'Target: <tt>'.$resdir.'</tt><br />');
+    $r->print('<h1>'.&mt('Directory').' <tt>'.$thisdisfn.'</tt></h1>'.
+	      &mt('Target').': <tt>'.$resdir.'</tt><br />');
 
     my $dirptr=16384;		# Mask indicating a directory in stat.cmode.
 
@@ -1691,7 +1688,7 @@ sub publishdirectory {
 	    if ($publishthis) {
                 &batchpublish($r,$fn.'/'.$filename,$resdir.'/'.$filename);
 	    } else {
-		$r->print('<br />Skipping '.$filename.'<br />');
+		$r->print('<br />'.&mt('Skipping').' '.$filename.'<br />');
 	    }
 	    $r->rflush();
 	}