rule "Primo VE Display - contributor 700"
	when
		 MARC."700" has any "a,b,c,d,q" AND NOT 
                 MARC."700"."e" match "author."	AND NOT
          MARC."700"."5" match ".*"	 
	then
          set TEMP"1" to MARC."700" excluding num subfields without sort
           remove substring using regex (TEMP"1","(/|:|;|=|,|\\.)+$")
           set TEMP"2" to MARC."700" sub without sort "a,b,c,d,q"
           remove substring using regex (TEMP"2","(/|:|;|=|,)+$")
           add prefix (TEMP"2","$$Q")
           remove substring using regex (TEMP"2","^$$Q$")
           concatenate with delimiter (TEMP"1",TEMP"2","")
           set TEMP"3" to multilingual by "700" "Contributor" "display"
		   concatenate with delimiter (TEMP"1",TEMP"3","")
           create pnx."display"."contributor" with TEMP"1"
end


rule "Primo VE Display - contributor 710"
	when
		MARC."710" has any "a,b,c,d,n" AND NOT
          MARC."710"."5" match ".*"
	then
	    set TEMP"1" to MARC."710" excluding num subfields without sort
	    remove substring using regex (TEMP"1","(/|:|;|=|,|\\.)+$")
		set TEMP"2" to MARC."710" sub without sort "a,b,c,d,n"
        remove substring using regex (TEMP"2","(/|:|;|=|,)+$")
        add prefix (TEMP"2","$$Q")
        remove substring using regex (TEMP"2","^$$Q$")
        concatenate with delimiter (TEMP"1",TEMP"2","")
        set TEMP"3" to multilingual by "710" "Contributor" "display"
		concatenate with delimiter (TEMP"1",TEMP"3","")
		create pnx."display"."contributor" with TEMP"1"
end

rule "Primo VE Display - contributor 711"
	when
		MARC."711" has any "a,b,c,d,n" AND NOT
          MARC."711"."5" match ".*"
	then
	    set TEMP"1" to MARC."711" excluding num subfields without sort
	    remove substring using regex (TEMP"1","(/|:|;|=|,|\\.)+$")
		set TEMP"2" to MARC."711" sub without sort "a,b,c,d,n"
        remove substring using regex (TEMP"2","(/|:|;|=|,)+$")
        add prefix (TEMP"2","$$Q")
        remove substring using regex (TEMP"2","^$$Q$")
        concatenate with delimiter (TEMP"1",TEMP"2","")
        set TEMP"3" to multilingual by "711" "Contributor" "display"
		concatenate with delimiter (TEMP"1",TEMP"3","")
		create pnx."display"."contributor" with TEMP"1"
end

rule "Primo VE Display - alternate contributor 880-700"
	when
		 MARC."880" has any "a,b,c,d,q" AND
		 MARC."880"."6" match "700-.*" AND NOT
                 MARC."880"."e" match "author." AND NOT
          MARC."880"."5" match ".*"
	then
	    set TEMP"1" to MARC."880" excluding num subfields without sort
	    remove substring using regex (TEMP"1","(/|:|;|=|,|\\.)+$")
		set TEMP"2" to MARC."880" sub without sort "a,b,c,d,q"
        remove substring using regex (TEMP"2","(/|:|;|=|,)+$")
        add prefix (TEMP"2","$$Q")
        remove substring using regex (TEMP"2","^$$Q$")
        concatenate with delimiter (TEMP"1",TEMP"2","")
        set TEMP"3" to multilingual by "880" "Contributor" "display"
		concatenate with delimiter (TEMP"1",TEMP"3","")
		create pnx."display"."alternate_contributor" with TEMP"1"
end

rule "Primo VE Display - alternate contributor 880-710 "
	when
		MARC."880" has any "a,b,c,d,n" AND
		MARC."880"."6" match "710-.*" AND NOT
          MARC."880"."5" match ".*"
	then
	    set TEMP"1" to MARC."880" excluding num subfields without sort
	    remove substring using regex (TEMP"1","(/|:|;|=|,|\\.)+$")
		set TEMP"2" to MARC."880" sub without sort "a,b,c,d,n"
        remove substring using regex (TEMP"2","(/|:|;|=|,)+$")
        add prefix (TEMP"2","$$Q")
        remove substring using regex (TEMP"2","^$$Q$")
        concatenate with delimiter (TEMP"1",TEMP"2","")
        set TEMP"3" to multilingual by "880" "Contributor" "display"
		concatenate with delimiter (TEMP"1",TEMP"3","")
		create pnx."display"."alternate_contributor" with TEMP"1"
end

rule "Primo VE Display - alternate contributor 880-711"
	when
		MARC."880" has any "a,b,c,d,n" AND
		MARC."880"."6" match "711-.*" AND NOT
          MARC."880"."5" match ".*"
	then
	    set TEMP"1" to MARC."880" excluding num subfields without sort
	    remove substring using regex (TEMP"1","(/|:|;|=|,|\\.)+$")
		set TEMP"2" to MARC."880" sub without sort "a"
        remove substring using regex (TEMP"2","(/|:|;|=|,)+$")
        add prefix (TEMP"2","$$Q")
        remove substring using regex (TEMP"2","^$$Q$")
        concatenate with delimiter (TEMP"1",TEMP"2","")
        set TEMP"3" to multilingual by "880" "Contributor" "display"
		concatenate with delimiter (TEMP"1",TEMP"3","")
		create pnx."display"."alternate_contributor" with TEMP"1"
end