--- loncom/publisher/lonpubdir.pm 2005/06/23 22:24:54 1.84
+++ loncom/publisher/lonpubdir.pm 2005/07/14 18:27:35 1.87
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Construction Space Directory Lister
#
-# $Id: lonpubdir.pm,v 1.84 2005/06/23 22:24:54 www Exp $
+# $Id: lonpubdir.pm,v 1.87 2005/07/14 18:27:35 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -111,7 +111,7 @@ sub handler {
'
- $lt{'acti'} |
- $lt{'updc'} |
- $lt{'crea'} |
+ $lt{'acti'} |
+ $lt{'updc'} |
+ $lt{'crea'} |
');
}
@@ -513,15 +513,14 @@ sub putdirectory {
$actionitem =
'';
@@ -529,9 +528,9 @@ sub putdirectory {
}
$r->print(' |
'.
' | '.
+ $Apache::lonnet::perlvar{'lonIconsURL'}.'/folder_closed.gif" alt="folder" />'.
''.$actionitem.' | '.
- ''.
+ ' | '.
$disfilename.' | '.
''.($kaputt?&Apache::lonhtmlcommon::authorbombs($resdir.'/'.$disfilename.'/'):'').$Apache::lonpublisher::metadatafields{'title'}.' '.
$Apache::lonpublisher::metadatafields{'subject'}.' '.
@@ -597,7 +596,7 @@ sub putresource {
}
}
$title.="\n".' '.
- ($$bombs{$targetdir.'/'.$filename}?'':'Edit Metadata').'';
+ ($$bombs{$targetdir.'/'.$filename}?'':'Edit Metadata').'';
$status.="\n".' '.&mt('Retrieve').'';
}
@@ -622,7 +621,7 @@ sub putresource {
&create_pubselect($r,\$pub_select,$udom,$uname,$thisdisfn,$filename,$resdir,$pubstatus,$publish_button,$numres);
$r->print(' |
'.
''.($filename=~/[\#\~]$/?' ':
- ' | ').
+ '').''.
''.$pub_select.' | '.
''.
''.
@@ -639,7 +638,7 @@ sub create_pubselect {
my ($r,$pub_select,$udom,$uname,$thisdisfn,$filename,$resdir,$pubstatus,$publish_button,$numres) = @_;
$$pub_select = '
';
+ &HTML::Entities::encode($uname.$thisdisfn.'/'.$filename,'<>&"').'" />';
$$numres ++;
}
|