use sane dump=>1;

our $white = "white"
our $header_color = "#eeeeee"
our $sep_color = "gray"
our $textcolor = "black"
our $textcolor_disabled = "#444444"
our $bgcolor_today = "beige"
our $bgcolor_other_days = "white"
our $bgcolor_holiday = "#ffefef"
our $admin_warning_color = "red"
our $static_warning_color = "purple"
#our $color_mine_static = "#00ff00"
our $color_mine_static = "#ffafff"
our $color_mine_booked = "aaffaa"
#our $color_other_static = "#999999"
our $color_other_static = "#ffcfff"
our $color_other_booked = "cccccc"
our $color_mine_cancelled = "#eeee99"
our $color_other_cancelled = "#dddddd"
our $body_bgcolor = "#ffeedd"
our $cell_count = 0

use IO::File
use CGI ':standard'
use CGI::Carp 'fatalsToBrowser'
require "lib_pl"
require "lib_bookings_pl"
use Date
use File::Copy

# session variables
our $session_data = {}
our ($uid, $password, $token, $session_code, $authenticated, $ou_allowed)
our ($short_uid_type)
# descriptive, for messages

# other vars from lib_pl
our ($program, $submit_i, $file_i, $password_i, @month, @weekday)
our ($common_conf)
our %N

# config
our @week_desc = ("this week", "next week", "fortnight")
our @periods_all = ("Period 1", "Period 2", "Recess", "Period 3", "Period 4", "Lunch", "Period 5", "Period 6", "After School")
our $week_min = 0
our $week_max = 2
our $n_weeks = $week_max - $week_min + 1

# appearence config
our $cellwidth_major = 120
# classes
our $cellwidth_minor = 100
# recess, etc
our $cellpadding = 2
our $sep_h = qq{<td width="1" height="5" cellpadding="0"></td>}
our $sep_h1 = qq{<td></td>}
our $sep_v = qq{\n\n</tr><tr>\n\n}

# globals  (I would use OO but perl's sucks too bad)
our ($conf, $dir, $lock_file, $booked_file, $static_file, $cancelled_file, $holidays_file, $info_file, $static_info_file)
our ($users)
our ($booked, $static, $cancelled, $booked_x, $static_x, $cancelled_x, $holidays, $info, $info_x, $static_info, $static_info_x)
our ($max_bookings, $n_bookings, $my_bookings, $too_many_bookings)
our ($category, $week, $today_wday, $monday1, $monday, $resources, $n_resources, $classes_only, @periods, $n_periods)
our ($date, $wday, $ymd2, $past, $today, $holiday, $weekday, $month_day)
our ($resource, $resource_full, $resource_info)
our ($period, $class)
our ($booked_by, $static_booker, $cancelled_by, $booker, $is_static, $mine, $cancellable, $info_editable, $available, $my_cancelled, $cell_name)
our ($changed_cancelled, $changed_booked, $changed_static, $new_booker, $changed_info, $changed_static_info)
our ($mode_normal, $mode_admin, $mode_static, $mode_admin_any)
our ($bgcolor, $fgcolor, $day_bgcolor)
our ($reset)
our ($info_missing_msg)
our ($user)
our ($teacher_names, $teacher_ids)

our ($id)
# short_uid

our ($editable_day)
our ($n_bookings_unlimited, $n_bookings_left)

our ($description_of)

$my_bookings = []

#my $teacher_names = read_data("teachers.conf")
#delete $teacher_names->{__order}

$conf = read_data("bookings.conf")

$ou_allowed = $conf->{"ou.allowed"}

load_session()

$user = auth()
$id = uc_or_lc_id($user->{short_uid})
if !defined $id or $id eq ""
	msg("your short uid ($short_uid_type) is not defined in the directory - please contact $conf->{administrator}")
	ftr(); exit


# hdr("Booking Resources", $body_bgcolor)

($teacher_names, $teacher_ids) = lookup_staff_etc()
#msg(Dumper($teacher_names))

mode_vars()
if (param("category") && !(param("back")))
	calendar()
 else
	hdr("Booking Resources", $body_bgcolor)
	category_chooser()


ftr()

sub calendar_hdr
	my $title = param("category")." Bookings"
	if exists $conf->{unlimited}{param("category")}
		$title .= " (unlimited)"
	
	$title .= " - ".week_desc($week)
	hdr($title, $body_bgcolor)
	# hidden variable/s
	print hidden("category")
#	print hidden("week")
# now this is with the bit that displays the current week, because in admin mode it's a dropdown


sub calendar
	check_mode_buttons()
	my $lock = get_lock($lock_file)
	daily_backup()
	calendar_init()
	calendar_hdr()
#	print "<center>"
	save_changes() if param("save")
	print qq{<table width="100%"><tr><td valign="bottom">}
	calendar_status()
	nl()
	calendar_controller()
	print qq{</td><td align="right">}
	calendar_legend()
	print "</td></tr></table>"
	calendar_main()
	nl()
	list_all_bookings()
#	print "</center>"
	unlock($lock)


sub daily_backup
	# make a daily backup
	if ! $conf->{no_daily_backups}
		my $date = Date->today->yyyymmdd
		if ! -d "backups" or ! -d "backups/$date"
			mkdir "backups"; mkdir "backups/$date"
			for my $filename glob("*.conf"), glob("*.data")
				my $backup = "backups/$date/$filename"
				copy($filename, $backup) ||
					die "can't make backup file $backup"





sub check_mode_buttons
	if $user->{is_admin}
		if param("admin")
			sd_set("mode", "admin")
			$reset = 1
		if param("timetable")
			sd_set("mode", "static")
			$reset = 1
		if param("normal")
			sd_set("mode", "normal")
			$reset = 1
		mode_vars()



#sub auth
#	return 1 if check_token_ok()
#	$uid = lc $uid
#	param("uid", $uid)
#	my $user = ldap_auth({keep_ldap_open=>1}, $uid, $password)
#	unless($user) { ldap_close(); return 0 }
#	my $dn = $user->dn()
#	my @ou
#	while ($dn =~ /ou=(.*?)(?:,|$)/gi)
#		unshift @ou, lc $1
#
#	my $_ou = $ou_allowed
#	for @ou
#		if exists $_ou->{$_}
#			$_ou = $_ou->{$_}
#		 else
#			ldap_close(); return 0
#
#
#	sd_set("user is admin", grep(/admin/i, @ou) || $uid eq "ssw" || 0)
#	$authenticated = $user && 1
#	if sd("user is admin")
#		my $users = lookup_staff_etc()
#		sd_set("users", $users)
#
#	ldap_close()
#	return $user
#

sub category_chooser
	my $dropdown = dropdown({autosubmit=>1}, "category", $conf->{resources}{__order})
	my $b = buttons("select", "logout")
	print tbl_tsv(qq
		What type of resource?	$dropdown
			$b
	 )

sub calendar_init
	load_calendar_data()

	# load and validate parameters
	$category = param("category")
	exists $conf->{resources}{$category} or die "no such category: $category\n"

	$week = param("week") || 0
	if param("<<")
		-- $week
	if param(">>")
		++ $week
	if !$mode_admin_any
		if $week < 0
			$week = 0
		if $week > $week_max
			$week = $week_max

	param("week", $week)

	# date
	my $d = Date->today
	$today_wday = $d->{wday}-2
	# counting sunday == -1, monday == 0
	$monday1 = $d->dup
	$monday1->back_days($today_wday)
	# go to monday (day 2, counting from 1->sun)

	# set $monday to monday of the selected week
	$monday = $monday1->dup
	for my $i 0..$week-1
		$monday->forward_days(7)


	# set $resources ary
	$resources = $conf->{resources}{$category}
	if ref $resources
		$description_of = $resources
		$resources = $resources->{__order}
	 else
		$description_of = $conf->{resources}
		$resources = [$category]
		undef $category


	$n_resources = 0+@$resources

	# display just classes, or recess, lunchtime, after school?
	$classes_only = 1
	# XXX conf per resource? TODO conf. overnight separately?
	@periods = @periods_all
	if $classes_only
		@periods = grep /Period/, @periods
	$n_periods = 0+@periods

	$max_bookings = $conf->{"max bookings"}{normal}
	if $conf->{"max bookings"}{exceptions}{$id}
		$max_bookings = $conf->{"max bookings"}{exceptions}{$id}


	check_bookings($booked)


sub week_desc
	return $week_desc[$week] || "week ".$week+1


sub calendar_main
	# start table
	print qq{<table bgcolor="$sep_color" cellspacing="0" cellpadding="$cellpadding" border="1">\n<tr>\n

	# table - corner (week) and buttons
	print qq{<td bgcolor="$header_color" width="$cellwidth_major">
	date_browser()
	print qq{</td>

	print $sep_h

	# top header (periods)
	display_periods_header()

	# table - main
	my @weekdays
	$date = $monday->dup
	for 0..4
		$weekdays[$_] = $date->dup
		$date->tomorrow

	for $wday 0..4
		$date = $weekdays[$wday]
		date_vars()

		print $sep_h, $sep_v

#  local periods_header
#		print qq{<td bgcolor="$header_color"></td>
#		print $sep_h
#		display_periods_header()

		table_day_row()


	print "</tr>\n</table>\n"
	nl()


sub table_day_row
	if !$mode_static && $holiday
		# it's a holiday! yay
		# print row header (date)
		print qq{<th bgcolor="$day_bgcolor" align="center">
		print "<i>" if $today
		print $weekday; print "<br>"; print $month_day
		print "</i>" if $today
		print "</th>"
		print $sep_h
		my $colspan = $conf->{flip_table} ? "rowspan" : "colspan"
		print qq{<td bgcolor="$bgcolor_holiday" $colspan="$n_periods" align="center">
		print $holiday
		print "</td>"
		print "</tr>\n<tr>\n"
	 else
		# print row header (date)
		print qq{<th bgcolor="$day_bgcolor" rowspan="$n_resources" align="center">
		print "<i>" if $today
		print $weekday; if (!$mode_static) { print "<br>"; print $month_day
		print "</i>" if $today
		print "</th>"


	# a row for each resource ...
	for $resource @$resources
		resource_vars()

		print $sep_h;

		# a cell for each period ...
		for $period @periods
			period_vars()
			booking_vars()
			if param("reload")
				param($cell_name, $booker)

			# display the cell
			display_cell()


		# resource column, optional
		resource_column()

		print "</tr>\n<tr>\n"



sub display_periods_header
	for $period @periods
		period_vars()
		if $class
			print qq{<th bgcolor="$header_color" width="$cellwidth_major" align="center">}
		 else
		 	print qq{<th bgcolor="$header_color" width="$cellwidth_minor" align="center"><font size="-1">}
		print $period
		if $class
			print qq{</th>}
		 else
		 	print qq{</font></th>}

	if defined $category
		print $sep_h1
		print qq{<th bgcolor="$header_color" width="$cellwidth_major" align="center">}
		print $category
		print qq{</th>}

	print $sep_v


sub resource_column
	# XXX change to a variable, $multiple_resources ?
	if defined $category
		print $sep_h1
		my $r = $resource
		my $tt = "$description_of->{$resource}"
		$r = nbspify($r)
		$tt = nbspify("$r $tt")
		print qq{<td bgcolor="$header_color" align="left">}.with_popup($r, $tt, "overlay_left").qq{</td>}
#					print qq{<td bgcolor="$header_color" align="center">$resource</td>}



sub date_browser
	if $mode_static
		space(1)
	 elsif $mode_admin_any
		# allow to book up to 52 weeks ahead, for now ...
		# XXX maybe should allow to view the past too?
		# highlight current week?
		my $options = []
		my $day = $monday1
		for my $i 0..52
			push @$options, $i
			if $week_desc[$i]
			 	push @$options, $week_desc[$i]
				$day->forward_days(7)

			 else
				my $week_desc = $day->mon_day()
				$day->forward_days(4)
				$week_desc .= " - ".$day->mon_day()
				push @$options, $week_desc
				$day->forward_days(3)


		print left_right(
			dropdown({no_prompt=>1, abbrev=>1, autosubmit=>1, selected=>$week}, 'week', $options),
#			submit({name=>"go"})
		)
	 else
	 	# mode_normal
		print left_mid_right(
		 submit({name=>"<<", (($week <= $week_min) ? (disabled => 1) : ())}),
		 week_desc($week),
		 submit({name=>">>", (($week >= $week_max) ? (disabled => 1) : ())}),
		 )


	if !$mode_admin_any
		print hidden("week")
		# in admin mode, this is a dropdown, see above



sub selector
	print qq{<font color="$fgcolor">} if $fgcolor ne "black"
	if $mode_normal
		user_selector()
	 else
		admin_selector()

	print qq{</font>} if $fgcolor ne "black"


sub info_selector
	if $mode_normal && $my_cancelled
		# a cancelled booking of mine
		show_static_info_greyed()
	 elsif ($available || $info_editable)
		# normal selector
		my $ix = $mode_static ? $static_info_x->{$weekday} : $info_x->{$ymd2
		my @o
		for my $type @{$resource_info->{__order}}
			my $info = $ix->{$period}{$resource_full}{$type
			my @selected = defined $info ? (selected => $info) : ()
			my $name = "$cell_name : $type"  # XXX
			if exists $conf->{types}{$type}
				my $range = $conf->{types}{$type}{__order
				push @o, dropdown({prompt=>"$type", @selected}, $name, $range)
			 else
				push @o, qq{<input name="$name" type="text">


		print join " ", @o
	 elsif ($booker)
		
		my $ix = $is_static ? $static_info_x->{$weekday} : $info_x->{$ymd2
		show_info($ix)



sub show_static_info_greyed
	print q{<font color="gray">
	show_info($static_info_x->{$weekday})
	print q{</font>


sub show_info
	my ($ix) = @_
	my @o
	for my $type @{$resource_info->{__order}}
		my $info = $ix->{$period}{$resource_full}{$type
		if defined $info
			push @o, $info


	print join "&nbsp;&nbsp;", @o


sub user_selector
	checkbox_selector()


sub checkbox_selector
	if $booker
		if $cancellable
			print checkbox($cell_name, 1, $booker, '')
#							print qq{<input type="checkbox" name="$cell_name" value="$booker" checked>
			print " ";  # &nbsp; doesn't work.  html should have a <nobreak> container or CSS property
		 else
			param($cell_name, $booker)
			print hidden($cell_name)

		display_booker($booker)
	 elsif ($available)
		print checkbox($cell_name, 0, $id, '')
#						print qq{<input type="checkbox" name="$cell_name" value="$id">
	 else
		if $editable_day
			die "logic problem!"



sub admin_selector
	if $available
#		if $mode_admin_any
#			print "<td></tr><tr><td>"
# XXX

		my $options = ['', @$teacher_ids]
		if $static_booker
			unshift @$options, $static_booker

		if !$mine && $id ne $static_booker
			unshift @$options, $id

		my $abbrev
		@$options = map
			$_, $_ eq "" ? "" : "$_&nbsp;&nbsp;&nbsp;$teacher_names->{$_}"
		   @$options
		$abbrev = 1
#		@$options = map
			$_, $_ eq "" ? "" : $teacher_names->{$_} || $_
		   @$options
		$abbrev = 1
		my $tiny = $booker eq ""
		my $dropdown_opts =
			no_prompt=>1, abbrev=>$abbrev, selected=>$booker||'',
			clip=>1,
#			dynamic_expand=>1,

#		print qq{<div id="hideme_$cell_count">}.dropdown($dropdown_opts, $cell_name, $options).qq{</div>}
		print dropdown($dropdown_opts, $cell_name, $options)."<br>"
	 else
		checkbox_selector()



sub display_booker
	my $booker_name = $teacher_names->{$booker
#	print with_popup($booker, "$booker_name&nbsp;&nbsp;$booker", "overlay_right")
	print with_popup($booker, "$booker_name", "overlay_left")


sub display_resource_name
	print qq{<font color="$fgcolor">} if $fgcolor ne "black"

	my $r = nbspify(encode_entities($resource))
	if defined $description_of->{$resource}
		my $tt = encode_entities($description_of->{$resource})
		my $popup
		$popup = with_tooltip($r, "$r&nbsp;&nbsp;$tt")
		
#		if $mode_admin_any
#			$popup = with_popup($r, "$r&nbsp;&nbsp;$tt", "overlay_left")
##			$popup =~ s/(onMouseover=")/$1hide_if_exists('hideme_$cell_count'); /;  # XXX HACK to hide the dropdown next to it
##			$popup =~ s/(onMouseout=")/$1show_if_exists('hideme_$cell_count'); /
#		 else
#			$popup = with_popup($r, "$r&nbsp;&nbsp;$tt", "overlay_left")
#
		print $popup
	 else
		print $r


	print qq{</font>} if $fgcolor ne "black"


# TODO make these generic?

sub clean_table
	my ($rows, $ymd2_week_start) = @_
	my $out = []
	for @$rows
		my ($ymd, $period, $resource, $who) = @$_
		if $ymd ge $ymd2_week_start
			push @$out, $_


	return $out


sub is_holiday
	my ($ymd2) = @_
	# !inefficient!
	# need binary lookup
	for my $h @$holidays
		my ($start, $end, $desc) = @$h
		if $ymd2 ge $start and $ymd2 le $end
			return $desc


	return 0


#sub calendar_header
#	# heading: category and resources
#	print "<center>"
#	print qq{<table><tr><td align="center">
#	print "<center><h2>"
#	if $category
##		print "$category: " . join", ",@$resources
#		print "$category"
#		if exists $conf->{unlimited}{$category}
#			print " (unlimited)"
#
#	 else
#		print "@$resources";  # just one I hope!
#		if exists $conf->{unlimited}{"@$resources"}
#			print " (unlimited)"
#
#
#
##	print " &mdash; "
##
##	# week selector
##	my $d = $monday1->dup
##	print qq{\n<select name="week">\n
##	for my $i 0..$week_max
##		my $selected = ""
##		if $i == $week
##		       	$selected = " selected"
##
##		my $start = $d->wkd_month_day
##		my $start_ymd = $d->ymd
##		$d->forward_days(4)
##		my $end = $d->wkd_month_day
##		$d->forward_days(3)
##		print qq{<option value="$i"$selected>
##		print "$week_desc[$i] &mdash; $start to $end"
##		print "</option>\n"
##
##	print "</select>\n"
##	print qq{<input type="submit" value="load">\n
#
#	print "</h2></center>\n"
#	print qq{</td><td width="15"></td><td>
#
#	calendar_legend()
#	print "</td></tr></table>"
#

sub calendar_status
	print qq{<font size="+1">
	my $firstname = $id
	if $teacher_names->{$id}
		$firstname = $teacher_names->{$id
		$firstname =~ s/ .*//

	print "$firstname,"
	space(1)
	if $mode_admin
		print qq{<font color="$admin_warning_color">you have admin powers.</font>
	 elsif	($mode_static)
		print qq{<font color="$static_warning_color">this is the timetable.</font>
	 else
		my $plural = $n_bookings == 0 ? "no bookings" : $n_bookings == 1 ? "one booking" : "$N{$n_bookings} bookings"
		my $bookings_link = $n_bookings ? a({href=>"#my"}, $plural) : $plural
		my $bookings_left = $n_bookings_left == 0 ? "none" : $N{$n_bookings_left
		if $too_many_bookings
			print "you have requested $plural."
		 else
			print qq{you have made $bookings_link &ndash; $bookings_left left{


	print qq{</font><br>}
	if $too_many_bookings
		nl()
		msg("You are limited to $N{$max_bookings} bookings in any $N{$n_weeks} week period.")
		msg("Please contact $conf->{administrator} if you need a higher limit.")
		my $unlimited = $conf->{unlimited}{__order
		if @$unlimited
			my $x = join ", ", @$unlimited
			msg("There is no limit for $x.")




sub calendar_controller
	# save button
	print q{<input type="submit" title="Jesus saves, peace be upon him, so follow his example!" name="save" style="background-color: red; color: white; font-weight: bold;" value="save">&nbsp;&nbsp;}; #<font color="gold"><b>save</b></font></button>&nbsp;&nbsp;};   <button> tag is BORKEN w.r.t. forms in IE6 even
	my @buttons = qw(reload);  # other buttons, save done differently now
	if $user->{is_admin}
		push @buttons, "normal"
		push @buttons, "admin"
		push @buttons, "timetable"

	push @buttons, "back", "logout"
	print buttons(@buttons)

	# dodgy check a name dropdown :)
#	if $mode_admin_any
#		my @options = map { "$_ - $teacher_names->{$_}" } @$teacher_ids
#		space(3)
#		print dropdown({prompt=>"check a name..."}, "checkaname", \@options)
#

	nl()
	nl()


sub list_all_bookings
	if @$my_bookings
		my $title = $mode_admin_any ? "All bookings" : "All of your Bookings"
		print a({name=>"my"}, h2($title.("&nbsp;"x10).q{<A href="#top">top</A>}))
		my $tbl
		for @$my_bookings
			$tbl .= "$_\n"

		$tbl = tbl_tsv($tbl)
		$tbl =~ s/<td/<td align="left" /g
		$tbl =~ s,(</td>),$1<td width="10"></td>,g
		print $tbl



sub date_vars
	$ymd2 = $date->ymd2;  # for looking up bookings
	$past = $wday < $today_wday && $week == 0 || $week < 0
	  # TODO know which periods are in the past??
	$today = $wday == $today_wday && $week == 0
	$holiday = is_holiday($ymd2)
	$weekday = $date->{weekday
	$month_day = $date->month_day
	$editable_day = $mode_static || !($past || $holiday)

	$bgcolor = $today ? "$bgcolor_today" : "$bgcolor_other_days"
	$fgcolor = $editable_day ? "$textcolor" : "$textcolor_disabled"
	$day_bgcolor = $today ? "$bgcolor_today" : "$header_color"


sub resource_vars
	$resource_full = defined $category ? "$category : $resource" : $resource
	$resource_info = defined $category ? $conf->{info}{$category}{$resource} : $conf->{info}{$resource
	  # for looking up bookings data


sub period_vars
	$class = $period =~ /Period/


sub booking_vars
	# check if booked already
	$booked_by = $booked_x->{$ymd2}{$period}{$resource_full} || ""
	$static_booker = $static_x->{$weekday}{$period}{$resource_full} || ""
	$cancelled_by = $cancelled_x->{$ymd2}{$period}{$resource_full} || ""

	if $mode_static
		$booker = $static_booker
	 else
		$booker = $booked_by || (!$cancelled_by && $static_booker) || ""


	$is_static = $booker && $booker eq $static_booker

	$mine = $booker && $booker eq $id

	$cancellable = $editable_day && ($mine || $booker ne "" && $mode_admin_any)
	$available = $editable_day && !$booker

	$my_cancelled = $available && $cancelled_by && $static_booker eq $id

	$info_editable = $editable_day
		&& !($mode_normal && $my_cancelled)
		&&
		    ($mine && !$is_static
		 || $booker eq ""
		 || $mode_admin && !$is_static && $booker
		 || $mode_static && $is_static && $static_booker)

	$cell_name = "$ymd2 : $period : $resource_full"
	if $reset
		param($cell_name, $booker)



sub save_changes
	# scan current week for changes to checkboxes
	$changed_cancelled = 0
	$changed_booked = 0
	$changed_static = 0
	$changed_info = 0
	$changed_static_info = 0

	$date = $monday->dup
	for $wday 0..4
		date_vars()
		if $editable_day
			for $period @periods
				period_vars()
				for $resource @$resources
					resource_vars()
					booking_vars()
					$new_booker = param($cell_name) || ""
					my $info_missing = 0
					if $info_editable && $new_booker ne "" && $new_booker ne $static_booker
						$info_missing = update_info_if_changed($new_booker eq "")

					if $new_booker ne $booker && !$info_missing
						my $failed
						if $cancellable
							cancel_booking()
							$available = 1
						 elsif ($booker)
							$failed = 1

						if $available && $new_booker ne ""
							make_booking()
						 elsif ($new_booker ne "")
							$failed = 1

						clear_cancelled_if_appropriate()
						if $failed
							$booker ||= "unbooked"
							$new_booker ||= "unbooked"
							msg("could not change $ymd2 - $period - $resource : $booker -> $new_booker")
							nl()





		$date->tomorrow


	# write the files if necessary
	if $changed_booked
		my $rows = index_to_table($booked_x)
		check_bookings($rows)
		lc_ids_last_field($rows)
		if !$too_many_bookings
			write_tsv_and_backup($booked_file, $rows)
		 else
			load_booked()


	if $changed_cancelled
		my $rows = index_to_table($cancelled_x)
		lc_ids_last_field($rows)
		write_tsv_and_backup($cancelled_file, $rows)

	if $changed_static
		my $rows = index_to_table($static_x)
		lc_ids_last_field($rows)
		write_tsv_and_backup($static_file, $rows)

	if $changed_info
		my $rows = index_to_table($info_x)
		write_tsv_and_backup($info_file, $rows)

	if $changed_static_info
		my $rows = index_to_table($static_info_x)
		write_tsv_and_backup($static_info_file, $rows)


	unless ($changed_booked || $changed_cancelled || $changed_static || $changed_info || $changed_static_info)
		msg("You didn't make any changes.")
		nl()



sub check_bookings
	my ($rows) = @_
	$n_bookings = 0
	$n_bookings_unlimited = 0
	my @bookings = ()
	for @$rows
		my ($ymd, $period, $resource, $who) = @$_
		my $category = $resource
		$category =~ s/ :.*//
		if $who eq $id || $mode_admin_any
			my $date = Date->new_ymd(split /\./, $ymd)
			my $week = Div($date->jday() - $monday1->jday(), 7)
			if $week >= 0 && $week <= $week_max
				if $who eq $id
					if exists $conf->{unlimited}{$category}
						++$n_bookings_unlimited

					++$n_bookings

				$who = undef unless $mode_admin_any
				push @bookings, pretty_print_booking($date, $week, $ymd, $period, $resource, $who)



	$n_bookings_left = $max_bookings - ($n_bookings - $n_bookings_unlimited)
	$too_many_bookings = !$mode_admin_any && $n_bookings_left < 0
	unless (($too_many_bookings) { $my_bookings = \@bookings; )


sub write_tsv_and_backup
	my ($filename, $rows) = @_
	-e $filename and copy($filename, "$filename~") ||
		die "can't make backup file $filename~"
	write_tsv($filename, $rows)


sub pretty_print_booking
	my ($date, $week, $ymd, $period, $resource, $who) = @_
	if defined $who && exists $teacher_names->{$who}
		$who = "$who - $teacher_names->{$who}"

	return $week_desc[$week]."\t".$date->wmd."\t".$period."\t$resource".(defined $who ? "\t$who" : "")


sub make_booking
	if $new_booker eq $static_booker
		clear_cancelled()
	 else
		if $mode_static
			$static_x->{$weekday}{$period}{$resource_full} = $new_booker
			$changed_static = 1
		 else
			$booked_x->{$ymd2}{$period}{$resource_full} = $new_booker
			$changed_booked = 1


	booking_vars()


sub update_info_if_changed
	my ($allow_blank) = @_
	my $info_missing = 0
	my $ix = ($mode_static ? $static_info_x->{$weekday} : $info_x->{$ymd2}) ||= {
	for my $type @{$resource_info->{__order}}
		my $new_info = param("$cell_name : $type") || ""
		if $new_info eq "" && !$allow_blank
			if $info_missing_msg == 0
				redmsg("please select class details from the drop-down lists")
				print br()

			$info_missing_msg ||= 1
			$info_missing = 1


	if $info_missing
		return 1; # info_missing

	for my $type @{$resource_info->{__order}}
		my $old_info = $ix->{$period}{$resource_full}{$type
		my $new_info = param("$cell_name : $type") || ""
		if $new_info ne $old_info
			if exists $conf->{types}{$type}
				if ! exists $conf->{types}{$type}{$new_info}
					die qq{invalid value "$new_info" given for $type


			$ix->{$period}{$resource_full}{$type} = $new_info
			if $mode_static
				$changed_static_info = 1; 
			 else
				$changed_info = 1


	return 0


sub cancel_booking
	if $is_static
		if $mode_static
			delete $static_x->{$weekday}{$period}{$resource_full
			$changed_static = 1
		 else
			$cancelled_x->{$ymd2}{$period}{$resource_full} = $id
			$changed_cancelled = 1

	 else
		delete $booked_x->{$ymd2}{$period}{$resource_full
		$changed_booked = 1

	my $ix = $mode_static ? $static_info_x->{$weekday} : $info_x->{$ymd2
	delete $ix->{$period}{$resource_full
	if $mode_static
		$changed_static_info = 1
	 else
		$changed_info = 1
	
	booking_vars()


sub clear_cancelled_if_appropriate
	if $cancelled_by && !$static_booker
		clear_cancelled()



sub clear_cancelled
	delete $cancelled_x->{$ymd2}{$period}{$resource_full
	$changed_cancelled = 1
	booking_vars()


sub mode_vars
	if !sd("mode"))
		sd_set("mode", "normal")
	$mode_normal = sd("mode") eq "normal"
	$mode_admin = sd("mode") eq "admin"
	$mode_static = sd("mode") eq "static"
	$mode_admin_any = $mode_admin || $mode_static


sub display_cell
	my $bgcolor = $bgcolor; # white

	if $mine
		$bgcolor = $static_booker ? $color_mine_static : $color_mine_booked
	 elsif ($booker)
		$bgcolor = $static_booker && !$cancelled_by ? $color_other_static : $color_other_booked
	 elsif (!$booker && $cancelled_by)
		$bgcolor = $static_booker eq $id ? $color_mine_cancelled : $color_other_cancelled


	my $cw = $class ? $cellwidth_major : $cellwidth_minor

	print qq{<font size="-1">} if !$class
	print qq{<td bgcolor="$bgcolor">

	my $left_w = $cw * .5
	my $right_w = $cw * .5

	selector()

#	if defined $category
#		# multiple resources, so display the resource name and the booke
#	 else
#		# a single resource - we just display the booker
#		print qq{<td align="center" bgcolor="$bgcolor">}
#
#
#	if defined $category
#

	if $resource_info
		info_selector()


	print "</td>"

	print qq{</font>} if !$class

	$cell_count++


sub calendar_legend
	my @colors1 = qw(
		<b>key:</b>	white
		booked		color_other_booked
		timetabled_bookings	color_other_static
	)
#		cancelled	color_other_cancelled
#		today		bgcolor_today
	my @colors2 = qw(
		unbooked	white
		your_booking	color_mine_booked
		your_timetabled_bookings	color_mine_static
	)
#		your_cancelled	color_mine_cancelled
#		holiday		bgcolor_holiday
	print qq{<table bgcolor="$sep_color" cellpadding="2" cellspacing="1" border="0">}
	for \@colors1, \@colors2
		print "<tr>"
		while (@$_)
			my ($name, $var) = splice @$_, 0, 2
			$name =~ tr/_/ /
			no strict 'refs'
			my $color = $$var
			print qq{<td bgcolor="$color">&nbsp;$name&nbsp;</td>}
			# bogus when lines split

		print "</tr>"

	print qq{</table><br>}


# XXX TODO get hardcoded ou=foo ... out of lookup_staff_etc
#sub allowed_domains
#	for
#
#
#sub tree_to_domains
#	my ($tree) = @_
#	for keys %$tree
#		
#
#

sub lookup_staff_etc
	my %long_uid_of
	my %names
	my @short_uids
	my $dup_uids
#	die Dumper($ou_allowed)
	# XXX TODO get hardcoded ou=foo ... out of lookup_staff_etc

	for my $domain 'ou=staff', 'ou=administrators'
		my $users = ldap_lookup_users_uid_name($domain)
		if ref $users
			USER: for my $user @$users
				my $long_uid = $user->{uid
				my $short_uid = uc_or_lc_id($user->{short_uid})

				if !defined $short_uid or $short_uid eq ""
#					msg("no short_uid ($short_uid_type) for $long_uid")
					# XXX skip this user altogether?  and remove warning message?
					next USER


				if exists $long_uid_of{$short_uid}
					msg("duplicate short_uid `$short_uid' ($short_uid_type): for $long_uid_of{$short_uid}, $long_uid")
					$dup_uids = 1
				 else
					$long_uid_of{$short_uid} = $long_uid


				push @short_uids, $short_uid;  # for dropdown

				my ($name1, $name2) = ldap_get_name($user)
				$name2 = uc($name2) if $conf->{surname_uppercase
				my $fullname = ""
				if $name1 and $name2
					$fullname = "$name1 $name2"
				$names{$short_uid} = $fullname

		 else
			die "bad: ldap_lookup in domain $domain returned $users"


	if $dup_uids
		die "duplicate short_uids - please contact $conf->{administrator}"

	@short_uids = sort @short_uids
	return (\%names, \@short_uids)