UBB.Developers Forums UBB.classic V6 MultiHack Mods [6.3.x] [beta] PM Folders 1.0 Beta

	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]