--- loncom/publisher/lonpubdir.pm 2004/01/03 15:57:11 1.54 +++ loncom/publisher/lonpubdir.pm 2004/01/06 02:15:12 1.57 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Construction Space Directory Lister # -# $Id: lonpubdir.pm,v 1.54 2004/01/03 15:57:11 www Exp $ +# $Id: lonpubdir.pm,v 1.57 2004/01/06 02:15:12 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -245,7 +245,10 @@ sub getTitleString { return $title; } - +sub getCopyRightString { + my $fullname = shift; + return &Apache::lonnet::metadata($fullname, 'copyright'); +} # # Put out a directory table row: # putdirectory(r, base, here, dirname, modtime) @@ -268,12 +271,12 @@ sub putdirectory { ($dirname eq '.')) { my $kaputt=0; foreach (keys %{$bombs}) { - if ($_=~/^$resdir\/$disfilename\//) { $kaputt=1; last; } + if ($_=~m:^\Q$resdir\E/\Q$disfilename\E/:) { $kaputt=1; last; } } %Apache::lonpublisher::metadatafields=(); %Apache::lonpublisher::metadatakeys=(); my $construct=$here; - $construct=~s/^\/priv\/(\w+)$/\/home\/$1\/public_html/; + $construct=~s:^/priv/(\w+)$:/home/$1/public_html:; &Apache::lonpublisher::metaeval(&Apache::lonnet::getfile( $construct.'/'.$dirname.'/default.meta' )); @@ -281,7 +284,7 @@ sub putdirectory { '