loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.265, 2009/12/03 17:23:00	version 1.266, 2010/05/27 18:27:43
Line 1223 sub publish {	Line 1223 sub publish {
my $intr_scrout.='<br />'	my $intr_scrout.='<br />'
.'<form name="pubform" action="/adm/publish" method="post">';	.'<form name="pubform" action="/adm/publish" method="post">';
unless ($env{'form.makeobsolete'}) {	unless ($env{'form.makeobsolete'}) {
	my $thissrc=$source;
	$thissrc=~s{^/home/($match_username)/public_html}{/priv/$1};
$intr_scrout.='<p class="LC_warning">'	$intr_scrout.='<p class="LC_warning">'
.&mt('Searching for your resource will be based on the following metadata. Please provide as much data as possible.')	.&mt('Searching for your resource will be based on the following metadata. Please provide as much data as possible.')
.'</p>'	.'</p>'
.'<p><input type="submit" value="'	.'<p><input type="submit" value="'
.&mt('Finalize Publication')	.&mt('Finalize Publication')
.'" /></p>';	.'" /> <a href="'.$thissrc.'">'.&mt('Cancel').'</a></p>';
}	}
$intr_scrout.=&Apache::lonhtmlcommon::start_pick_box();	$intr_scrout.=&Apache::lonhtmlcommon::start_pick_box();
$intr_scrout.=	$intr_scrout.=