Portal Search Online

This samples shows how to use the Portal API to search public webmaps on ArcGIS.com that matches the search criterion. To use the sample, enter the search keyword and press enter. Webmaps matching the search parameters will be listed. To view details of an item click on its description to display the display panel. You can also view/open the webmap by clicking thumbnail image. To access the results list after the webmap is opened , click on Back to Results button on top left corner of the sample. There is an option to login in to portal and limit the search only within the organization.

XAML

<UserControl x:Class="ArcGISWPFSDK.PortalSearch"
    xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation"
    xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml"
    xmlns:sdk="http://schemas.microsoft.com/winfx/2006/xaml/presentation/sdk"
    xmlns:samples="clr-namespace:ArcGISWPFSDK">
    <Grid x:Name="LayoutRoot" Background="White">
        <Grid.Resources>
            <samples:HtmlToTextConverter x:Key="HtmlToTextConverter" />
            <samples:RatingConverter x:Key="RatingConverter" />
        </Grid.Resources>

        <Grid.RowDefinitions>
            <RowDefinition  Height="Auto"/>
            <RowDefinition  Height="*" />
        </Grid.RowDefinitions>

        <Grid Grid.Row="0"  Margin="5">
            <ToolBar Height="auto" HorizontalAlignment="Left" VerticalAlignment="Center" FontSize="15" Background="Gray">
                <TextBox x:Name="QueryText" Width="500" KeyDown="QueryText_KeyDown" Text="World"/>
                <Button Content="Search" Click="DoSearch_Click" Margin="5,0,5,0" />
                <Separator></Separator>
                <Button x:Name="BackToResults" Content="Back to Results" Click="BackToResults_Click" Margin="5,0,5,0" />
                <Separator></Separator>
                <Button x:Name="SignInButton" Content="Sign In" Click="ShowSignIn_Click" Margin="5,0,5,0"/>
            </ToolBar>
        </Grid>

        <Grid Grid.Row="1">

            <Grid.ColumnDefinitions>
                <ColumnDefinition Width="*"/>
                <ColumnDefinition Width="Auto" />
            </Grid.ColumnDefinitions>

            <ScrollViewer VerticalScrollBarVisibility="Auto" Grid.Column="0">
                <ListBox x:Name="ResultsListBox"
                         Background="Transparent"				
                         Grid.Row="2"
                         Margin="10,3,0,0"
                         BorderThickness="0"
                         ScrollViewer.HorizontalScrollBarVisibility="Disabled">
                    <ListBox.ItemsPanel>
                        <ItemsPanelTemplate>
                            <WrapPanel Orientation="Horizontal"
                                       x:Name="ResultListBoxWrapPanel" />
                        </ItemsPanelTemplate>
                    </ListBox.ItemsPanel>
                    <ListBox.ItemTemplate>
                        <DataTemplate >
                            <Grid x:Name="ResultItem" Width="300" MouseLeftButtonDown="ResultItem_MouseLeftButtonDown">
                                <Grid.RowDefinitions>
                                    <RowDefinition Height="Auto" />
                                    <RowDefinition Height="Auto" />
                                    <RowDefinition Height="Auto" />
                                </Grid.RowDefinitions>
                                <TextBlock Text="{Binding Title}"
                                           TextTrimming="WordEllipsis" 
                                           Grid.Row="0"
                                           FontSize="12"
                                           Margin="5,5,5,0"
                                           TextWrapping="NoWrap" />
                                <StackPanel Orientation="Horizontal" Grid.Row="1">
                                    <TextBlock Text="{Binding Type}"
                                               FontSize="10" Margin="5,0,0,0" />
                                    <TextBlock Text="by"
                                               FontSize="10" Margin="2,0,0,0" />
                                    <TextBlock Text="{Binding Owner}" 
                                               Margin="2,0,0,0" FontSize="10" />
                                    <TextBlock Text="(last modified:"
                                               Margin="2,0,0,0" FontSize="10" />
                                    <TextBlock Text="{Binding ModificationDate, StringFormat='MMMM dd, yyyy)'}"
                                               FontSize="10" Margin="2,0,0,0" />
                                </StackPanel>
                                <Grid Grid.Row="2">
                                    <Grid.ColumnDefinitions>
                                        <ColumnDefinition Width="Auto" />
                                        <ColumnDefinition Width="*" />
                                    </Grid.ColumnDefinitions>
                                    <Grid.RowDefinitions>
                                        <RowDefinition Height="85" />
                                        <RowDefinition Height="*" />
                                    </Grid.RowDefinitions>
                                    <Grid Margin="5, 0, 10, 0"
                                          Grid.Row="0" Grid.Column="0" Grid.RowSpan="2">
                                        <Border BorderBrush="Black" BorderThickness="2" >
                                            <Image Source="{Binding ThumbnailUri}"						   
                                                   MouseLeftButtonDown="Image_MouseLeftButtonDown"
                                                   MaxHeight="80" MaxWidth="120" />
                                        </Border>
                                    </Grid>
                                    <TextBlock Text="{Binding Description, Converter={StaticResource HtmlToTextConverter}}"
                                               TextTrimming="WordEllipsis"
                                               Grid.Row="0"
                                               Grid.Column="1"
                                               Height="85"
                                               TextWrapping="Wrap"
                                               FontSize="10"
                                               Width="235"
                                               Margin="5,5,5,1" />
                                </Grid>
                            </Grid>
                        </DataTemplate>
                    </ListBox.ItemTemplate>
                </ListBox>
            </ScrollViewer>

            <Grid x:Name="MapItemDetail" Grid.Column="1"
                  Visibility="Collapsed" Width="300" Margin="20,0,0,0">
                <Grid.RowDefinitions>
                    <RowDefinition Height="Auto" />
                    <RowDefinition Height="Auto" />
                    <RowDefinition Height="Auto" />
                    <RowDefinition Height="*" />
                </Grid.RowDefinitions>

                <Grid Grid.Row="1">
                    <Grid.ColumnDefinitions>
                        <ColumnDefinition Width="*" />
                        <ColumnDefinition Width="Auto" />
                    </Grid.ColumnDefinitions>
                    <TextBlock Text="{Binding Title}"
                               TextTrimming="WordEllipsis"
                               Margin="5"
                               FontSize="18" />
                </Grid>

                <Grid Grid.Row="2">
                    <Grid.ColumnDefinitions>
                        <ColumnDefinition Width="Auto" />
                        <ColumnDefinition Width="*" />
                        <ColumnDefinition Width="Auto" />
                    </Grid.ColumnDefinitions>
                    <Grid Margin="5, 0, 10, 10"
                      HorizontalAlignment="Left">
                        <Rectangle Width="210"
                                   Height="143"
                                   Fill="White"
                                   Stroke="Gray" />
                        <Image Source="{Binding ThumbnailUri}"
                               MouseLeftButtonDown="Image_MouseLeftButtonDown"
                               Height="133"
                               Width="200" />
                    </Grid>
                </Grid>
                <ScrollViewer Grid.Row="3"
                              Background="Transparent"
                              Width="400"
                              Margin="5,0,0,0"
                              BorderThickness="0,1,0,0"
                              HorizontalAlignment="Stretch"
                              VerticalScrollBarVisibility="Auto"
                              HorizontalScrollBarVisibility="Auto"
                              Padding="0">
                    <Grid Margin="0, 10, 0, 10">
                        <Grid.ColumnDefinitions>
                            <ColumnDefinition Width="Auto" />
                            <ColumnDefinition Width="200" />
                        </Grid.ColumnDefinitions>
                        <Grid.RowDefinitions>
                            <RowDefinition Height="Auto" />
                            <RowDefinition Height="Auto" />
                            <RowDefinition Height="Auto" />
                            <RowDefinition Height="50" />
                            <RowDefinition Height="25" />
                            <RowDefinition Height="25" />
                        </Grid.RowDefinitions>
                        <TextBlock Text="Summary" />
                        <Grid Grid.Column="1">
                            <TextBlock Text="{Binding Description, Converter={StaticResource HtmlToTextConverter}}"
                                       TextTrimming="WordEllipsis"
                                       HorizontalAlignment="Stretch"
                                       MaxHeight="100"
                                       TextWrapping="Wrap" />
                        </Grid>
                        <TextBlock Grid.Row="1"
                                   Text="Tags"
                                   Margin="0,6,0,0" />
                        <Grid Grid.Column="1"
                              Grid.Row="1"
                              Margin="0,5,0,0">
                            <Grid.ColumnDefinitions>
                                <ColumnDefinition Width="*" />
                                <ColumnDefinition Width="Auto" />
                            </Grid.ColumnDefinitions>
                            <ListBox ItemsSource="{Binding Tags}"
                                     Background="Transparent"
                                     BorderBrush="Transparent"
                                     ScrollViewer.VerticalScrollBarVisibility="Disabled"
                                     ScrollViewer.HorizontalScrollBarVisibility="Disabled"
                                     HorizontalAlignment="Left"
                                     Margin="-7,0,0,0">
                                <ListBox.ItemsPanel>
                                    <ItemsPanelTemplate>
                                        <WrapPanel Width="200" />
                                    </ItemsPanelTemplate>
                                </ListBox.ItemsPanel>
                            </ListBox>
                        </Grid>
                        <TextBlock Grid.Row="2"
                                   Text="Type"
                                   Margin="0,6,0,0" />
                        <TextBlock Grid.Row="2"
                                   Grid.Column="1"
                                   Text="{Binding Type}"
                                   Margin="0,6,0,0" />
                        <Grid Margin="0,13,0,0"
                              Grid.Row="3"
                              Grid.Column="0" Grid.ColumnSpan="2">
                            <Grid.ColumnDefinitions>
                                <ColumnDefinition Width="Auto" />
                                <ColumnDefinition Width="Auto" />
                                <ColumnDefinition Width="Auto" />
                            </Grid.ColumnDefinitions>
                            <TextBlock Grid.Column="1" Margin="0">
                                <Run Text="{Binding AvgRating, StringFormat='Average Rating = {0}', Mode=OneWay}" />
                                <Run Text="{Binding NumRatings, StringFormat='\({0} ratings,', Mode=OneWay}" />
                                <Run Text="{Binding NumViews, StringFormat='\{0} views)', Mode=OneWay}"/>
                            </TextBlock>
                        </Grid>
                        <TextBlock Grid.Row="4" Text="Last Modified" Margin="0,0,5,0" />
                        <TextBlock Grid.Row="4" Grid.Column="1"
                                   Text="{Binding ModificationDate, StringFormat='MMMM dd, yyyy'}" />
                        <TextBlock Grid.Row="5"
                                   Text="Owner" />
                        <TextBlock Grid.Row="5" Grid.Column="1"
                                   Text="{Binding Owner}"/>
                    </Grid>
                </ScrollViewer>
            </Grid>

            <Grid x:Name="WebmapContent" Grid.ColumnSpan="2"
                  Visibility="Collapsed"
                  Background="#FF565656"/>
        </Grid>

        <Grid Name="ShadowGrid" Grid.RowSpan="2" VerticalAlignment="Stretch" 
              HorizontalAlignment="Stretch" Background="#66121212" Visibility="Collapsed" />

        <Grid Name="LoginGrid" MaxWidth="250" HorizontalAlignment="Right" VerticalAlignment="Top" Visibility="Collapsed"
              Margin="0,15,15,0"  Grid.Row="1">
            <Rectangle Stroke="DarkBlue" Fill="LightGray" Margin="-10" >
                <Rectangle.Effect>
                    <DropShadowEffect/>
                </Rectangle.Effect>
            </Rectangle>

            <Grid>
                <Grid.ColumnDefinitions>
                    <ColumnDefinition Width="Auto"/>
                    <ColumnDefinition />
                </Grid.ColumnDefinitions>
                <Grid.RowDefinitions>
                    <RowDefinition />
                    <RowDefinition />
                    <RowDefinition />
                    <RowDefinition />
                </Grid.RowDefinitions>
                <TextBlock Text="Username" Grid.Column="0" Grid.Row="1"
                           Margin="2" VerticalAlignment="Center" />
                <TextBox Name="UserTextBox" HorizontalAlignment="Right" Margin="2" 
                         Grid.Column="1" Grid.Row="1" Width="140" />
                <TextBlock Text="Password" Grid.Column="0" Grid.Row="2"
                           Margin="2" VerticalAlignment="Center" />
                <PasswordBox Name="PasswordTextBox" HorizontalAlignment="Right" Margin="2" Grid.Column="1" Grid.Row="2" Width="140" />
                <StackPanel Orientation="Horizontal"  Grid.Row="3" Grid.ColumnSpan="2" HorizontalAlignment="Right">
                    <Button Name="OK" Content="OK" Margin="0,5,0,5" Click="SignIn_Click"/>
                    <Button Name="Cancel" Content="Cancel" Margin="10,5,0,5" Click="Cancel_Click"
                            HorizontalAlignment="Right" />
                </StackPanel>
            </Grid>
        </Grid>
    </Grid>
</UserControl>

C#

using System;
using System.Windows;
using System.Windows.Controls;
using System.Windows.Documents;
using ESRI.ArcGIS.Client;
using System.Text.RegularExpressions;
using System.Windows.Data;
using System.Windows.Input;
using ESRI.ArcGIS.Client.WebMap;
using ESRI.ArcGIS.Client.Portal;


namespace ArcGISWPFSDK
{
    public partial class PortalSearch : UserControl
    {
        private const string DEFAULT_SERVER_URL = "http://www.arcgis.com/sharing/rest";
        private const string DEFAULT_TOKEN_URL = "https://www.arcgis.com/sharing/generateToken";

        ArcGISPortal portal = new ArcGISPortal() { Url = DEFAULT_SERVER_URL };

        public PortalSearch()
        {
            InitializeComponent();
            IdentityManager.Current.RegisterServers(new IdentityManager.ServerInfo[]
                        {
                            new IdentityManager.ServerInfo() 
                            {
                                ServerUrl = DEFAULT_SERVER_URL,
                                TokenServiceUrl = DEFAULT_TOKEN_URL
                            }
                        });

            IdentityManager.Current.ChallengeMethod = Challenge;

            // Initial search on load
            DoSearch();
        }

        // Activate IdentityManager but don't accept any challenge.
        // User has to use the 'SignIn' button for getting its own maps.
        private static void Challenge(string url,
                               Action<IdentityManager.Credential, Exception> callback,
                               IdentityManager.GenerateTokenOptions options)
        {
            callback(null, new NotImplementedException());
        }

        private void QueryText_KeyDown(object sender, KeyEventArgs e)
        {
            if (e.Key == Key.Enter)
            {
                DoSearch();
                e.Handled = true;
            }
        }

        private void BackToResults_Click(object sender, RoutedEventArgs e)
        {
            ResetVisibility();
        }

        private void DoSearch_Click(object sender, RoutedEventArgs e)
        {
            DoSearch();
        }

        #region Sign in/out
        private void ShowSignIn_Click(object sender, RoutedEventArgs e)
        {
            if (SignInButton.Content.ToString() == "Sign In")
            {
                ShadowGrid.Visibility = Visibility.Visible;
                LoginGrid.Visibility = Visibility.Visible;
            }
            else //Sign Out
            {
                ResultsListBox.ItemsSource = null;
                WebmapContent.Children.Clear();
                var crd = IdentityManager.Current.FindCredential(DEFAULT_SERVER_URL, portal.CurrentUser.UserName);
                IdentityManager.Current.RemoveCredential(crd);
                portal.InitializeAsync(portal.Url, (credential, exception) =>
                {
                    if (exception == null)
                    {
                        ResetVisibility();
                        SignInButton.Content = "Sign In";
                    }
                    else
                    {
                        MessageBox.Show("Error initializing portal : " + exception.Message);
                        ShadowGrid.Visibility = Visibility.Collapsed;
                    }
                });
            }
        }

        private void SignIn_Click(object sender, RoutedEventArgs e)
        {
            ResultsListBox.ItemsSource = null;
            WebmapContent.Children.Clear();
            IdentityManager.Current.GenerateCredentialAsync(DEFAULT_SERVER_URL, UserTextBox.Text, PasswordTextBox.Password, (crd, ex) =>
            {
                if (crd != null)
                {
                    IdentityManager.Current.AddCredential(crd);
                    portal.InitializeAsync(DEFAULT_SERVER_URL, (credential, exception) =>
                    {
                        if (credential != null && credential.CurrentUser != null)
                        {
                            ResetVisibility();
                            SignInButton.Content = "Sign Out";
                        }
                    });
                }
                else
                {
                    MessageBox.Show("Could not log in. Please check credentials.");
                    ShadowGrid.Visibility = Visibility.Collapsed;
                }
            });
        }     
        #endregion

        private void ResetVisibility()
        {
            WebmapContent.Visibility = Visibility.Collapsed;
            MapItemDetail.Visibility = System.Windows.Visibility.Collapsed;
            BackToResults.IsEnabled = false;
            LoginGrid.Visibility = Visibility.Collapsed;
            ShadowGrid.Visibility = Visibility.Collapsed;
        }

        private void DoSearch()
        {
            ResultsListBox.ItemsSource = null;
            ResetVisibility();
            if (QueryText == null || string.IsNullOrEmpty(QueryText.Text.Trim())) return;
            if (string.IsNullOrEmpty(portal.Url))
                portal.Url = DEFAULT_SERVER_URL;
            var queryString = string.Format("{0} type:\"web map\" NOT \"web mapping application\"", QueryText.Text.Trim());
            if (portal.CurrentUser != null && portal.ArcGISPortalInfo != null && !string.IsNullOrEmpty(portal.ArcGISPortalInfo.Id))
                queryString = string.Format("{0} and orgid: \"{1}\"", queryString, portal.ArcGISPortalInfo.Id);
            var searchParameters = new SearchParameters()
            {
                QueryString = queryString,
                SortField = "avgrating",
                SortOrder = QuerySortOrder.Descending,
                Limit = 20
            };
            portal.SearchItemsAsync(searchParameters, (result, error) =>
            {
                ResultsListBox.ItemsSource = result.Results;
            });
        }

        private void Image_MouseLeftButtonDown(object sender, MouseButtonEventArgs e)
        {
            ArcGISPortalItem portalItem = (sender as Image).DataContext as ArcGISPortalItem;

            BackToResults.IsEnabled = true;
            var document = new Document();
            document.GetMapCompleted += (a, b) =>
            {
                if (b.Error == null)
                {
                    WebmapContent.Children.Clear();
                    WebmapContent.Children.Add(b.Map);
                    WebmapContent.Visibility = Visibility.Visible;
                }

            };
            document.GetMapAsync(portalItem.Id);
        }

        private void ResultItem_MouseLeftButtonDown(object sender, MouseButtonEventArgs e)
        {
            MapItemDetail.DataContext = (sender as Grid).DataContext as ArcGISPortalItem;
            MapItemDetail.Visibility = System.Windows.Visibility.Visible;
        }

        private void Cancel_Click(object sender, RoutedEventArgs e)
        {
            LoginGrid.Visibility = Visibility.Collapsed;
            ShadowGrid.Visibility = Visibility.Collapsed;
        }
    }

    public class RatingConverter : IValueConverter
    {
        public object Convert(object value, Type targetType, object parameter, System.Globalization.CultureInfo culture)
        {
            //double ratingvalue = (double)value;
            //return ratingvalue / 5;
            double ratingvalue = System.Convert.ToInt32(value);
            return ratingvalue;
        }

        public object ConvertBack(object value, Type targetType, object parameter, System.Globalization.CultureInfo culture)
        {
            if (value.GetType() == targetType)
                return value;
            throw new NotImplementedException();
        }
    }

    public class HtmlToTextConverter : IValueConverter
    {
        private static string htmlLineBreakRegex = @"(<br */>)|(\[br */\])"; //@"<br(.)*?>";	// Regular expression to strip HTML line break tag
        private static string htmlStripperRegex = @"<(.|\n)*?>";	// Regular expression to strip HTML tags

        public static string GetHtmlToInlines(DependencyObject obj)
        {
            return (string)obj.GetValue(HtmlToInlinesProperty);
        }

        public static void SetHtmlToInlines(DependencyObject obj, string value)
        {
            obj.SetValue(HtmlToInlinesProperty, value);
        }

        // Using a DependencyProperty as the backing store for HtmlToInlinesProperty.  This enables animation, styling, binding, etc...
        public static readonly DependencyProperty HtmlToInlinesProperty =
          DependencyProperty.RegisterAttached("HtmlToInlines", typeof(string), typeof(HtmlToTextConverter), new PropertyMetadata(null, OnHtmlToInlinesPropertyChanged));

        private static void OnHtmlToInlinesPropertyChanged(DependencyObject d, DependencyPropertyChangedEventArgs e)
        {
            if (d is Paragraph)
            {
                if (e.NewValue == null)
                    (d as Paragraph).Inlines.Clear();
                else
                {
                    var splits = Regex.Split(e.NewValue as string, htmlLineBreakRegex, RegexOptions.IgnoreCase | RegexOptions.ECMAScript);
                    foreach (var line in splits)
                    {
                        string text = Regex.Replace(line, htmlStripperRegex, string.Empty);
                        Regex regex = new Regex(@"[ ]{2,}", RegexOptions.None);
                        if (!string.IsNullOrWhiteSpace(text))
                        {
                            text = regex.Replace(text, @" "); //Remove multiple spaces
                            text = text.Replace("&quot;", "\""); //Unencode quotes
                            text = text.Replace("&nbsp;", " "); //Unencode spaces
                            (d as Paragraph).Inlines.Add(new Run() { Text = text });
                            (d as Paragraph).Inlines.Add(new LineBreak());
                        }
                    }
                }
            }
        }

        private static string ToStrippedHtmlText(object input)
        {
            string retVal = string.Empty;

            if (input != null)
            {
                // Replace HTML line break tags with $LINEBREAK$:
                retVal = Regex.Replace(input as string, htmlLineBreakRegex, "", RegexOptions.IgnoreCase);
                // Remove the rest of HTML tags:
                retVal = Regex.Replace(retVal, htmlStripperRegex, string.Empty);
                //retVal.Replace("$LINEBREAK$", "\n");
                retVal = retVal.Trim();
            }

            return retVal;
        }

        public object Convert(object value, Type targetType, object parameter, System.Globalization.CultureInfo culture)
        {
            if (value is string)
                return ToStrippedHtmlText(value);
            return value;
        }

        public object ConvertBack(object value, Type targetType, object parameter, System.Globalization.CultureInfo culture)
        {
            throw new NotImplementedException();
        }
    }


}

VB.NET

Imports System
Imports System.Windows
Imports System.Windows.Controls
Imports System.Windows.Documents
Imports ESRI.ArcGIS.Client
Imports System.Text.RegularExpressions
Imports System.Windows.Data
Imports System.Windows.Input
Imports ESRI.ArcGIS.Client.WebMap
Imports ESRI.ArcGIS.Client.Portal

Namespace ArcGISWPFSDK

    Partial Public Class PortalSearch
        Inherits UserControl
        Private Const DEFAULT_SERVER_URL As String = "http://www.arcgis.com/sharing/rest"
        Private Const DEFAULT_TOKEN_URL As String = "https://www.arcgis.com/sharing/generateToken"

        Private portal As New ArcGISPortal() With {.Url = DEFAULT_SERVER_URL}

        Public Sub New()
            InitializeComponent()
            IdentityManager.Current.RegisterServers(New IdentityManager.ServerInfo() {New IdentityManager.ServerInfo() With {.ServerUrl = DEFAULT_SERVER_URL, .TokenServiceUrl = DEFAULT_TOKEN_URL}})

            IdentityManager.Current.ChallengeMethod = AddressOf Challenge

            ' Initial search on load
            DoSearch()
        End Sub

        ' Activate IdentityManager but don't accept any challenge.
        ' User has to use the 'SignIn' button for getting its own maps.
        Private Sub Challenge(ByVal url As String, ByVal callback As Action(Of IdentityManager.Credential, Exception), ByVal options As IdentityManager.GenerateTokenOptions)
            callback(Nothing, New NotImplementedException())
        End Sub

        Private Sub QueryText_KeyDown(ByVal sender As Object, ByVal e As KeyEventArgs)
            If e.Key = Key.Enter Then
                DoSearch()
                e.Handled = True
            End If
        End Sub

        Private Sub BackToResults_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
            ResetVisibility()
        End Sub

        Private Sub DoSearch_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
            DoSearch()
        End Sub

#Region "Sign in/out"
        Private Sub ShowSignIn_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
            If SignInButton.Content.ToString() = "Sign In" Then
                ShadowGrid.Visibility = Visibility.Visible
                LoginGrid.Visibility = Visibility.Visible
            Else 'Sign Out
                ResultsListBox.ItemsSource = Nothing
                WebmapContent.Children.Clear()
                Dim crd = IdentityManager.Current.FindCredential(DEFAULT_SERVER_URL, portal.CurrentUser.UserName)
                IdentityManager.Current.RemoveCredential(crd)
                portal.InitializeAsync(portal.Url, Sub(credential, exception)
                                                       If exception Is Nothing Then
                                                           ResetVisibility()
                                                           SignInButton.Content = "Sign In"
                                                       Else
                                                           MessageBox.Show("Error initializing portal : " & exception.Message)
                                                           ShadowGrid.Visibility = Visibility.Collapsed
                                                       End If
                                                   End Sub)
            End If
        End Sub

        Private Sub SignIn_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
            ResultsListBox.ItemsSource = Nothing
            WebmapContent.Children.Clear()
            IdentityManager.Current.GenerateCredentialAsync(DEFAULT_SERVER_URL, UserTextBox.Text, PasswordTextBox.Password, Sub(crd, ex)
                                                                                                                                If crd IsNot Nothing Then
                                                                                                                                    IdentityManager.Current.AddCredential(crd)
                                                                                                                                    portal.InitializeAsync(DEFAULT_SERVER_URL, Sub(credential, exception)
                                                                                                                                                                                   If credential IsNot Nothing AndAlso credential.CurrentUser IsNot Nothing Then
                                                                                                                                                                                       ResetVisibility()
                                                                                                                                                                                       SignInButton.Content = "Sign Out"
                                                                                                                                                                                   End If
                                                                                                                                                                               End Sub)
                                                                                                                                Else
                                                                                                                                    MessageBox.Show("Could not log in. Please check credentials.")
                                                                                                                                    ShadowGrid.Visibility = Visibility.Collapsed
                                                                                                                                End If
                                                                                                                            End Sub)
        End Sub
#End Region

        Private Sub ResetVisibility()
            WebmapContent.Visibility = Visibility.Collapsed
            MapItemDetail.Visibility = System.Windows.Visibility.Collapsed
            BackToResults.Visibility = System.Windows.Visibility.Collapsed
            LoginGrid.Visibility = Visibility.Collapsed
            ShadowGrid.Visibility = Visibility.Collapsed
        End Sub

        Private Sub DoSearch()
            ResultsListBox.ItemsSource = Nothing
            ResetVisibility()
            If QueryText Is Nothing OrElse String.IsNullOrEmpty(QueryText.Text.Trim()) Then
                Return
            End If
            If String.IsNullOrEmpty(portal.Url) Then
                portal.Url = DEFAULT_SERVER_URL
            End If
            Dim queryString = String.Format("{0} type:""web map"" NOT ""web mapping application""", QueryText.Text.Trim())
            If portal.CurrentUser IsNot Nothing AndAlso portal.ArcGISPortalInfo IsNot Nothing AndAlso (Not String.IsNullOrEmpty(portal.ArcGISPortalInfo.Id)) Then
                queryString = String.Format("{0} and orgid: ""{1}""", queryString, portal.ArcGISPortalInfo.Id)
            End If
            Dim searchParameters = New SearchParameters() With {.QueryString = queryString, .SortField = "avgrating", .SortOrder = QuerySortOrder.Descending, .Limit = 20}
            portal.SearchItemsAsync(searchParameters, Sub(result, err) ResultsListBox.ItemsSource = result.Results)
        End Sub

        Private Sub Image_MouseLeftButtonDown(ByVal sender As Object, ByVal e As MouseButtonEventArgs)
            Dim portalItem As ArcGISPortalItem = TryCast((TryCast(sender, Image)).DataContext, ArcGISPortalItem)

            BackToResults.Visibility = System.Windows.Visibility.Visible
            Dim document As New Document()
            AddHandler document.GetMapCompleted,
                Sub(a, b)
                    If b.Error Is Nothing Then
                        WebmapContent.Children.Clear()
                        WebmapContent.Children.Add(b.Map)
                        WebmapContent.Visibility = Visibility.Visible
                    End If
                End Sub
            document.GetMapAsync(portalItem.Id)
        End Sub

        Private Sub ResultItem_MouseLeftButtonDown(ByVal sender As Object, ByVal e As MouseButtonEventArgs)
            MapItemDetail.DataContext = TryCast((TryCast(sender, Grid)).DataContext, ArcGISPortalItem)
            MapItemDetail.Visibility = System.Windows.Visibility.Visible
        End Sub

        Private Sub Cancel_Click(ByVal sender As Object, ByVal e As RoutedEventArgs)
            LoginGrid.Visibility = Visibility.Collapsed
            ShadowGrid.Visibility = Visibility.Collapsed
        End Sub
    End Class

    Public Class RatingConverter
        Implements IValueConverter
        Public Function Convert(ByVal value As Object, ByVal targetType As Type, ByVal parameter As Object, ByVal culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.Convert
            Dim ratingvalue As Double = CDbl(value)
            Return ratingvalue / 5
        End Function

        Public Function ConvertBack(ByVal value As Object, ByVal targetType As Type, ByVal parameter As Object, ByVal culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.ConvertBack
            If value.GetType() Is targetType Then
                Return value
            End If
            Throw New NotImplementedException()
        End Function
    End Class

    Public Class HtmlToTextConverter
        Implements IValueConverter
        Private Shared htmlLineBreakRegex As String = "(<br */>)|(\[br */\])" '"<br(.)*?>"; // Regular expression to strip HTML line break tag
        Private Shared htmlStripperRegex As String = "<(.|\n)*?>" ' Regular expression to strip HTML tags

        Public Shared Function GetHtmlToInlines(ByVal obj As DependencyObject) As String
            Return CStr(obj.GetValue(HtmlToInlinesProperty))
        End Function

        Public Shared Sub SetHtmlToInlines(ByVal obj As DependencyObject, ByVal value As String)
            obj.SetValue(HtmlToInlinesProperty, value)
        End Sub

        ' Using a DependencyProperty as the backing store for HtmlToInlinesProperty.  This enables animation, styling, binding, etc...
        Public Shared ReadOnly HtmlToInlinesProperty As DependencyProperty = DependencyProperty.RegisterAttached("HtmlToInlines", GetType(String), GetType(HtmlToTextConverter), New PropertyMetadata(Nothing, AddressOf OnHtmlToInlinesPropertyChanged))

        Private Shared Sub OnHtmlToInlinesPropertyChanged(ByVal d As DependencyObject, ByVal e As DependencyPropertyChangedEventArgs)
            If TypeOf d Is Paragraph Then
                If e.NewValue Is Nothing Then
                    TryCast(d, Paragraph).Inlines.Clear()
                Else
                    Dim splits = Regex.Split(TryCast(e.NewValue, String), htmlLineBreakRegex, RegexOptions.IgnoreCase Or RegexOptions.ECMAScript)
                    For Each line As String In splits
                        Dim text As String = System.Text.RegularExpressions.Regex.Replace(line, htmlStripperRegex, String.Empty)
                        Dim regex As New Regex("[ ]{2,}", RegexOptions.None)
                        If Not String.IsNullOrWhiteSpace(text) Then
                            text = regex.Replace(text, " ") 'Remove multiple spaces
                            text = text.Replace("&quot;", """") 'Unencode quotes
                            text = text.Replace("&nbsp;", " ") 'Unencode spaces
                            TryCast(d, Paragraph).Inlines.Add(New Run() With {.Text = text})
                            TryCast(d, Paragraph).Inlines.Add(New LineBreak())
                        End If
                    Next line
                End If
            End If
        End Sub

        Private Shared Function ToStrippedHtmlText(ByVal input As Object) As String
            Dim retVal As String = String.Empty

            If input IsNot Nothing Then
                ' Replace HTML line break tags with $LINEBREAK$:
                retVal = Regex.Replace(TryCast(input, String), htmlLineBreakRegex, "", RegexOptions.IgnoreCase)
                ' Remove the rest of HTML tags:
                retVal = Regex.Replace(retVal, htmlStripperRegex, String.Empty)
                'retVal.Replace("$LINEBREAK$", "\n");
                retVal = retVal.Trim()
            End If

            Return retVal
        End Function

        Public Function Convert(ByVal value As Object, ByVal targetType As Type, ByVal parameter As Object, ByVal culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.Convert
            If TypeOf value Is String Then
                Return ToStrippedHtmlText(value)
            End If
            Return value
        End Function

        Public Function ConvertBack(ByVal value As Object, ByVal targetType As Type, ByVal parameter As Object, ByVal culture As System.Globalization.CultureInfo) As Object Implements IValueConverter.ConvertBack
            Throw New NotImplementedException()
        End Function
    End Class

End Namespace