##

$favtitle = param('favtitle'); 

if ($favadd && $username_valid == 1) {


    if ($favtitle && $favlink) {
	
$favtitle =~ s/\\'/\'/g;

        $favorites = $favorites . "$favtitle|||$favlink|||$num~~~";
        $oldtitle = $favtitle;
        $oldlink = $favlink;

        @favs = split /~~~/,$favorites;
        if (@favs > $maxfavs) {

			
            print <

Max number reached!

Close Window
HTML

        } else {

            @sorted = sort {uc($a) cmp uc($b)} @favs;
            $favorites = "";
            foreach (@sorted){
                ($favtitle,$favlink,$num) = split /\|\|\|/,$_;
                $favorites = $favorites . $favtitle . "|||" . $favlink . "|||" . $num . "~~~";
            }

			
            # update existing record
            $SQL = "UPDATE $regtable SET favorites='$favorites' WHERE ID='$ID'";
            &Do_SQL;

            # get favorites
            $favslist = "";
            $rowcolor = "#EEEEEE";
            @favs = split /~~~/,$favorites;
            foreach (@favs){
                ($favtitle,$favlink,$num) = split /\|\|\|/,$_;
                $favslist = $favslist . "$favtitle";
                # alternate grey and white bar
                if ($rowcolor eq "#EEEEEE") {
                    $rowcolor = "#FFFFFF";
                } else {
                    $rowcolor = "#EEEEEE";
                } # end if ($rowcolor eq "#EEEEEE")
            }
            $favslist = "".$favslist." My Saves:
";


            print <##

$favtitle =~ s/\\'/\'/g;