--- nsdl/lonsql	2005/11/29 20:02:23	1.9
+++ nsdl/lonsql	2005/11/29 21:02:52	1.10
@@ -3,7 +3,7 @@
 # The LearningOnline Network
 # lonsql - LON TCP-NSDL Query Handler.
 #
-# $Id: lonsql,v 1.9 2005/11/29 20:02:23 www Exp $
+# $Id: lonsql,v 1.10 2005/11/29 21:02:52 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -832,13 +832,25 @@ sub nsdl_query {
                 if ($url) {
                    my ($mime)=($url=~/\.(\w+)$/);
                    $mime=~tr/A-Z/a-z/;
+		   my $createdate=$result{'dc:date'};
+		   if ($createdate) {
+		       unless ($createdate=~/\:\d+$/) {
+			   $createdate.=' 00:00:00';
+		       }
+		   }
+		   unless ($createdate=~/^\d+\-\d+\-\d+\s+\d+\:\d+\:\d+$/) {
+		       $createdate='';
+		   }
+                   $createdate=&escape($createdate);
+
                    $allresults.='&'.
                     &escape($result{'dc:title'}).','.
                     &escape($result{'dc:creator'}).','.
                     &escape($result{'dc:subject'}).','.
                     &escape($url).',,,,'.
                     &escape($result{'dc:description'}).','.
-                    &escape($mime).',seniso,,,,public,nsdl,,,,,,,,,,,,,,,,,,,,,,,,,,,,';
+                    &escape($mime).',seniso,'.$createdate.','.$createdate.','.&escape('public@nsdl').
+		    ',public,nsdl,,,,,,,,,,,,,,,,,,,,,,,,,,,,';
                 }
                 %result=();
 	    } elsif ($token->[1]=~/^dc\:/) {