loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.117, 2004/06/22 13:27:51	version 1.119, 2004/07/07 00:02:00
Line 136 sub handler {	Line 136 sub handler {
if ($ENV{'form.launch'} eq '2') {	if ($ENV{'form.launch'} eq '2') {
$r->content_type('text/html');	$r->content_type('text/html');
my $extra='';	my $extra='';
if (defined($ENV{'form.titleelement'})) {	if (defined($ENV{'form.titleelement'}) &&
	$ENV{'form.titleelement'} ne '') {
my $verify_title = &Apache::lonnet::gettitle($ENV{'form.acts'});	my $verify_title = &Apache::lonnet::gettitle($ENV{'form.acts'});
# &Apache::lonnet::logthis("Hrrm $ENV{'form.acts'} -- $verify_title");	# &Apache::lonnet::logthis("Hrrm $ENV{'form.acts'} -- $verify_title");
$verify_title=~s/'/\\'/g;	$verify_title=~s/'/\\'/g;
Line 1017 sub display_line {	Line 1018 sub display_line {
if ($hash{'display_attrs_10'} == 1) {	if ($hash{'display_attrs_10'} == 1) {
my $source = &Apache::lonnet::metadata($filelink,'sourceavail');	my $source = &Apache::lonnet::metadata($filelink,'sourceavail');
if($source eq 'open') {	if($source eq 'open') {
my $sourcelink = &Apache::lonsource::make_link($filelink);	my $sourcelink = &Apache::lonsource::make_link($filelink,$listname);
$r->print('<td>'."<a href=\"javascript:openWindow('".$sourcelink.	$r->print('<td>'."<a href=\"javascript:openWindow('".$sourcelink.
"', 'previewsource', '700', '700', 'no', 'yes','yes')\";".	"', 'previewsource', '700', '700', 'no', 'yes','yes')\";".
" TARGET=_self>Yes</a> "."</td>\n");	" TARGET=_self>Yes</a> "."</td>\n");