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

[albertel]

albertel		Fri Oct  7 16:00:20 2005 EDT

  Modified files:              
    /loncom/interface	slotrequest.pm 
  Log:
  - make the proctor column lokk 'better'
  
  
Index: loncom/interface/slotrequest.pm
diff -u loncom/interface/slotrequest.pm:1.19 loncom/interface/slotrequest.pm:1.20
--- loncom/interface/slotrequest.pm:1.19	Fri Oct  7 15:44:06 2005
+++ loncom/interface/slotrequest.pm	Fri Oct  7 16:00:20 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.19 2005/10/07 19:44:06 albertel Exp $
+# $Id: slotrequest.pm,v 1.20 2005/10/07 20:00:20 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -501,6 +501,16 @@
 	    $unique=localtime($slots{$slot}{'uniqueperiod'}[0]).','.
 		localtime($slots{$slot}{'uniqueperiod'}[1]);
 	}
+	
+	my @proctors = map {
+	    my ($uname,$udom)=split(/@/,$_);
+	    my $fullname=&Apache::loncommon::plainname($uname,$udom);
+	    $fullname=~s/\s/ /g;
+	    &Apache::loncommon::aboutmewrapper($fullname,$uname,$udom);
+	} (split(/\s*,\s*/,$slots{$slot}->{'proctor'}));
+	
+	my $proctors=join(', ',@proctors);
+			
 
 	my $edit=(<<EDITFORM);
 <form method="POST">
@@ -519,7 +529,7 @@
  <td>$end</td>
  <td>$slots{$slot}->{'maxspace'}</td>
  <td>$ids</td>
- <td>$slots{$slot}->{'proctor'}</td>
+ <td>$proctors</td>
  <td>$unique</td>
 </tr>
 STUFF