--- loncom/interface/slotrequest.pm 2005/10/17 18:23:46 1.23
+++ loncom/interface/slotrequest.pm 2005/11/02 22:46:12 1.28
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler for requesting to have slots added to a students record
#
-# $Id: slotrequest.pm,v 1.23 2005/10/17 18:23:46 albertel Exp $
+# $Id: slotrequest.pm,v 1.28 2005/11/02 22:46:12 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -53,11 +53,10 @@ sub fail {
}
sub start_page {
- my ($r)=@_;
+ my ($r,$title)=@_;
my $html=&Apache::lonxml::xmlbegin();
- $r->print($html.'
'.
- &mt('Request another Worktime').' ');
- $r->print(&Apache::loncommon::bodytag('Requesting another Worktime'));
+ $r->print($html.''.&mt($title).' ');
+ $r->print(&Apache::loncommon::bodytag($title));
}
sub end_page {
@@ -465,6 +464,9 @@ sub show_table {
');
+ $r->print('');
}
my $linkstart='
@@ -521,9 +523,13 @@ sub show_table {
my (undef,$id)=split("\0",$entry);
$ids.= $id.'-> '.$consumed{$entry}->{'name'}.' ';
}
- my $start=&Apache::lonlocal::locallocaltime($slots{$slot}->{'starttime'});
- my $end=&Apache::lonlocal::locallocaltime($slots{$slot}->{'endtime'});
- my $start_reserve=&Apache::lonlocal::locallocaltime($slots{$slot}->{'startreserve'});
+ my $start=($slots{$slot}->{'starttime'}?
+ &Apache::lonlocal::locallocaltime($slots{$slot}->{'starttime'}):'');
+ my $end=($slots{$slot}->{'endtime'}?
+ &Apache::lonlocal::locallocaltime($slots{$slot}->{'endtime'}):'');
+ my $start_reserve=($slots{$slot}->{'startreserve'}?
+ &Apache::lonlocal::locallocaltime($slots{$slot}->{'startreserve'}):'');
+
my $unique;
if (ref($slots{$slot}{'uniqueperiod'})) {
$unique=localtime($slots{$slot}{'uniqueperiod'}[0]).','.
@@ -539,14 +545,13 @@ sub show_table {
$name_cache{$_} = $fullname;
}
&Apache::loncommon::aboutmewrapper($fullname,$uname,$udom);
- } (split(/\s*,\s*/,$slots{$slot}->{'proctor'}));
+ } (sort(split(/\s*,\s*/,$slots{$slot}->{'proctor'})));
my $proctors=join(', ',@proctors);
my $edit=(<
-
-
+
EDITFORM
@@ -802,9 +807,15 @@ sub handler {
my $r=shift;
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'});
- &start_page($r);
+
my $vgr=&Apache::lonnet::allowed('vgr',$env{'request.course.id'});
my $mgr=&Apache::lonnet::allowed('mgr',$env{'request.course.id'});
+ my $title='Requesting Another Worktime';
+ if ($env{'form.command'} =~ /^(showslots|uploadstart|csvuploadmap|csvuploadassign)$/ && $vgr eq 'F') {
+ $title = 'Managing Slots';
+ }
+ &start_page($r,$title);
+
if ($env{'form.command'} eq 'showslots' && $vgr eq 'F') {
&show_table($r,$mgr);
} elsif ($env{'form.command'} eq 'uploadstart' && $mgr eq 'F') {
@@ -822,8 +833,6 @@ sub handler {
}
&csv_upload_map($r);
}
- } elsif ($env{'form.command'} eq 'editslot' && $mgr eq 'F') {
- &show_slot_edit($r);
} else {
my $symb=&Apache::lonnet::unescape($env{'form.symb'});
my (undef,undef,$res)=&Apache::lonnet::decode_symb($symb);