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

matthew lon-capa-cvs@mail.lon-capa.org
Tue, 04 Jan 2005 14:46:17 -0000


matthew		Tue Jan  4 09:46:17 2005 EDT

  Modified files:              
    /loncom/interface	loncommon.pm 
  Log:
  Added display of course.id and internal.coursecode for DC users only because
  I got tired of having to go to the test page and search.
  
  
Index: loncom/interface/loncommon.pm
diff -u loncom/interface/loncommon.pm:1.244 loncom/interface/loncommon.pm:1.245
--- loncom/interface/loncommon.pm:1.244	Mon Dec 20 15:53:40 2004
+++ loncom/interface/loncommon.pm	Tue Jan  4 09:46:17 2005
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # a pile of common routines
 #
-# $Id: loncommon.pm,v 1.244 2004/12/20 20:53:40 raeburn Exp $
+# $Id: loncommon.pm,v 1.245 2005/01/04 14:46:17 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2706,6 +2706,17 @@
     if ($customtitle) {
         $titleinfo = $customtitle;
     }
+    #
+    # Extra info if you are the DC
+    my $dc_info = '';
+    if ($ENV{'user.adv'} && exists($ENV{'user.role.dc./'.
+                        $ENV{'course.'.$ENV{'request.course.id'}.
+                                 '.domain'}.'/'})) {
+        my $cid = $ENV{'request.course.id'};
+        $dc_info.= $cid.' '.$ENV{'course.'.$cid.'.internal.coursecode'};
+        $dc_info = '('.$dc_info.')';
+    }
+    #
     return(<<ENDBODY);
 $bodytag
 <table width="100%" cellspacing="0" border="0" cellpadding="0">
@@ -2715,7 +2726,7 @@
 </tr>
 <tr>
 <td rowspan="3" bgcolor="$tabbg">
-$titleinfo
+$titleinfo $dc_info
 <td bgcolor="$tabbg" align="right">
 <font size="2" face="Arial, Helvetica, sans-serif">
     $ENV{'environment.firstname'}