loncom/interface/lonevaluate.pm - diff

Return to lonevaluate.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.19, 2006/03/19 22:22:49	version 1.20, 2006/12/05 02:55:52
Line 33 use Apache::lonnet;	Line 33 use Apache::lonnet;
use Apache::Constants qw(:common);	use Apache::Constants qw(:common);
use Apache::loncommon();	use Apache::loncommon();
use Apache::lonenc();	use Apache::lonenc();
	use LONCAPA();

sub handler {	sub handler {
my $r = shift;	my $r = shift;
Line 53 sub handler {	Line 54 sub handler {
my $title=&Apache::lonnet::gettitle($feedurl);	my $title=&Apache::lonnet::gettitle($feedurl);
my $showurl=&Apache::lonenc::check_encrypt($feedurl);	my $showurl=&Apache::lonenc::check_encrypt($feedurl);

my ($rdomain,$rauth)=($feedurl=~/^(\w+)\/(\w+)\//);	my ($rdomain,$rauth)=($feedurl=~/^($LONCAPA::domain_re)\/($LONCAPA::username_re)\//);

my $prefix=$env{'user.name'}.'@'.$env{'user.domain'}.'___'.	my $prefix=$env{'user.name'}.'@'.$env{'user.domain'}.'___'.
$feedurl.'___';	$feedurl.'___';