--- loncom/interface/lonindexer.pm 2014/06/09 21:35:19 1.213.4.7 +++ loncom/interface/lonindexer.pm 2013/06/02 01:41:09 1.218 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Directory Indexer # -# $Id: lonindexer.pm,v 1.213.4.7 2014/06/09 21:35:19 raeburn Exp $ +# $Id: lonindexer.pm,v 1.218 2013/06/02 01:41:09 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -92,8 +92,15 @@ sub handler { undef (@Omit); %fieldnames=&Apache::lonmeta::fieldnames(); -# --------------------------------------------------------------- get icon path +# ------------------------------------- read in machine configuration variables my $iconpath= $r->dir_config('lonIconsURL') . "/"; + my $domain = $r->dir_config('lonDefDomain'); + my $role = $r->dir_config('lonRole'); + my $loadlim = $r->dir_config('lonLoadLim'); + my $servadm = $r->dir_config('lonAdmEMail'); + my $sysadm = $r->dir_config('lonSysEMail'); + my $lonhost = $r->dir_config('lonHostID'); + my $tabdir = $r->dir_config('lonTabDir'); #SB my $fileclr='#ffffe6'; my $line; @@ -1000,7 +1007,7 @@ $r->print (''. + 'onclick="set_wishlistlink('."'$plainname','$startdir$listname'".')">'. ''.$tabtag); $r->print(&Apache::loncommon::end_data_table_row()); @@ -1250,7 +1257,7 @@ $r->print (''. + 'onclick="set_wishlistlink('."'$listname','$startdir$listname'".')">'. ''); # Attributes @@ -1297,8 +1304,8 @@ $r->print ('