loncom/interface/lonmenu.pm - diff

Return to lonmenu.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.346, 2011/01/27 14:38:44	version 1.347, 2011/02/15 14:54:51
Line 1106 sub utilityfunctions {	Line 1106 sub utilityfunctions {
my $confirm_switch = &mt("Editing requires switching to the resource's home server.").'\n'.	my $confirm_switch = &mt("Editing requires switching to the resource's home server.").'\n'.
&mt('Switch server?');	&mt('Switch server?');

my $wishlistpopup;
if (&Apache::lonwishlist::getWishlist() ne 'error') {
$wishlistpopup = &Apache::lonwishlist::makePopUpNewLink();
}

return (<<ENDUTILITY)	return (<<ENDUTILITY)

Line 1235 function annotate() {	Line 1231 function annotate() {
}	}

function set_wishlistlink(title, path) {	function set_wishlistlink(title, path) {
$wishlistpopup	if (!title) {
	title = document.title;
	title = title.replace(/^LON-CAPA /,'');
	}
	if (!path) {
	path = location.pathname;
	}
	Win = window.open('/adm/wishlist?mode=newLink&setTitle='+title+'&setPath='+path,
	'wishlistNewLink','width=560,height=350,scrollbars=0');
}	}

function open_Wishlist_Import(rat) {	function open_Wishlist_Import(rat) {