[LON-CAPA-cvs] cvs: loncom /interface londocs.pm

[raeburn]

raeburn		Tue Mar 16 17:46:59 2004 EDT

  Modified files:              
    /loncom/interface	londocs.pm 
  Log:
  Added 'Import IMS package' button.  
  
  
Index: loncom/interface/londocs.pm
diff -u loncom/interface/londocs.pm:1.109 loncom/interface/londocs.pm:1.110
--- loncom/interface/londocs.pm:1.109	Fri Feb 27 14:11:08 2004
+++ loncom/interface/londocs.pm	Tue Mar 16 17:46:59 2004
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Documents
 #
-# $Id: londocs.pm,v 1.109 2004/02/27 19:11:08 albertel Exp $
+# $Id: londocs.pm,v 1.110 2004/03/16 22:46:59 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1013,6 +1013,14 @@
    }
 }
 
+function makeims() {
+    var caller = document.forms.ims.folder.value
+    var newlocation = "/adm/imsimportdocs?folder="+caller+"&phase=one"
+    newWindow = window.open("","IMSimport","HEIGHT=700,WIDTH=750,scrollbars=yes")
+    newWindow.location.href = newlocation
+}
+
+
 function finishpick() {
     var title=this.document.forms.extimport.title.value;
     var url=this.document.forms.extimport.url.value;
@@ -1073,6 +1081,7 @@
                 'bull' => 'Bulletin Board',
                 'mypi' => 'My Personal Info',
 		'abou' => 'About User',
+                'imsf' => 'Import IMS package',
                 'file' =>  'File',
                 'title' => 'Title',
                 'comment' => 'Comment' 
@@ -1267,6 +1276,11 @@
 <nobr>
 <input name="newaboutsomeone" type="button" value="$lt{'abou'}" 
 onClick="javascript:makeabout();" />
+</nobr>
+</form>
+<form action="/adm/imsimportdocs" method="post" name="ims">
+<input type="hidden" name="folder" value="$folder" />
+<input name="imsimport" type="button" value="$lt{'imsf'}" onClick="javascript:makeims();" />
 </nobr>
 </form>
 </td></tr>