|
version 1.68.2.2, 2006/10/31 15:58:41
|
version 1.69, 2006/10/17 15:11:26
|
|
Line 77 sub end_page {
|
Line 77 sub end_page {
|
| =cut |
=cut |
| |
|
| sub get_course { |
sub get_course { |
| (undef,my $courseid)=&Apache::lonxml::whichuser(); |
(undef,my $courseid)=&Apache::lonnet::whichuser(); |
| my $cdom=$env{'course.'.$courseid.'.domain'}; |
my $cdom=$env{'course.'.$courseid.'.domain'}; |
| my $cnum=$env{'course.'.$courseid.'.num'}; |
my $cnum=$env{'course.'.$courseid.'.num'}; |
| return ($cnum,$cdom); |
return ($cnum,$cdom); |
|
Line 433 sub release_slot {
|
Line 433 sub release_slot {
|
| |
|
| if ($mgr eq 'F' |
if ($mgr eq 'F' |
| && defined($env{'form.symb'})) { |
&& defined($env{'form.symb'})) { |
| $symb = &unescape($env{'form.symb'}); |
$symb = $env{'form.symb'}; |
| } |
} |
| |
|
| my ($result,$msg) = |
my ($result,$msg) = |
|
Line 759 sub show_choices {
|
Line 759 sub show_choices {
|
| my $text=&mt('Select'); |
my $text=&mt('Select'); |
| my $command='get'; |
my $command='get'; |
| if (grep(/^\Q$slot\E$/,@got_slots)) { |
if (grep(/^\Q$slot\E$/,@got_slots)) { |
| $text=&mt('Drop Reservation'); |
$text=&mt('Free Reservation'); |
| $command='release'; |
$command='release'; |
| } else { |
} else { |
| my $conflict = &check_for_conflict($symb,$slot,$slots{$slot}, |
my $conflict = &check_for_conflict($symb,$slot,$slots{$slot}, |
![[BACK]](/icons/back.gif){kind=icon}
Return to slotrequest.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface