Diff for /nsdl/lonsql between versions 1.7 and 1.8

version 1.7, 2005/11/24 21:34:31 version 1.8, 2005/11/25 21:18:35
Line 829  sub nsdl_query { Line 829  sub nsdl_query {
                 } else {                  } else {
                    $url='';                     $url='';
                 }                  }
                 $allresults.='&'.                  if ($url) {
                      my ($mime)=($url=~/\.(\w+)$/);
                      $mime=~tr/A-Z/a-z/;
                      $allresults.='&'.
                     &escape($result{'dc:title'}).','.                      &escape($result{'dc:title'}).','.
                     &escape($result{'dc:creator'}).','.                      &escape($result{'dc:creator'}).','.
                     &escape($url).','.                      &escape($result{'dc:subject'}).','.
                     &escape($result{'dc:subject'}).',,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,';                      &escape($url).',,,,'.
                       &escape($result{'dc:description'}).','.
                       &escape($mime).',seniso,,,,public,nsdl,,,,,,,,,,,,,,,,,,,,,,,,,,,,';
                   }
                   %result=();
     } elsif ($token->[1]=~/^dc\:/) {      } elsif ($token->[1]=~/^dc\:/) {
  $result{$is}=$cont;   $result{$is}=$cont;
     }      }

Removed from v.1.7  
changed lines
  Added in v.1.8


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