loncom/interface/lonwishlistdisplay.pm - diff

Return to lonwishlistdisplay.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.5, 2014/02/16 21:50:16	version 1.7, 2021/12/24 00:48:30
Line 64 sub handler {	Line 64 sub handler {
return HTTP_NOT_ACCEPTABLE;	return HTTP_NOT_ACCEPTABLE;
}	}

	my $clientip = &Apache::lonnet::get_requestor_ip($r);
	my ($blocked,$blocktext) =
	&Apache::loncommon::blocking_status('wishlist',$clientip);
	if ($blocked) {
	&Apache::lonhtmlcommon::clear_breadcrumbs();
	&Apache::lonhtmlcommon::add_breadcrumb(
	{ href => '/adm/wishlist',
	text => 'Stored Links'});
	my $startPage = &Apache::loncommon::start_page('Stored Links');
	my $breadcrumbs = &Apache::lonhtmlcommon::breadcrumbs('Stored Links','Wishlist');
	my $endpage = &Apache::loncommon::end_page();
	$r->print($startPage.$breadcrumbs.$blocktext);
	return OK;
	}

if (&Apache::lonwishlist::getWishlist() ne 'error') {	if (&Apache::lonwishlist::getWishlist() ne 'error') {
# get wishlist entries from user-data db-file and build a tree out of these entries	# get wishlist entries from user-data db-file and build a tree out of these entries
%TreeHash = &Apache::lonwishlist::getWishlist();	%TreeHash = &Apache::lonwishlist::getWishlist();
Line 170 sub handler {	Line 185 sub handler {
@marked = ();	@marked = ();
$r->print($page);	$r->print($page);
} else {	} else {
# An error occured, print an error-page	# An error occurred, print an error-page
my $errorPage = &Apache::lonwishlist::makeErrorPage();	my $errorPage = &Apache::lonwishlist::makeErrorPage();
$r->print($errorPage);	$r->print($errorPage);
}	}