$flag_assignments{$key}{"starrez"} = $info[0];
$flag_assignments{$key}{"abbreviation"} = $info[1];
$flag_assignments{$key}{"greek"} = $info[2];
$flag_assignments{$key}{"Fall"} = $info[3];
$flag_assignments{$key}{"Spring"} = $info[4];
$flag_assignments{$key}{"Summer"} = $info[5];
$flag_assignments{$key}{"RA-Fall"} = $info[6];
$flag_assignments{$key}{"RA-Spring"} = $info[7];
$flag_assignments{$key}{"RA-Summer"} = $info[8];
$flag_assignments{$key}{"NR-Fall"} = $info[9];
$flag_assignments{$key}{"NR-Spring"} = $info[10];
##</code><code>##

for my $key (sort keys %starrez) {
	if (exists $starrez{$key}{"dorm"}) {
	} else {
		$starrez{$key}{"dorm"} = "None";
	}
	if (exists $starrez{$key}{"greek"}) {
	} else {
		$starrez{$key}{"greek"} = "None";
	}
	if (exists $starrez{$key}{"RA"}) {
	} else {
		$starrez{$key}{"RA"} = "None";
	}
	if (exists $explanation{$key}) {
	} else {
		$explanation{$key} = "None";
	}
	
	my $temp_key = $starrez{$key}{"dorm"};
	if ($starrez{$key}{"greek"} ne "None") {
		$temp_key = $temp_key . "\|$starrez{$key}{greek}";
	}
	
	my $temp_semester = $semester;
	if ($starrez{$key}{"RA"} ne "None") {
		$temp_semester = "RA\-" . $temp_semester;
	}
	
	if (defined $flag_assignments{$temp_key}) {
		print "KEY [$key] TK [$temp_key] TS [$temp_semester] FAS [$flag_assignments{$temp_key}{starrez}] FAA [$flag_assignments{$temp_key}{abbreviation}]\n";
	}
	
	
	# ONLY ONE FLAGE PER CATEGORY, AND GREEKS LIVING ON CAMPUS WILL ALSO GET NR ACCESS TO THE HOUSE OF THE FRAT/SORORITY

	if ($starrez{$key}{"dorm"} ne "None") {
		if ($flag_assignments{$temp_key}{$temp_semester} ne "") {
			if (($flag_assignments{$temp_key}{$temp_semester} ne "x") and ($flag_assignments{$temp_key}{$temp_semester} ne "None")) {
				if ($starrez{$key}{"RA"} ne "None") {
					# Patron is an RA or CRA so needs appropriate access
					if (exists $output{$key}) {
						$output{$key} = $output{$key} . ",P$flag_assignments{$temp_key}{$temp_semester}";
					} else {
						$output{$key} = "C|$key|$flag_assignments{$temp_key}{abbreviation},(P$flag_assignments{$temp_key}{$temp_semester}";
					}
				} else {
					# Patron is not an RA or CRA so will just receive normal access
					if (exists $output{$key}) {
						$output{$key} = $output{$key} . ",P$flag_assignments{$temp_key}{$temp_semester}";
					} else {
						$output{$key} = "C|$key|$flag_assignments{$temp_key}{abbreviation},(P$flag_assignments{$temp_key}{$temp_semester}";
					}
				}
			}
		} else {
			#print "TK [$temp_key]\n";
			if ($temp_key =~ '|') {
				my @temp_1 = split('|',$temp_key);
				# Give access to their dorm
				if (exists $output{$key}) {
					$output{$key} = $output{$key} . ",P$flag_assignments{$temp_1[0]}{$temp_semester}";
				} else {
					$output{$key} = "C|$key|$flag_assignments{$temp_1[0]}{abbreviation},(P$flag_assignments{$temp_1[0]}{$temp_semester}";
				}
				# Find which house their Greek affiliation is in and give them Non-Res (NR) access
				for my $key2 (sort keys %flag_assignments) {
					print "KEY2 [$key2]\n";
					if (defined $flag_assignments{$key2}{"greek"} ne "") {
						if ($temp_1[1] eq $flag_assignments{$key2}{"greek"}) {
							my $temp2semester = "NR-" . $semester;
							if ($flag_assignments{$key2}{"$temp2semester"} ne "") {
								if (exists $output{$key}) {
									print "KEY [$key] NR-$semester [$flag_assignments{$key2}{$temp2semester}]\n";
									$output{$key} = $output{$key} . ",P$flag_assignments{$key2}{$temp2semester}";
								}
							} else {
								print BADOUTPUT "No NR flag,$key,$starrez{$key}{dorm},$starrez{$key}{greek},$starrez{$key}{RA}\n";
							}
						}
					} else {
						#print "TEMP_KEY [$temp_key]\n";
					}
				}
			} else {
				print BADOUTPUT "Not Greek and should be,$key,$starrez{$key}{dorm},$starrez{$key}{greek},$starrez{$key}{RA}\n";
			}
		}
	}
}