Metacat

    # check required distribution elements

    push(@invalidParams, "Data medium is required.")

    unless (hasContent($FORM::dataMedium));

    if ($FORM::dataMedium eq 'other') {

        push(@invalidParams, "Must enter custom data medium when 'other' is selected.")

        unless (hasContent($FORM::dataMediumOther));

    }

    push(@invalidParams, "Usage rights are required.")

    unless (hasContent($FORM::useConstraints));

    if ($FORM::useConstraints eq 'other') {

        push(@invalidParams, "Must enter custom usage rights when 'other' is selected.")

        unless (hasContent($FORM::useConstraintsOther));

    }