loncom/publisher/lonpublisher.pm - diff

Return to lonpublisher.pm CVS log

Up to [LON-CAPA] / loncom / publisher

version 1.255, 2009/04/03 16:41:13	version 1.256, 2009/04/04 20:06:43
Line 1401 END	Line 1401 END
(&Apache::loncommon::source_copyrightids));	(&Apache::loncommon::source_copyrightids));
# $intr_scrout.=&text_with_browse_field('Source Custom Distribution File','sourcerights',$metadatafields{'sourcerights'},'rights');	# $intr_scrout.=&text_with_browse_field('Source Custom Distribution File','sourcerights',$metadatafields{'sourcerights'},'rights');
my $uctitle=&mt('Obsolete');	my $uctitle=&mt('Obsolete');
my $obsolete_checked=($metadatafields{'obsolete'})?' checked="1" ':'';	my $obsolete_checked=($metadatafields{'obsolete'})?' checked="checked" ':'';
$intr_scrout.="\n".&Apache::lonhtmlcommon::row_title($uctitle)	$intr_scrout.="\n".&Apache::lonhtmlcommon::row_title($uctitle)
.'<input type="checkbox" name="obsolete" '.$obsolete_checked.'/ >'	.'<input type="checkbox" name="obsolete"'.$obsolete_checked.' />'
.&Apache::lonhtmlcommon::row_closure(1);	.&Apache::lonhtmlcommon::row_closure(1);
$intr_scrout.=&text_with_browse_field('Suggested Replacement for Obsolete File',	$intr_scrout.=&text_with_browse_field('Suggested Replacement for Obsolete File',
'obsoletereplacement',	'obsoletereplacement',