package WebGUI::Wobject::USS;

#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2003 Plain Black LLC.
#-------------------------------------------------------------------
# Please read the legal notices (docs/legal.txt) and the license
# (docs/license.txt) that came with this distribution before using
# this software.
#-------------------------------------------------------------------
# http://www.plainblack.com                     info@plainblack.com
#-------------------------------------------------------------------

use strict;
use Tie::CPHash;
use WebGUI::Attachment;
use WebGUI::DateTime;
use WebGUI::HTML;
use WebGUI::HTMLForm;
use WebGUI::Icon;
use WebGUI::International;
use WebGUI::MessageLog;
use WebGUI::Operation;
use WebGUI::Paginator;
use WebGUI::Privilege;
use WebGUI::Session;
use WebGUI::Template;
use WebGUI::SQL;
use WebGUI::URL;
use WebGUI::User;
use WebGUI::Utility;
use WebGUI::Wobject;

our @ISA = qw(WebGUI::Wobject);

#-------------------------------------------------------------------
sub duplicate {
        my ($sth, $file, %row, $newSubmissionId, $w);
	tie %row, 'Tie::CPHash';
	$w = $_[0]->SUPER::duplicate($_[1],1);
        $sth = WebGUI::SQL->read("select * from USS_submission where wobjectId=".$_[0]->get("wobjectId"));
        while (%row = $sth->hash) {
                $newSubmissionId = getNextId("USS_submissionId");
		$file = WebGUI::Attachment->new($row{image},$_[0]->get("wobjectId"),$row{USS_submissionId});
		$file->copy($w,$newSubmissionId);
		$file = WebGUI::Attachment->new($row{attachment},$_[0]->get("wobjectId"),$row{USS_submissionId});
		$file->copy($w,$newSubmissionId);
                WebGUI::SQL->write("insert into USS_submission values (".$w.", $newSubmissionId, ".
			quote($row{title}).", $row{dateSubmitted}, ".quote($row{username}).", '$row{userId}', ".quote($row{content}).", ".
			quote($row{image}).", ".quote($row{attachment}).", '$row{status}', '$row{convertCarriageReturns}', 
			'$row{views}')");
		WebGUI::Discussion::duplicate($_[0]->get("wobjectId"),$w,$row{USS_submissionId},$newSubmissionId);
        }
        $sth->finish;
}

#-------------------------------------------------------------------
sub name {
        return WebGUI::International::get(29,$_[0]->get("namespace"));
}

#-------------------------------------------------------------------
sub new {
        my $class = shift;
        my $property = shift;
        my $self = WebGUI::Wobject->new(
                -properties=>$property,
		-useDiscussion=>1,
                -extendedProperties=>{
			submissionsPerPage=>{
				defaultValue=>50
				},
			groupToContribute=>{
				defaultValue=>2
				},
 			groupToApprove=>{
				defaultValue=>4
				},
 			defaultStatus=>{
				defaultValue=>"Approved"
				},
			submissionTemplateId=>{
				defaultValue=>1
				}, 
			templateId=>{
				defaultValue=>1 
				},
			karmaPerSubmission=>{
				defaultValue=>0
				},
			filterContent=>{
				defaultValue=>"javascript"
				}
			}
                );
        bless $self, $class;
}

#-------------------------------------------------------------------
sub purge {
        WebGUI::SQL->write("delete from USS_submission where wobjectId=".$_[0]->get("wobjectId"));
	$_[0]->SUPER::purge();
}

#-------------------------------------------------------------------
sub status {
        if ($_[0] eq "Approved") {
                return WebGUI::International::get(560);
        } elsif ($_[0] eq "Denied") {
                return WebGUI::International::get(561);
        } elsif ($_[0] eq "Pending") {
                return WebGUI::International::get(562);
        }
}

#-------------------------------------------------------------------
sub www_approveSubmission {
	my (%submission);
	tie %submission, 'Tie::CPHash';
        if (WebGUI::Privilege::isInGroup(4,$session{user}{userId}) || WebGUI::Privilege::isInGroup(3,$session{user}{userId})) {
		%submission = WebGUI::SQL->quickHash("select * from USS_submission where USS_submissionId=$session{form}{sid}");
                WebGUI::SQL->write("update USS_submission set status='Approved' where USS_submissionId=$session{form}{sid}");
		WebGUI::MessageLog::addInternationalizedEntry($submission{userId},'',WebGUI::URL::page('func=viewSubmission&wid='.
			$session{form}{wid}.'&sid='.$session{form}{sid}),4,$_[0]->get("namespace"));
		WebGUI::MessageLog::completeEntry($session{form}{mlog});
                return WebGUI::Operation::www_viewMessageLog();
        } else {
                return WebGUI::Privilege::insufficient();
        }
}

#-------------------------------------------------------------------
sub www_deleteFile {
	my ($owner) = WebGUI::SQL->quickArray("select userId from USS_submission where USS_submissionId=$session{form}{sid}");
        if ($owner == $session{user}{userId} || WebGUI::Privilege::isInGroup($_[0]->get("groupToApprove"))) {
		$_[0]->setCollateral("USS_submission","USS_submissionId",{
			$session{form}{file}=>'',
		 	USS_submissionId=>$session{form}{sid}
			},0,0);
                return $_[0]->www_editSubmission();
        } else {
                return WebGUI::Privilege::insufficient();
        }
}

#-------------------------------------------------------------------
sub www_deleteSubmission {
	my ($owner);
	($owner) = WebGUI::SQL->quickArray("select userId from USS_submission where USS_submissionId=$session{form}{sid}");
        if ($owner == $session{user}{userId} || WebGUI::Privilege::isInGroup($_[0]->get("groupToApprove"))) {
		return $_[0]->confirm(WebGUI::International::get(17,$_[0]->get("namespace")),
			WebGUI::URL::page('func=deleteSubmissionConfirm&wid='.$session{form}{wid}.'&sid='.$session{form}{sid}));
        } else {
                return WebGUI::Privilege::insufficient();
        }
}

#-------------------------------------------------------------------
sub www_deleteSubmissionConfirm {
        my ($output, $owner, $file);
	($owner) = WebGUI::SQL->quickArray("select userId from USS_submission where USS_submissionId=$session{form}{sid}");
        if ($owner == $session{user}{userId} || WebGUI::Privilege::isInGroup($_[0]->get("groupToApprove"))) {
		$_[0]->deleteCollateral("USS_submission","USS_submissionId",$session{form}{sid});
		$file = WebGUI::Attachment->new("",$session{form}{wid},$session{form}{sid});
		$file->deleteNode;
                return "";
        } else {
                return WebGUI::Privilege::insufficient();
        }
}

#-------------------------------------------------------------------
sub www_denySubmission {
	my (%submission);
	tie %submission, 'Tie::CPHash';
        if (WebGUI::Privilege::isInGroup(4,$session{user}{userId}) || WebGUI::Privilege::isInGroup(3,$session{user}{userId})) {
		%submission = WebGUI::SQL->quickHash("select * from USS_submission where USS_submissionId=$session{form}{sid}");
                WebGUI::SQL->write("update USS_submission set status='Denied' where USS_submissionId=$session{form}{sid}");
                WebGUI::MessageLog::addInternationalizedEntry($submission{userId},'',WebGUI::URL::page('func=viewSubmission&wid='.
			$session{form}{wid}.'&sid='.$session{form}{sid}),5,$_[0]->get("namespace"));
                WebGUI::MessageLog::completeEntry($session{form}{mlog});
                return WebGUI::Operation::www_viewMessageLog();
        } else {
                return WebGUI::Privilege::insufficient();
        }
}

#-------------------------------------------------------------------
sub www_edit {
	my $layout = WebGUI::HTMLForm->new;
	my $privileges = WebGUI::HTMLForm->new;
	my $properties = WebGUI::HTMLForm->new;
	$layout->template(
                -name=>"templateId",
                -value=>$_[0]->getValue("templateId"),
                -namespace=>$_[0]->get("namespace"),
                -label=>WebGUI::International::get(72,$_[0]->get("namespace")),
                -afterEdit=>'func=edit&wid='.$_[0]->get("wobjectId")
                );
        $layout->template(
                -name=>"submissionTemplateId",
                -value=>$_[0]->getValue("submissionTemplateId"),
                -namespace=>$_[0]->get("namespace")."/Submission",
                -label=>WebGUI::International::get(73,$_[0]->get("namespace")),
                -afterEdit=>'func=edit&wid='.$_[0]->get("wobjectId")
                );
        $privileges->group(
		-name=>"groupToApprove",
		-label=>WebGUI::International::get(1,$_[0]->get("namespace")),
		-value=>[$_[0]->getValue("groupToApprove")]
		);
        $privileges->group(
		-name=>"groupToContribute",
		-label=>WebGUI::International::get(2,$_[0]->get("namespace")),
		-value=>[$_[0]->getValue("groupToContribute")]
		);
        $layout->integer(
		-name=>"submissionsPerPage",
		-label=>WebGUI::International::get(6,$_[0]->get("namespace")),
		-value=>$_[0]->getValue("submissionsPerPage")
		);
        $privileges->selectList(
		-name=>"defaultStatus",
		-options=>{
			Approved=>status('Approved'),
			Denied=>status('Denied'),
			Pending=>status('Pending')
			},
		-label=>WebGUI::International::get(563),
		-value=>[$_[0]->getValue("defaultStatus")]
		);
        if ($session{setting}{useKarma}) {
                $properties->integer(
			-name=>"karmaPerSubmission",
			-label=>WebGUI::International::get(30,$_[0]->get("namespace")),
			-value=>$_[0]->getValue("karmaPerSubmission")
			);
        } else {
                $properties->hidden("karmaPerSubmission",$_[0]->getValue("karmaPerSubmission"));
        }
	$layout->filterContent(
		-value=>$_[0]->getValue("filterContent")
		);
	return $_[0]->SUPER::www_edit(
		-layout=>$layout->printRowsOnly,
		-privileges=>$privileges->printRowsOnly,
		-properties=>$properties->printRowsOnly,
		-headingId=>18,
		-helpId=>1
		);
}


#-------------------------------------------------------------------
sub www_editSubmission {
        my ($output, $submission, $f, @submission, $sth);
        $submission = $_[0]->getCollateral("USS_submission","USS_submissionId",$session{form}{sid});
	if ($submission->{USS_submissionId} eq "new") {
		$submission->{userId} = $session{user}{userId};
	}
        if (WebGUI::Privilege::isInGroup($_[0]->get("groupToContribute")) || $submission->{userId} == $session{user}{userId} || WebGUI::Privilege::isInGroup($_[0]->get("groupToApprove"))) {
                $output = '<h1>'.WebGUI::International::get(19,$_[0]->get("namespace")).'</h1>';
		$f = WebGUI::HTMLForm->new;
		if ($session{user}{userId} == 1 && $submission->{USS_submissionId} eq "new") {
                        $f->text("visitorName",WebGUI::International::get(438));
                }
                $f->hidden("wid",$session{form}{wid});
                $f->hidden("sid",$submission->{USS_submissionId});
                $f->hidden("func","editSubmissionSave");
                $f->text("title",WebGUI::International::get(35,$_[0]->get("namespace")),$submission->{title});
                $f->HTMLArea("body",WebGUI::International::get(31,$_[0]->get("namespace")),$submission->{content});
                if ($submission->{image} ne "") {
			$f->readOnly('<a href="'.WebGUI::URL::page('func=deleteFile&file=image&wid='.$session{form}{wid}.'&sid='.$submission->{USS_submissionId}).'">'
				.WebGUI::International::get(391).'</a>',WebGUI::International::get(32,$_[0]->get("namespace")));
                } else {
			$f->file("image",WebGUI::International::get(32,$_[0]->get("namespace")));
                }
                if ($submission->{attachment} ne "") {
			$f->readOnly('<a href="'.WebGUI::URL::page('func=deleteFile&file=attachment&wid='.$session{form}{wid}
				.'&sid='.$submission->{USS_submissionId}).'">'
				.WebGUI::International::get(391).'</a>',WebGUI::International::get(33,$_[0]->get("namespace")));
                } else {
			$f->file("attachment",WebGUI::International::get(33,$_[0]->get("namespace")));
                }
		$f->yesNo("convertCarriageReturns",WebGUI::International::get(34,$_[0]->get("namespace")),$submission->{convertCarriageReturns},
			'',' &nbsp; '.WebGUI::International::get(38,$_[0]->get("namespace")));
		$f->submit;
		$output .= $f->print;
                return $output;
        } else {
                return WebGUI::Privilege::insufficient();
        }
        return $output;
}

#-------------------------------------------------------------------
sub www_editSubmissionSave {
	my ($submission, %hash, $file, $u);
	$submission = $_[0]->getCollateral("USS_submission","USS_submissionId",$session{form}{sid});
        if ($submission->{userId} == $session{user}{userId} 
		|| ($submission->{USS_submissionId} eq "new" 
		&& WebGUI::Privilege::isInGroup($_[0]->get("groupToContribute"))) 
		|| WebGUI::Privilege::isInGroup($_[0]->get("groupToApprove"))) {
                if ($session{form}{sid} eq "new") {
			$hash{username} = $session{form}{visitorName} || $session{user}{alias};
			$hash{userId} = $session{user}{userId};
			$hash{USS_submissionId} = "new";
			if ($session{setting}{useKarma}) {
                        	$u = WebGUI::User->new($session{user}{userId});
                        	$u->karma($_[0]->get("karmaPerSubmission"),$_[0]->get("namespace")." (".$_[0]->get("wobjectId")
                                	."/".$session{form}{sid}.")","User submission.");
			}
			$session{form}{sid} = $_[0]->setCollateral("USS_submission","USS_submissionId",\%hash,0);
			%hash = ();
                }
                $hash{title} = WebGUI::HTML::filter($session{form}{title},'all') || WebGUI::International::get(16,$_[0]->get("namespace"));
		$hash{USS_submissionId} = $session{form}{sid};
		$hash{dateSubmitted} = time();
		$hash{content} = $session{form}{body};
		$hash{convertCarriageReturns} = $session{form}{convertCarriageReturns};
                $file = WebGUI::Attachment->new("",$session{form}{wid},$session{form}{sid});
		$file->save("image");
		$hash{image} = $file->getFilename if ($file->getFilename ne "");
                $file = WebGUI::Attachment->new("",$session{form}{wid},$session{form}{sid});
		$file->save("attachment");
		$hash{attachment} = $file->getFilename if ($file->getFilename ne "");
		unless ($_[0]->get("defaultStatus") eq "Approved") {
			unless (WebGUI::Privilege::isInGroup($_[0]->get("groupToApprove")) ) {
				$hash{status} = $_[0]->get("defaultStatus");
				WebGUI::MessageLog::addInternationalizedEntry('',$_[0]->get("groupToApprove"),
					WebGUI::URL::page('func=viewSubmission&wid='.$_[0]->get("wobjectId").'&sid='.
					$session{form}{sid}),3,$_[0]->get("namespace"),'pending');
			} else {
				$hash{status} = "Approved";
			}
		}
		$_[0]->setCollateral("USS_submission", "USS_submissionId", \%hash, 0);
                return $_[0]->www_viewSubmission();
        } else {
                return WebGUI::Privilege::insufficient();
        }
}

#-------------------------------------------------------------------
sub www_showMessage {
	return $_[0]->SUPER::www_showMessage('<a href="'.WebGUI::URL::page('func=viewSubmission&wid='.$session{form}{wid}
		.'&sid='.$session{form}{sid}).'">'.WebGUI::International::get(45,$_[0]->get("namespace")).'</a><br>'
        	.'<a href="'.WebGUI::URL::page().'">'.WebGUI::International::get(28,$_[0]->get("namespace")).'</a><br>');
}

#-------------------------------------------------------------------
sub www_view {
	my (%var, $row, $page, $p, $constraints, @submission, @content, $image, $i, $numResults, $thumbnail, $responses);
	$numResults = $_[0]->get("submissionsPerPage");
	$var{"readmore.label"} = WebGUI::International::get(46,$_[0]->get("namespace"));
	$var{"responses.label"} = WebGUI::International::get(57,$_[0]->get("namespace"));
	$var{title} = $_[0]->get("title");
        $var{description} = $_[0]->get("description");
	$var{canPost} = WebGUI::Privilege::isInGroup($_[0]->get("groupToContribute"));
        $var{"post.url"} = WebGUI::URL::page('func=editSubmission&sid=new&wid='.$_[0]->get("wobjectId"));
	$var{"post.label"} = WebGUI::International::get(20,$_[0]->get("namespace"));
        $var{"search.label"} = WebGUI::International::get(364);
	$var{"search.Form"} = WebGUI::Search::form({wid=>$_[0]->get("wobjectId"),func=>'view',search=>1});
	$var{"search.url"} = WebGUI::Search::toggleURL();
	if ($session{scratch}{search}) {
                $numResults = $session{scratch}{numResults};
       		$constraints = WebGUI::Search::buildConstraints([qw(username title content)]);
	}
	if ($constraints ne "") {
        	$constraints = "status='Approved' and ".$constraints;
	} else {
		$constraints = "(status='Approved' or userId=$session{user}{userId})";
	}
	$var{"title.label"} = WebGUI::International::get(99);
	$var{"thumbnail.label"} = WebGUI::International::get(52,$_[0]->get("namespace"));
	$var{"date.label"} = WebGUI::International::get(13,$_[0]->get("namespace"));
	$var{"by.label"} = WebGUI::International::get(21,$_[0]->get("namespace"));
	$p = WebGUI::Paginator->new(WebGUI::URL::page('func=view&wid='.$_[0]->get("wobjectId")),[],$numResults);
	$p->setDataByQuery("select USS_submissionId, content, title, userId, status, image, dateSubmitted, username
		from USS_submission where wobjectId=".$_[0]->get("wobjectId")." and $constraints order by dateSubmitted desc");
	$page = $p->getPageData;
	$i = 0;
	foreach $row (@$page) {
		$page->[$i]->{content} = WebGUI::HTML::filter($page->[$i]->{content},$_[0]->get("filterContent"));
                $page->[$i]->{content} =~ s/\n/\^\-\;/ unless ($page->[$i]->{content} =~ m/\^\-\;/);
                @content = split(/\^\-\;/,$page->[$i]->{content});
                if ($page->[$i]->{image} ne "") {
                        $image = WebGUI::Attachment->new($page->[$i]->{image},$_[0]->get("wobjectId"),$page->[$i]->{USS_submissionId});
                        $thumbnail = $image->getThumbnail;
                } else {
                        $thumbnail = "";
                }
		($responses) = WebGUI::SQL->quickArray("select count(*) from discussion 
			where wobjectId=".$_[0]->get("wobjectId")." and subId=".$row->{USS_submissionId});
                push (@submission,{
                        "submission.id"=>$page->[$i]->{USS_submissionId},
                        "submission.url"=>WebGUI::URL::page('wid='.$_[0]->get("wobjectId").'&func=viewSubmission&sid='.$page->[$i]->{USS_submissionId}),
                        "submission.content"=>$content[0],
			"submission.responses"=>$responses,
                        "submission.title"=>$page->[$i]->{title},
                        "submission.userId"=>$page->[$i]->{userId},
                        "submission.status"=>$page->[$i]->{status},
                        "submission.thumbnail"=>$thumbnail,
                        "submission.date"=>epochToHuman($page->[$i]->{dateSubmitted}),
                        "submission.currentUser"=>($session{user}{userId} == $page->[$i]->{userId}),
                        "submission.username"=>$page->[$i]->{username},
                        "submission.userProfile"=>WebGUI::URL::page('op=viewProfile&uid='.$page->[$i]->{userId}),
                        "submission.secondColumn"=>(($i+1)%2==0),
                        "submission.thirdColumn"=>(($i+1)%3==0),
                        "submission.fourthColumn"=>(($i+1)%4==0),
                        "submission.fifthColumn"=>(($i+1)%5==0),
                        });
		$i++;
	}
	$var{submissions_loop} = \@submission;
	$var{firstPage} = $p->getFirstPageLink;
	$var{lastPage} = $p->getLastPageLink;
	$var{nextPage} = $p->getNextPageLink;
	$var{pageList} = $p->getPageLinks;
	$var{previousPage} = $p->getPreviousPageLink;
	$var{multiplePages} = ($p->getNumberOfPages > 1);
	return $_[0]->processTemplate($_[0]->get("templateId"),\%var);
}

#-------------------------------------------------------------------
sub www_viewSubmission {
	return "" unless ($session{form}{sid});
	my ($output, $submission, $file, @data, %var, $replies);
	$submission = $_[0]->getCollateral("USS_submission","USS_submissionId",$session{form}{sid});
	return $_[0]->www_view unless ($submission->{USS_submissionId});
	WebGUI::SQL->write("update USS_submission set views=views+1 where USS_submissionId=$session{form}{sid}");
	$var{title} = $submission->{title};
	$var{content} = WebGUI::HTML::filter($submission->{content},$_[0]->get("filterContent"));
	$var{content} =~ s/\^\-\;//g;
	$var{content} =~ s/\n/\<br\>/g if ($submission->{convertCarriageReturns});
        $var{"user.label"} = WebGUI::International::get(21,$_[0]->get("namespace"));
	$var{"user.Profile"} = WebGUI::URL::page('op=viewProfile&uid='.$submission->{userId});
	$var{"user.Id"} = $submission->{userId};
	$var{"user.username"} = $submission->{username};
	$var{"date.label"} = WebGUI::International::get(13,$_[0]->get("namespace"));
	$var{"date.epoch"} = $submission->{dateSubmitted};
	$var{"date.human"} = epochToHuman($submission->{dateSubmitted});
	$var{"status.label"} = WebGUI::International::get(14,$_[0]->get("namespace"));
	$var{"status.status"} = status($submission->{status});
	$var{"views.label"} = WebGUI::International::get(514);
	$var{"views.count"} = $submission->{views};
        $var{canPost} = WebGUI::Privilege::isInGroup($_[0]->get("groupToContribute"));
        $var{"post.url"} = WebGUI::URL::page('func=editSubmission&sid=new&wid='.$_[0]->get("wobjectId"));
        $var{"post.label"} = WebGUI::International::get(20,$_[0]->get("namespace"));
	@data = WebGUI::SQL->quickArray("select max(USS_submissionId) from USS_submission 
        	where wobjectId=".$_[0]->get("wobjectId")." and USS_submissionId<$submission->{USS_submissionId}
		and (userId=$submission->{userId} or status='Approved')");
        $var{"previous.more"} = ($data[0] ne "");
       	$var{"previous.url"} = WebGUI::URL::page('func=viewSubmission&sid='.$data[0].'&wid='.$session{form}{wid});
	$var{"previous.label"} = WebGUI::International::get(58,$_[0]->get("namespace"));
        @data = WebGUI::SQL->quickArray("select min(USS_submissionId) from USS_submission 
                where wobjectId=$submission->{wobjectId} and USS_submissionId>$submission->{USS_submissionId}
		and (userId=$submission->{userId} or status='Approved')");
        $var{"next.more"} = ($data[0] ne "");
        $var{"next.url"} = WebGUI::URL::page('func=viewSubmission&sid='.$data[0].'&wid='.$session{form}{wid});
	$var{"next.label"} = WebGUI::International::get(59,$_[0]->get("namespace"));
        $var{canEdit} = ($submission->{userId} == $session{user}{userId} || WebGUI::Privilege::isInGroup($_[0]->get("groupToApprove")));
        $var{"delete.url"} = WebGUI::URL::page('func=deleteSubmission&wid='.$session{form}{wid}.'&sid='.$session{form}{sid});
	$var{"delete.label"} = WebGUI::International::get(37,$_[0]->get("namespace"));
        $var{"edit.url"} = WebGUI::URL::page('func=editSubmission&wid='.$session{form}{wid}.'&sid='.$session{form}{sid});
	$var{"edit.label"} = WebGUI::International::get(27,$_[0]->get("namespace"));
        $var{canChangeStatus} = WebGUI::Privilege::isInGroup($_[0]->get("groupToApprove"),$session{user}{userId});
        $var{"approve.url"} = WebGUI::URL::page('func=approveSubmission&wid='.$session{form}{wid}.'&sid='.$session{form}{sid}.'&mlog='.$session{form}{mlog});
	$var{"approve.label"} = WebGUI::International::get(572);
        $var{"leave.url"} = WebGUI::URL::page('op=viewMessageLog');
	$var{"leave.label"} = WebGUI::International::get(573);
        $var{"deny.url"} = WebGUI::URL::page('func=denySubmission&wid='.$session{form}{wid}.'&sid='.$session{form}{sid}.'&mlog='.$session{form}{mlog});
	$var{"deny.label"} = WebGUI::International::get(574);
	$var{"canReply"} = ($_[0]->get("allowDiscussion"));
	$var{"reply.url"} = WebGUI::URL::page('func=post&mid=new&wid='.$_[0]->get("wobjectId").'&sid='.$session{form}{sid});
	$var{"reply.label"} = WebGUI::International::get(47,$_[0]->get("namespace"));
	$var{"search.url"} = WebGUI::Search::toggleURL();
	$var{"search.label"} = WebGUI::International::get(364);
        $var{"back.url"} = WebGUI::URL::page();
	$var{"back.label"} = WebGUI::International::get(28,$_[0]->get("namespace"));
	if ($submission->{image} ne "") {
		$file = WebGUI::Attachment->new($submission->{image},$session{form}{wid},$session{form}{sid});
		$var{"image.url"} = $file->getURL;
		$var{"image.thumbnail"} = $file->getThumbnail;
	}
	if ($submission->{attachment} ne "") {
		$file = WebGUI::Attachment->new($submission->{attachment},$session{form}{wid},$session{form}{sid});
		$var{"attachment.box"} = $file->box;
		$var{"attachment.url"} = $file->getURL;
		$var{"attachment.icon"} = $file->getIcon;
		$var{"attachment.name"} = $file->getFilename;
        }		
	$var{"replies"} = WebGUI::Discussion::showThreads($_[0]);
	return WebGUI::Template::process(WebGUI::Template::get($_[0]->get("submissionTemplateId"),"USS/Submission"), \%var);
}



1;