1.1 --- a/lm	Tue Nov 22 22:47:47 2005 +0200
     1.2 +++ b/lm	Tue Nov 22 23:27:51 2005 +0200
     1.3 @@ -174,6 +174,7 @@
     1.4  	for my $student (@{$XMLClass->{"student"}}) {
     1.5  		$Machines{$student->{"host"}} = {
     1.6  			"name"	=> "$student->{firstname} $student->{surname}",
     1.7 +			"firstname"	=> "$student->{firstname}",
     1.8  			"user"	=> "$student->{user}",
     1.9  			"student" => $student,
    1.10  		}	
    1.11 @@ -310,6 +311,7 @@
    1.12  				email	=>	$Machines{$m}->{"student"}->{"email"},
    1.13  				company	=>	$Machines{$m}->{"student"}->{"company"},
    1.14  				name	=> 	$Machines{$m}->{"name"},
    1.15 +				firstname	=> 	$Machines{$m}->{"firstname"},
    1.16  			);
    1.17  			if (grep { $_ eq $command} keys %Scripts) {
    1.18  				$_=$Scripts{"$command"};