Changeset 22399

Timestamp:

2010-07-14T13:05:56+12:00 (14 years ago)

Author:

kjdon

Message:

changes for unimarc, thanks to Yvan Arnaud

File:

• main/trunk/greenstone2/runtime-src/packages/d2m/MARCtidy.c (modified) (2 diffs)

main/trunk/greenstone2/runtime-src/packages/d2m/MARCtidy.c

@@ -65 +65 @@
         nline(p, l, buf);
 
+    /* Add 200 subfields after $a - unimarc */
+    if ( (strncmp(p, "200", 3) == 0) && (strncmp(p + 5, "$a", 2) == 0) )
+      {
+        if ( ( format == UNIMARC ) && ( *mrec->subtitle) )
+          {
+        strcpy(p, "     $e");
+        strcpy(l, mrec->subtitle);
+        nline(p, l, buf);
+          }
+      }
 
 /*      Add 245 subfields after $a */
@@ -127 +137 @@
 
 
-/* Add URL as 856 $u                                                 */
+/* Add URL as 856 $u  (or 300 $a for unimarc)                       */
 
    if (*mrec->url)
    {
-     strcpy(p, "856  $u");
-     strcpy(l, mrec->url);
-     nline(p, l, buf);
+     if (format == UNIMARC) {
+       strcpy(p, "300  $a");
+       strcpy(l, mrec->url);
+       nline(p, l, buf);
 
-/* Add format as $q                                                    */
+
+     } else {
+       strcpy(p, "856  $u");
+       strcpy(l, mrec->url);
+       nline(p, l, buf);
+     }
+   }
+/* Add format as $q (or 336 $a for unimarc)            */
 
      if (*mrec->fmat)
      {
-       strcpy(p, "     $q");
-       strcpy(l, mrec->fmat);
-       nline(p, l, buf);
+
+       if (format == UNIMARC) {
+     strcpy(p, "336  $a");
+     strcpy(l, mrec->fmat);
+     nline(p, l, buf);
+       }
+       else {
+     strcpy(p, "     $q");
+     strcpy(l, mrec->fmat);
+     nline(p, l, buf);
+       }
      }
-   }
+
 
 }