#!/usr/bin/perl
#
# $Id: upimages.pl,v 1.3 2006/01/23 21:39:30 ddoughty Exp $
#
# Source File: upimages.pl

require 'sitecfg.pl';
require 'ui.pl';
require 'qlib.pl';

&app_initialize;
print "Content-Type: text/html\n\n";
if (&get_session($FORM{'tid'})) {
	&LanguageSupportInit();
	&show_template("uploadpagehdr");
	print "<font size=1>\n";
	$uploadpath = $FORM{'path'};
	@uploaded_files = split(/::/, $FORM{'fieldlist'});
	for $qid (@uploaded_files) {
		if (&put_question_image($SESSION{'clid'}, $qid)) {
			print "UPLOADED $qid<BR>\n";
		}
	}
	print "</font>\n";
	print "<H3>Images uploaded.</H3>\n";
	print "</BODY>\n</HTML>\n";
}