--- loncom/interface/loncommon.pm 2004/12/02 21:30:16 1.240 +++ loncom/interface/loncommon.pm 2004/12/04 02:05:23 1.241 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # a pile of common routines # -# $Id: loncommon.pm,v 1.240 2004/12/02 21:30:16 albertel Exp $ +# $Id: loncommon.pm,v 1.241 2004/12/04 02:05:23 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -2608,14 +2608,18 @@ ENDROLE $formaction=~s/\/+/\//g; unless ($customtitle) { #this is for resources; directories have customtitle, and crumbs and select recent are created in lonpubdir.pm my $parentpath = ''; - if ($thisdisfn =~ m-(.+/)[^/]*$-) { + my $lastitem = ''; + if ($thisdisfn =~ m-(.+/)([^/]*)$-) { $parentpath = $1; + $lastitem = $2; + } else { + $lastitem = $thisdisfn; } $titleinfo = &Apache::loncommon::help_open_menu('','','','',3,'Authoring'). 'Construction Space: '. '
' .&Apache::lonmenu::constspaceform();