use utf8;
use strict;
use warnings; no warnings "redefine";

use Loader qw(line_in valid_person add_stundenliste edit_stundenliste
	log_view delete_stundenlisten list_stundenlisten);
use Fehler qw(report_fehler);

sub edit_stundenlisten($;$) {
	my($id,$kn) = @_;

	return unless valid_person($id,1);

	my $act;
	# $act = "run";

	liste: while(1) {
		if(defined $act and $act eq "run") {
			$act = "l";
		} else {
			$act = line_in "$kn Benachrichtigung >"; last if $act eq "";
		}
		if($act eq "?") {
			print <<'END';
l    auflisten
a    hinzufügen
###  Benachrichtigung editieren

del  alle löschen
END
			next;
		}
		if($act eq "l") { list_stundenlisten($id,$kn); next; }
		if($act eq "H") { log_view($kn,"stundenliste"); next; }
		if($act eq "del") { delete_stundenlisten($id,$kn); next; }
		if($act eq "a") {
			add_stundenliste($id, $kn);
			next;
		}
		if($act =~ /^(\d+)$/) { 
			edit_stundenliste($act,$id,$kn);
			next;
		}
		print "Aktion '$act' unbekannt.\n";
		next; fehler: report_fehler(4);
	}
	undef;
}
1;
