@categories = ("Social",
	       "Party",
	       "Concert",
	       "Film",
	       "Performance",
	       "Dance",
	       "Academic",
	       "Lecture",
	       "Symposium/Colloquim",
	       "Career Related",
	       "Meeting",
	       "Sports/Athletic",
	       "Other");


%categories = ("Social" => "s",
	       "Party" => "p",
	       "Concert" => "c",
	       "Film" => "f",
	       "Performance" => "P",
	       "Dance" => "d",
	       "Academic" => "a",
	       "Lecture" => "l",
	       "Symposium/Colloquim" => "S",
	       "Career Related" => "C",
	       "Meeting" => "m",
	       "Sports/Athletic" => "A",
	       "Other" => "o");

foreach $___ctg (@categories){
    $cat_names{$categories{$___ctg}} = $___ctg;
}

%cat_colors = (
  s => "#8877aa",
  p => "#aa44bb",
  c => "#5577dd",
  f => "#55bbaa",
  P => "#6688cc",
  d => "#9966cc",
  a => "#cc7755",
  l => "#cc9955",
  S => "#cc9977",
  C => "#ccdd77",
  m => "#cc5577",
  o => "#ccddee",
  A => "#eebbbb",
	       );



1;