sub getHallDetails() {
  my ($hall_id,$dbh)=@_;

  my $sth=$dbh->prepare("select hall_name,upload_date,uploaded_by,photo_id from hall_details where hall_id='$hall_id' limit 1;");
  $sth->execute();
  my %hall_details=();
  while (my ($hall_name,$upload_date,$uploaded_by,$photo_id) = $sth->fetchrow_array()) {
    $hall_details{$hall_id}{hall_id}=$hall_id;
    $hall_details{$hall_id}{hall_name}=$hall_name;
    $hall_details{$hall_id}{upload_date}=$upload_date;
    $hall_details{$hall_id}{uploaded_by}=$uploaded_by;
    $hall_details{$hall_id}{photo_id}=$photo_id;
  }
  return %hall_details;
}