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

[albertel]

albertel		Fri Aug 27 17:10:06 2004 EDT

  Modified files:              
    /loncom/interface	lonparmset.pm 
  Log:
  - add the folder url, or symb info
  
  
Index: loncom/interface/lonparmset.pm
diff -u loncom/interface/lonparmset.pm:1.173 loncom/interface/lonparmset.pm:1.174
--- loncom/interface/lonparmset.pm:1.173	Tue Aug 17 16:27:04 2004
+++ loncom/interface/lonparmset.pm	Fri Aug 27 17:10:05 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.173 2004/08/17 20:27:04 albertel Exp $
+# $Id: lonparmset.pm,v 1.174 2004/08/27 21:10:05 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1838,9 +1838,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>");