loncom/interface/lonrss.pm - diff

Return to lonrss.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.15, 2006/04/13 17:57:17	version 1.16, 2006/04/13 18:12:49
Line 36 use Apache::lontexconvert;	Line 36 use Apache::lontexconvert;
use Apache::lonlocal;	use Apache::lonlocal;
use Apache::lonhtmlcommon;	use Apache::lonhtmlcommon;

my $feedcounter;

sub filterfeedname {	sub filterfeedname {
my $filename=shift;	my $filename=shift;
Line 106 sub rss_link {	Line 105 sub rss_link {
return qq\|<link rel="alternate" type="application/rss+xml" title="Course Announcements" href="$url" />\|;	return qq\|<link rel="alternate" type="application/rss+xml" title="Course Announcements" href="$url" />\|;
}	}

	{
	my $feedcounter;
	sub get_new_feed_id {
	$feedcounter++;
	return time().'00000'.$$.'00000'.$feedcounter;
	}
	}

sub addentry {	sub addentry {
$feedcounter++;	my $id=&get_new_feed_id();
my $id=time.'00000'.$$.'00000'.$feedcounter;
return &editentry($id,@_);	return &editentry($id,@_);
}	}

Line 213 sub handler {	Line 219 sub handler {
}	}
}	}
}	}
$feedcounter++;	my $newid = &get_new_feed_id();
my $newid=time.'00000'.$$.'00000'.$feedcounter;
# Is this user for real?	# Is this user for real?
my $homeserver=&Apache::lonnet::homeserver($uname,$udom);	my $homeserver=&Apache::lonnet::homeserver($uname,$udom);
if ($html) {	if ($html) {