package WebGUI::Wobject::USS;

#-------------------------------------------------------------------
# WebGUI is Copyright 2001-2002 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);
our $namespace = "USS";
our $name = WebGUI::International::get(29,$namespace);

#-------------------------------------------------------------------
sub duplicate {
        my ($sth, $file, %row, $newSubmissionId, $w);
	tie %row, 'Tie::CPHash';
	$w = $_[0]->SUPER::duplicate($_[1],1);
        $w = WebGUI::Wobject::USS->new({wobjectId=>$w,namespace=>$namespace});
        $w->set({
		groupToContribute=>$_[0]->get("groupToContribute"),
		submissionsPerPage=>$_[0]->get("submissionsPerPage"),
		defaultStatus=>$_[0]->get("defaultStatus"),
		groupToApprove=>$_[0]->get("groupToApprove"),
		allowDiscussion=>$_[0]->get("allowDiscussion"),
		karmaPerSubmission=>$_[0]->get("karmaPerSubmission"),
		templateId=>$_[0]->get("templateId"),
		submissionTemplateId=>$_[0]->get("submissionTemplateId")
		});
        $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->get("wobjectId"),$newSubmissionId);
		$file = WebGUI::Attachment->new($row{attachment},$_[0]->get("wobjectId"),$row{USS_submissionId});
		$file->copy($w->get("wobjectId"),$newSubmissionId);
                WebGUI::SQL->write("insert into USS_submission values (".$w->get("wobjectId").", $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->get("wobjectId"),$row{USS_submissionId},$newSubmissionId);
        }
        $sth->finish;
}

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

#-------------------------------------------------------------------
sub set {
        $_[0]->SUPER::set($_[1],[qw(submissionsPerPage groupToContribute groupToApprove defaultStatus  
		submissionTemplateId templateId karmaPerSubmission allowDiscussion)]);
}

#-------------------------------------------------------------------
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,$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,$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,$namespace);
                WebGUI::MessageLog::completeEntry($session{form}{mlog});
                return WebGUI::Operation::www_viewMessageLog();
        } else {
                return WebGUI::Privilege::insufficient();
        }
}

#-------------------------------------------------------------------
sub www_edit {
	return WebGUI::Privilege::insufficient() unless (WebGUI::Privilege::canEditPage());
        my ($output, $f, $defaultStatus, $submissionsPerPage, $groupToApprove);
	$groupToApprove = $_[0]->get("groupToApprove") || 4;
	$submissionsPerPage = $_[0]->get("submissionsPerPage") || 50;
	$defaultStatus = $_[0]->get("defaultStatus") || "Approved";
        $output = helpIcon(1,$namespace);
	$output .= '<h1>'.WebGUI::International::get(18,$namespace).'</h1>';
	$f = WebGUI::HTMLForm->new;
	$f->template(
                -name=>"templateId",
                -value=>$_[0]->get("templateId"),
                -namespace=>$namespace,
                -label=>WebGUI::International::get(72,$namespace),
                -afterEdit=>'func=edit&wid='.$_[0]->get("wobjectId")
                );
        $f->template(
                -name=>"submissionTemplateId",
                -value=>$_[0]->get("submissionTemplateId"),
                -namespace=>$namespace."/Submission",
                -label=>WebGUI::International::get(73,$namespace),
                -afterEdit=>'func=edit&wid='.$_[0]->get("wobjectId")
                );
        $f->group("groupToApprove",WebGUI::International::get(1,$namespace),[$groupToApprove]);
        $f->group("groupToContribute",WebGUI::International::get(2,$namespace),[$_[0]->get("groupToContribute")]);
        $f->integer("submissionsPerPage",WebGUI::International::get(6,$namespace),$submissionsPerPage);
        $f->select("defaultStatus",{Approved=>status('Approved'),Denied=>status('Denied'),Pending=>status('Pending')}
		,WebGUI::International::get(563),[$defaultStatus]);
        if ($session{setting}{useKarma}) {
                $f->integer("karmaPerSubmission",WebGUI::International::get(30,$namespace),$_[0]->get("karmaPerSubmission"));
        } else {
                $f->hidden("karmaPerSubmission",$_[0]->get("karmaPerSubmission"));
        }
	$f->yesNo("allowDiscussion",WebGUI::International::get(48,$namespace),$_[0]->get("allowDiscussion"));
	$f->raw($_[0]->SUPER::discussionProperties);
	$output .= $_[0]->SUPER::www_edit($f->printRowsOnly);
        return $output;
}

#-------------------------------------------------------------------
sub www_editSave {
	return WebGUI::Privilege::insufficient() unless (WebGUI::Privilege::canEditPage());
	$_[0]->SUPER::www_editSave({
		submissionsPerPage=>$session{form}{submissionsPerPage},
		groupToContribute=>$session{form}{groupToContribute},
		groupToApprove=>$session{form}{groupToApprove},
		defaultStatus=>$session{form}{defaultStatus},
		karmaPerSubmission=>$session{form}{karmaPerSubmission},
		allowDiscussion=>$session{form}{allowDiscussion},
		templateId=>$session{form}{templateId},
		submissionTemplateId=>$session{form}{submissionTemplateId}
		});
        return "";
}

#-------------------------------------------------------------------
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->{convertCarriageReturns} = 1;
		$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,$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,$namespace),$submission->{title});
                $f->HTMLArea("content",WebGUI::International::get(31,$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,$namespace));
                } else {
			$f->file("image",WebGUI::International::get(32,$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,$namespace));
                } else {
			$f->file("attachment",WebGUI::International::get(33,$namespace));
                }
		$f->yesNo("convertCarriageReturns",WebGUI::International::get(34,$namespace),$submission->{convertCarriageReturns},
			'',' &nbsp; '.WebGUI::International::get(38,$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}{username};
			$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"),$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,$namespace);
		$hash{USS_submissionId} = $session{form}{sid};
		$hash{dateSubmitted} = time();
		$hash{content} = $session{form}{content};
		$hash{convertCarriageReturns} = $session{form}{convertCarriageReturns};
		$hash{status} = $_[0]->get("defaultStatus");
                $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 "");
		$_[0]->setCollateral("USS_submission", "USS_submissionId", \%hash, 0);
		if ($_[0]->get("defaultStatus") ne "Approved") {
			WebGUI::MessageLog::addInternationalizedEntry('',$_[0]->get("groupToApprove"),
				WebGUI::URL::page('func=viewSubmission&wid='.$_[0]->get("wobjectId").'&sid='.
				$session{form}{sid}),3,$namespace,'pending');
		}
                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,$namespace).'</a><br>'
        	.'<a href="'.WebGUI::URL::page().'">'.WebGUI::International::get(28,$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,$namespace);
	$var{"responses.label"} = WebGUI::International::get(57,$namespace);
	$var{title} = $_[0]->processMacros($_[0]->get("title"));
        $var{description} = $_[0]->processMacros($_[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,$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,$namespace);
	$var{"date.label"} = WebGUI::International::get(13,$namespace);
	$var{"by.label"} = WebGUI::International::get(21,$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},$session{setting}{filterContributedHTML});
                $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},$session{setting}{filterContributedHTML});
	$var{content} =~ s/\^\-\;//g;
	$var{content} =~ s/\n/\<br\>/g if ($submission->{convertCarriageReturns});
        $var{"user.label"} = WebGUI::International::get(21,$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,$namespace);
	$var{"date.epoch"} = $submission->{dateSubmitted};
	$var{"date.human"} = epochToHuman($submission->{dateSubmitted});
	$var{"status.label"} = WebGUI::International::get(14,$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,$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,$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,$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,$namespace);
        $var{"edit.url"} = WebGUI::URL::page('func=editSubmission&wid='.$session{form}{wid}.'&sid='.$session{form}{sid});
	$var{"edit.label"} = WebGUI::International::get(27,$namespace);
        $var{canChangeStatus} = ($submission->{status} ne "Approved" && 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,$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,$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();
	return WebGUI::Template::process(WebGUI::Template::get($_[0]->get("submissionTemplateId"),"USS/Submission"), \%var);
}



1;