Changeset 59 for trunk/gsdl/perllib/mgbuildproc.pm

Timestamp:

1998-12-07T14:54:37+13:00 (25 years ago)

Author:

pva1

Message:

changed the acceptance of meta-data into infodb, so that empty strings are not accepted

File:

• trunk/gsdl/perllib/mgbuildproc.pm (modified) (1 diff)

trunk/gsdl/perllib/mgbuildproc.pm

@@ -247 +247 @@
 
     print $handle "[$section]\n";
-    print $handle "<t>$title\n" if defined $title;
-    print $handle "<a>$creator\n" if defined $creator;
-    print $handle "<s>$source\n" if defined $source;
-    print $handle "<i>$date\n" if defined $date;
-    print $handle "<j>$jobnumber\n" if defined $jobnumber;
-    print $handle "<c>$contains\n" if defined $contains;
-    print $handle "<d>$docnum\n" if defined $docnum;
-    print $handle "<p>$parent\n" if defined $parent;
-    print $handle "<x>$classification\n" if defined $classification;
+    print $handle "<t>$title\n" if (defined $title && $title ne "");
+    print $handle "<a>$creator\n" if (defined $creator && $creator ne "");
+    print $handle "<s>$source\n" if (defined $source && $source ne "");
+    print $handle "<i>$date\n" if (defined $date && $date ne "");
+    print $handle "<j>$jobnumber\n" if (defined $jobnumber && $jobnumber ne "");
+    print $handle "<c>$contains\n" if (defined $contains && $contains ne "");
+    print $handle "<d>$docnum\n" if (defined $docnum && $docnum ne "");
+    print $handle "<p>$parent\n" if (defined $parent && $parent ne "");
+    print $handle "<x>$classification\n" if (defined $classification && $classification ne "");
     print $handle "<o>$OID\n" if defined $OID;
     print $handle '-' x 70, "\n";