version 1.81, 2008/01/14 14:32:30
|
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 occured.').'</span></p>'); |
$r->print("<p><span class=\"LC_error\">".&mt('A network error has occurred.').'</span></p>'); |
return; |
return; |
} |
} |
if (!%consumed) { |
if (!%consumed) { |
Line 569 sub get_slot {
|
Line 569 sub get_slot {
|
my $slot_name=&check_for_conflict($symb,$env{'form.slotname'},\%slot); |
my $slot_name=&check_for_conflict($symb,$env{'form.slotname'},\%slot); |
|
|
if ($slot_name =~ /^error: (.*)/) { |
if ($slot_name =~ /^error: (.*)/) { |
$r->print("<p><span class=\"LC_error\">An error occured while attempting to make a reservation. ($1)</span></p>"); |
$r->print('<p><span class="LC_error">' |
|
.&mt('An error occurred while attempting to make a reservation. ([_1])',$1) |
|
.'</span></p>'); |
&return_link($r); |
&return_link($r); |
return 0; |
return 0; |
} |
} |
Line 610 STUFF
|
Line 612 STUFF
|
if (defined($reserved)) { |
if (defined($reserved)) { |
my $retvalue = 0; |
my $retvalue = 0; |
if ($slot_name =~ /^error: (.*)/) { |
if ($slot_name =~ /^error: (.*)/) { |
$r->print("<p><span class=\"LC_error\">An error occured while attempting to make a reservation. ($1)</span></p>"); |
$r->print('<p><span class="LC_error">' |
|
.&mt('An error occurred while attempting to make a reservation. ([_1])',$1) |
|
.'</span></p>'); |
} elsif ($reserved > -1) { |
} elsif ($reserved > -1) { |
$r->print("<p>Success: $description</p>"); |
$r->print("<p>Success: $description</p>"); |
$retvalue = 1; |
$retvalue = 1; |
Line 1132 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 1143 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 />'; |
} |
} |
} |
} |
} |
} |