version 1.82, 2008/09/11 14:47:21
|
version 1.84, 2008/12/11 14:55:15
|
Line 335 sub remove_registration {
|
Line 335 sub remove_registration {
|
my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum, |
my %consumed=&Apache::lonnet::dump('slot_reservations',$cdom,$cnum, |
"^$slot_name\0"); |
"^$slot_name\0"); |
if (&Apache::lonnet::error(%consumed)) { |
if (&Apache::lonnet::error(%consumed)) { |
$r->print("<p><span class=\"LC_error\">".&mt('A network error has occrured.').'</span></p>'); |
$r->print("<p><span class=\"LC_error\">".&mt('A network error has occurred.').'</span></p>'); |
return; |
return; |
} |
} |
if (!%consumed) { |
if (!%consumed) { |
Line 1136 sub show_table {
|
Line 1136 sub show_table {
|
(@this_slot)) { |
(@this_slot)) { |
my (undef,$id)=split("\0",$entry); |
my (undef,$id)=split("\0",$entry); |
my ($uname,$udom) = split(':',$consumed{$entry}{'name'}); |
my ($uname,$udom) = split(':',$consumed{$entry}{'name'}); |
$ids.= '<nobr>'; |
$ids.= '<span class="LC_nobreak">'; |
foreach my $item (@stu_display_order) { |
foreach my $item (@stu_display_order) { |
if ($stu_display{$item}) { |
if ($stu_display{$item}) { |
if ($item eq 'fullname') { |
if ($item eq 'fullname') { |
Line 1147 sub show_table {
|
Line 1147 sub show_table {
|
} |
} |
} |
} |
$ids.=&remove_link($slot,$entry,$uname,$udom, |
$ids.=&remove_link($slot,$entry,$uname,$udom, |
$consumed{$entry}{'symb'}).'</nobr><br />'; |
$consumed{$entry}{'symb'}).'</span><br />'; |
} |
} |
} |
} |
} |
} |