You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
28 lines
633 B
28 lines
633 B
2 months ago
|
#!/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";
|
||
|
|
}
|