# The URL itself is queried from the database above here,
# but that isn't important for this particular explanation
#
# The URL itself is stored in $url_uri from bind_col()
while ($sth->fetch) {
        my $substr_url_uri;  
        $substr_url_uri = length ($url_uri) > 60 
                ? substr($url_uri,0,60) . "..."
                : $url_uri;

        print br(), "\n"x3,    
        start_div({-class=>'urlbox'}), 
        span({-class=>'urlinfo'},
                b("$url_name"), br(),  
                br(), "Current category:",
                        start_span({-class=>'catname'}),
                                $category_name,
                        end_span(), br()x2,

                start_span({-class=>'catlist'}),
                        "Move to new category:", br(),
                        popup_menu("category", \@categories),
        end_span(),
        ), end_div(),  

start_div({-class=>'urlprev'}),
        start_iframe({-src    => "$url_uri",
                -width        => '170',
                -height       => '170',
                -scrolling    => 'no',
                -marginwidth  => '1',
                -marginheight => '1', 
                -frameborder  => '0',}),
        end_iframe,
        end_div(),
}
$sth->finish;