loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.25, 2001/04/16 20:47:27	version 1.26, 2001/05/03 11:18:28
Line 9	Line 9
# 03/23 Guy Albertelli	# 03/23 Guy Albertelli
# 03/24,03/29,04/03 Gerd Kortemeyer	# 03/24,03/29,04/03 Gerd Kortemeyer
# 04/16/2001 Scott Harrison	# 04/16/2001 Scott Harrison
	# 05/03 Gerd Kortemeyer

package Apache::lonpublisher;	package Apache::lonpublisher;

Line 837 unless ($ENV{'form.phase'} eq 'two') {	Line 838 unless ($ENV{'form.phase'} eq 'two') {
$r->print('<h2>Publishing '.	$r->print('<h2>Publishing '.
&Apache::lonnet::filedescription($thistype).' <tt>'.	&Apache::lonnet::filedescription($thistype).' <tt>'.
$thisdisfn.'</tt></h2><b>Target:</b> <tt>'.$thisdistarget.'</tt><p>');	$thisdisfn.'</tt></h2><b>Target:</b> <tt>'.$thisdistarget.'</tt><p>');

	if (&Apache::lonnet::fileembstyle($thistype) eq 'ssi') {
	$r->print('<br><a href="/adm/diff?filename='.$thisdisfn.
	'&versionone=priv" target=cat>Diffs with Current Version</a><p>');
	}

# ------------ We are publishing from $thisfn to $thistarget with $thisembstyle	# ------------ We are publishing from $thisfn to $thistarget with $thisembstyle