[LON-CAPA-cvs] cvs: loncom(version_1_2_X) /interface lonparmset.pm

[albertel]

albertel		Fri Aug 27 17:43:10 2004 EDT

  Modified files:              (Branch: version_1_2_X)
    /loncom/interface	lonparmset.pm 
  Log:
  - backport 1.174
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.168.2.1 loncom/interface/lonparmset.pm:1.168.2.2
--- loncom/interface/lonparmset.pm:1.168.2.1	Tue Aug 17 16:32:50 2004
+++ loncom/interface/lonparmset.pm	Fri Aug 27 17:43:09 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.168.2.1 2004/08/17 20:32:50 albertel Exp $
+# $Id: lonparmset.pm,v 1.168.2.2 2004/08/27 21:43:09 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1828,9 +1828,10 @@
 	    $middle=~s/\.$//;
 	    my $realm='<font color="red">'.&mt('All Resources').'</font>';
 	    if ($middle=~/^(.+)\_\_\_\(all\)$/) {
-		$realm='<font color="green">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).'</font>';
+		$realm='<font color="green">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).' <br /><font color="#aaaaaa" size="-2">('.$1.')</font></font>';
 	    } elsif ($middle) {
-		$realm='<font color="orange">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).'</font>';
+		my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);
+		$realm='<font color="orange">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).' <br /><font color="#aaaaaa" size="-2">('.$url.' in '.$map.' id: '.$id.')</font></font>';
 	    }
 	    if ($section ne $oldsection) {
 		$r->print(&tableend()."\n<hr /><h1>$section</h1>");