[LON-CAPA-cvs] cvs: loncom /interface slotrequest.pm

[albertel]

albertel		Tue Sep  6 16:53:39 2005 EDT

  Modified files:              
    /loncom/interface	slotrequest.pm 
  Log:
  - add moe info to the slot screen
  
  
Index: loncom/interface/slotrequest.pm
diff -u loncom/interface/slotrequest.pm:1.9 loncom/interface/slotrequest.pm:1.10
--- loncom/interface/slotrequest.pm:1.9	Mon Aug 15 15:55:37 2005
+++ loncom/interface/slotrequest.pm	Tue Sep  6 16:53:36 2005
@@ -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.9 2005/08/15 19:55:37 albertel Exp $
+# $Id: slotrequest.pm,v 1.10 2005/09/06 20:53:36 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -456,7 +456,18 @@
     my ($cnum,$cdom)=&get_course();
     my %slots=&Apache::lonnet::dump('slots',$cdom,$cnum);
     my $available;
-    $r->print('<table border="1">');
+    $r->print('<table border="1">
+<tr>
+  <th>Slot name</th>
+  <th>Type</th>
+  <th>Description</th>
+  <th>Start Time</th>
+  <th>End Time</th>
+  <th>Max space</th>
+  <th>Scheduled Students</th>
+  <th>Proctors</th>
+  <th>Unique Period</th>
+</tr>');
     foreach my $slot (sort 
 		      { return $slots{$a}->{'starttime'} <=> $slots{$b}->{'starttime'} }
 		      (keys(%slots)))  {
@@ -477,11 +488,14 @@
 	$r->print(<<STUFF);
 <tr>
  <td>$slot</td>
+ <td>$slots{$slot}->{'type'}</td>
  <td>$description</td>
  <td>$start</td>
  <td>$end</td>
  <td>$slots{$slot}->{'maxspace'}</td>
  <td>$ids</td>
+ <td>$slots{$slot}->{'proctor'}</td>
+ <td>$slots{$slot}->{'uniqueperiod'}</td>
 </tr>
 STUFF
     }