loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.233, 2008/05/12 20:59:22	version 1.235, 2008/05/17 12:08:45
Line 775 sub fix_ids_and_indices {	Line 775 sub fix_ids_and_indices {
}	}
if (!$endtag) { if ($token->[4]=~m:/>$:) { $endtag=' /'; }; }	if (!$endtag) { if ($token->[4]=~m:/>$:) { $endtag=' /'; }; }
$outstring.='<'.$tag.$newparmstring.$endtag.'>';	$outstring.='<'.$tag.$newparmstring.$endtag.'>';
if ($lctag eq 'm' \|\| $lctag eq 'script'	if ($lctag eq 'm' \|\| $lctag eq 'script' \|\| $lctag eq 'answer'
\|\| $lctag eq 'display' \|\| $lctag eq 'tex') {	\|\| $lctag eq 'display' \|\| $lctag eq 'tex') {
$outstring.=&get_all_text_unbalanced('/'.$lctag,\@parser);	$outstring.=&get_all_text_unbalanced('/'.$lctag,\@parser);
}	}
Line 1818 sub publishdirectory {	Line 1818 sub publishdirectory {
'<br /><input type="submit" value="'.&mt('Publish Directory').'" /></form>');	'<br /><input type="submit" value="'.&mt('Publish Directory').'" /></form>');
$lock=0;	$lock=0;
} else {	} else {
unless ($lock) { $lock=&Apache::lonnet::set_lock('Publishing '.$fn); }	unless ($lock) { $lock=&Apache::lonnet::set_lock(&mt('Publishing [_1]',$fn)); }
# actually publish things	# actually publish things
opendir(DIR,$fn);	opendir(DIR,$fn);
my @files=sort(readdir(DIR));	my @files=sort(readdir(DIR));