if ($to eq 'yes') {
		my $read_marker_1 = '';
		my $read_marker_2 = '';
	} else {
		my $read_marker_1 = "<b>";
		my $read_marker_2 = "</b>";
	}

	my($f, $t) = split(/./, $folder);
	my $from_or_too    = ($in{f} eq 'sent') ? $username : &get_public_name($to);
	my $formatted_time = &DateFormat($date) . " " . &TimeFormat($time);

code:
[qb]

Code

	if ($in{f} ne 'sent') {
		if ("$read" eq "yes") {
			$read_marker_1 = '';
			$read_marker_2 = '';
		} else {		
			$read_marker_1 = "<b>";
			$read_marker_2 = "</b>";
		}
	}

	my($f, $t) = split(/./, $folder);
	
	$from_or_too = &get_public_name($from) if ($in{f} eq 'inbox');
	$from_or_too = &get_public_name($to) if ($in{f} eq 'sent');
	
	my $formatted_time = &DateFormat($date) . " " . &TimeFormat($time);
	
	if ($in{f} eq 'sent') {
		if ($from eq $user_number) {	
			if ($read_to eq "yes") {			
				$ReadReciept = $vars_wordlets{pm_sent_recip_read};				
			} elsif ($read_to eq "no") {			
				$ReadReciept = $vars_wordlets{pm_sent_recip_unread};			
			} else {
				$ReadReciept = $vars_wordlets{'pm_sent'};
			}
		} else {
			$ReadReciept = $vars_wordlets{'pm_received'};
		}
		
		$ReadReciept = qq|     <i>( $ReadReciept )</i> |;
		
	} # End If sent folder

[/qb]

$read_marker_1 $from_or_too $read_marker_2 $user_profile{15}

code:
[qb]

Code

$read_marker_1 $from_or_too $read_marker_2 $user_profile{15} $ReadReciept

[/qb]

# standard top of HTML page
print "$Header";

code:
[qb]

Code

$vars_wordlets{author_from_colon} = $vars_wordlets{author_to} if ($in{f} eq 'sent');

[/qb]

code:
[qb]

Code

 $TBT
<tr bgcolor="$vars_style{TableColorStrip}">
<td colspan="2">
<b><font size="$vars_style{TextSize}" face="$vars_style{FontFace}" color="$vars_style{TableStripTextColor}">
$vars_wordlets{my_profile_header}: $pubname
</font></b>
</td>
</tr>
 

[/qb]

Still a few bugs left...

A user can't delete custom folders, and if you create them it seems that the first message in your inbox will be replicated in the new folder. That is until you do anything to this "ghost" message (e.g. move, it delte it) where-apon the original message from the inbox will be moved/deleted and the "ghost" message will disappear.

quote:
[qb]
Also messages from the sent folder are delted straight-away (without being moved to the trash folder). I'm assuming that's intentional, although a warning to users would be a good idea (say by the delete button).

Other than that very cool so far [/qb]

		# add it 
		$total_count++; 
                push(@pms, "$count||^||$in{add_name}||^||$in{add_desc}||^||0||^||0"); 

code:
[qb]

Code

		# add it 
		$total_count++; 
                push(@pms, "$total_count||^||$in{add_name}||^||$in{add_desc}||^||0||^||0"); 

[/qb]

function Rename(num) {
	 var ti = prompt("$vars_wordlets{PM_rename_folder}", '');
	 if(ti && ti != null && ti != "null" && ti != "") {
		var di = prompt("What would you like this folder's description to be?", '');
	    document.RenameF.Num.value = num;
	    document.RenameF.Name.value = ti;
	    document.RenameF.Desc.value = di;
	    document.RenameF.submit();
	}
}

code:
[qb]

Code

function validateForm(theForm)
{
	if ( document.all.add_name.value.length == 0) {
		alert('Folder name cannot be blank');
		document.all.add_name.focus();
		return false;	
	}	
	return true;
}

[/qb]

<form name="replier" method="post" action="$vars_config{CGIURL}/ultimatebb.cgi">

code:
[qb]

Code

<form name="replier" method="post" action="$vars_config{CGIURL}/ultimatebb.cgi" onsubmit="return validateForm(this)" >

[/qb]

sub IN_Folder_Review_Delete_Move {

code:
[qb]

Code

sub getpublicnamee{
        my $public_names=$_[0];
        my $num;
        my $one;
        my @line;
        @all_member_nums;
        @all_members_list = grep(/d{8}/, &OpenFileAsArray("$vars_config{MembersPath}/memberslist.cgi"));
        my $count=0;
        foreach $one (@all_members_list) {
        @line = split (/|!!|/, $one);
              chomp($line[1]);
              push (@all_member_nums, $line[1]);
              $count++;
        }
        @this_member;
        my $found=0;
        my @all_members_list2;
        @all_member_nums2;
        @all_member_name;
        my $count2=0;
        if (-e "$vars_config{MembersPath}/publicmemberslist.cgi"){
                @all_members_list2 = grep(/d{8}/, &OpenFileAsArray("$vars_config{MembersPath}/publicmemberslist.cgi"));
                foreach $one (@all_members_list2) {
                        @line = split (/|!!|/, $one);
                        chomp($line[1]);
                        push (@all_member_nums2, $line[1]);
                        push (@all_member_name, $line[0]);
                        $count2++;
                }
        }
        if ($count2 != $count){
                my @public_name_file;
                THIS: foreach $one (@all_member_nums) {
                 # open profile
                        @this_member = &OpenProfile($one);
                        chomp($this_member[15]);
                        push (@public_name_file, "$this_member[15]|!!|$one");
                        if ($this_member[15] eq ''){
                                $this_member[15]=$this_member[0];
                        }
                        if  ($this_member[15] eq $public_names){
                                $num=$one;
                        }
                }
                &WriteFileAsArray("$vars_config{MembersPath}/publicmemberslist.cgi",@public_name_file);
                chmod(0777, "$vars_config{MembersPath}/publicmemberslist.cgi");
        }
        else
        {
               $count=0;
                THIS: foreach $one (@all_member_nums2) {
                        if  ($all_member_name[$count] eq $public_names){
                                $num=$one;
                        }
                        $count++;
                }
        }
        return $num;
}

[/qb]

                        $num = &GetUserNumber($in{username});

code:
[qb]

Code

                        $num=&getpublicnamee($in{username});

[/qb]

Actually its the .pl files in the template directory, not .cgi ... but it works great! Thanks!!

quote:
[qb]Originally posted by brett:
I 'think' i got that font thing done, but let me know if it's not right. Anyway, i added BassTeQ's fixes. Can't thank BassTeQ enough!
[/qb]