loncom/publisher/lonpubdir.pm - diff

Return to lonpubdir.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.130, 2011/10/22 12:34:01	version 1.131, 2011/10/22 15:16:20
Line 521 sub putresource {	Line 521 sub putresource {
my $title=' ';	my $title=' ';
my $publish_button=&mt('Publish');	my $publish_button=&mt('Publish');
my $cstr_dir = $r->dir_config('lonDocRoot').'/priv/'.$udom.'/'.$uname.'/'.$thisdisfn.'/';	my $cstr_dir = $r->dir_config('lonDocRoot').'/priv/'.$udom.'/'.$uname.'/'.$thisdisfn.'/';
my $linkfilename='/priv'.$thisdisfn.'/'.$filename;	my $linkfilename=&HTML::Entities::encode('/priv'.$thisdisfn.'/'.$filename,'<>&"');

if (-e $resdir.'/'.$filename) {	if (-e $resdir.'/'.$filename) {
my $same=0;	my $same=0;
Line 657 sub create_pubselect {	Line 657 sub create_pubselect {
'<option value="cleanup">'.&mt('Clean up').'</option>'.	'<option value="cleanup">'.&mt('Clean up').'</option>'.
'<option value="print">'.&mt('Print').'</option>'.	'<option value="print">'.&mt('Print').'</option>'.
'</select>	'</select>
<input type="hidden" name="filename" value="/~'.	<input type="hidden" name="filename" value="/priv'.
&HTML::Entities::encode($uname.$thisdisfn.'/'.$filename,'<>&"').'" />	&HTML::Entities::encode($thisdisfn.'/'.$filename,'<>&"').'" />
<input type="hidden" name="dispfilename" value="'.	<input type="hidden" name="dispfilename" value="'.
&HTML::Entities::encode($filename).'" /></form>';	&HTML::Entities::encode($filename).'" /></form>';
$$numres ++;	$$numres ++;