Diff for /nsdl/lonsql between versions 1.9 and 1.10

version 1.9, 2005/11/29 20:02:23 version 1.10, 2005/11/29 21:02:52
Line 832  sub nsdl_query { Line 832  sub nsdl_query {
                 if ($url) {                  if ($url) {
                    my ($mime)=($url=~/\.(\w+)$/);                     my ($mime)=($url=~/\.(\w+)$/);
                    $mime=~tr/A-Z/a-z/;                     $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.='&'.                     $allresults.='&'.
                     &escape($result{'dc:title'}).','.                      &escape($result{'dc:title'}).','.
                     &escape($result{'dc:creator'}).','.                      &escape($result{'dc:creator'}).','.
                     &escape($result{'dc:subject'}).','.                      &escape($result{'dc:subject'}).','.
                     &escape($url).',,,,'.                      &escape($url).',,,,'.
                     &escape($result{'dc:description'}).','.                      &escape($result{'dc:description'}).','.
                     &escape($mime).',seniso,,,,public,nsdl,,,,,,,,,,,,,,,,,,,,,,,,,,,,';                      &escape($mime).',seniso,'.$createdate.','.$createdate.','.&escape('public@nsdl').
       ',public,nsdl,,,,,,,,,,,,,,,,,,,,,,,,,,,,';
                 }                  }
                 %result=();                  %result=();
     } elsif ($token->[1]=~/^dc\:/) {      } elsif ($token->[1]=~/^dc\:/) {

Removed from v.1.9  
changed lines
  Added in v.1.10


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>