Index: openacs-4/packages/assessment/www/admin/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/index.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/admin/index.adp	21 Sep 2004 17:35:40 -0000	1.1
@@ -0,0 +1,6 @@
+<master>
+<property name="title">@title;noquote@</property>
+<property name="context">@context;noquote@</property>
+
+<formtemplate id="form_upload_file"></formtemplate>
+</master>
Index: openacs-4/packages/assessment/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/index.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/admin/index.tcl	21 Sep 2004 17:35:40 -0000	1.1
@@ -0,0 +1,17 @@
+ad_page_contract {
+    @author eperez@it.uc3m.es
+    @creation-date 2004-09-21
+} {
+} -properties {
+    zipfile
+    context:onevalue
+}
+
+set title "[_ assessment.Administration]"
+set context {}
+
+ad_form -name form_upload_file -action {unzip-file} -html {enctype multipart/form-data}  -form {
+    {zipfile:file {label "Import QTI ZIP File:"}}
+}
+
+ad_return_template
Index: openacs-4/packages/assessment/www/admin/show-items.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/show-items.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/admin/show-items.adp	21 Sep 2004 17:35:40 -0000	1.1
@@ -0,0 +1,35 @@
+<master>
+<property name="title">Assessment</property>
+<property name="context">@context;noquote@</property>
+
+<formtemplate id="show_item_form">
+	<table border="1">
+		<br>&nbsp;&nbsp;
+		<b>Items</b>
+		<multiple name="items">
+			<tr>
+				<td valign="top">@items.rownum@.-</td>	
+				<td colspan="3">
+					<blockquote>@items.title@
+						<if @items.presentation_type@ in radiobutton checkbox>
+							<br/>
+							<br/>
+							<formgroup id="response_to_item.@items.as_item_id@">
+								@formgroup.widget;noquote@
+								@formgroup.label;noquote@
+								<br/>
+							</formgroup>
+						</if>
+						<else>
+							<formwidget id="response_to_item.@items.as_item_id@">
+						</else>
+					</blockquote>
+				</td>
+			</tr>
+		</multiple>
+	</table>
+</formtemplate>
+
+<br>
+<a href="upload-file">Upload files</a>
+</master>
Index: openacs-4/packages/assessment/www/admin/show-items.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/show-items.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/admin/show-items.tcl	21 Sep 2004 17:35:40 -0000	1.1
@@ -0,0 +1,23 @@
+ad_page_contract {
+    @author eperez@it.uc3m.es
+    @creation-date 2004-09-21
+} {
+} -properties {
+    context:onevalue
+}
+
+set context [list "Show Items"]
+
+ad_form -name show_item_form  -html {enctype multipart/form-data} -form {
+    { assessment_id:text {value 1} }
+}
+
+#For each item:
+db_multirow items query_all_items {} {
+    #If there is an item 
+    if {![empty_string_p $as_item_id]} {
+	add_item_to_form show_item_form $as_item_id
+    }
+}
+
+ad_return_template
Index: openacs-4/packages/assessment/www/admin/show-items.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/show-items.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/admin/show-items.xql	21 Sep 2004 17:35:40 -0000	1.1
@@ -0,0 +1,12 @@
+<?xml version="1.0"?>
+<queryset>
+	<rdbms><type>postgresql</type><version>7.4</version></rdbms>
+
+	<fullquery name="query_all_items">
+		<querytext>
+			SELECT as_itemsx.as_item_id, as_itemsx.name, as_itemsx.title, 'radiobutton' AS presentation_type
+			FROM as_itemsx
+		</querytext>
+	</fullquery>
+
+</queryset>
Index: openacs-4/packages/assessment/www/admin/unzip-file.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/unzip-file.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/admin/unzip-file.adp	21 Sep 2004 17:35:40 -0000	1.1
@@ -0,0 +1,8 @@
+<master>
+<property name="title">Assessment</property>
+<property name="context">@context;noquote@</property>
+<if @qti_items_imported_number@># items imported: @qti_items_imported_number@</if><br>
+<br>
+<a href="show-items">Show items</a>
+<a href="upload-file">Upload files</a>
+</master>
Index: openacs-4/packages/assessment/www/admin/unzip-file.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/admin/Attic/unzip-file.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/assessment/www/admin/unzip-file.tcl	21 Sep 2004 17:35:40 -0000	1.1
@@ -0,0 +1,33 @@
+ad_page_contract {
+    @author alvaro@it.uc3m.es
+    @creation-date 2004-04-14
+} {
+    zipfile
+    {zipfile.tmpfile}
+} -validate {
+} -properties {
+    qti_items_imported_number
+    context:onevalue
+}
+
+set context [list "Import Results"]
+
+# Generate a random directory name
+set tmpdirectory [ns_tmpnam]
+# Create a temporary directory
+file mkdir $tmpdirectory
+
+# UNZIP the zip file in the temporary directory
+catch { exec unzip ${zipfile.tmpfile} -d $tmpdirectory } outMsg
+
+set qti_items_imported_number 0
+# Read the content of the temporary directory
+foreach file_i [ glob -directory $tmpdirectory *{.xml}  ] {
+	set items [llength [parse_qti_xml $file_i]]
+	set qti_items_imported_number [expr [llength items]  + $qti_items_imported_number]	
+}
+
+# Delete the temporary directory
+file delete -force $tmpdirectory
+
+ad_return_template