[LON-CAPA-cvs] cvs: rat / lonratedt.pm
www
lon-capa-cvs@mail.lon-capa.org
Mon, 13 May 2002 14:33:50 -0000
www Mon May 13 10:33:50 2002 EDT
Modified files:
/rat lonratedt.pm
Log:
Brings up target select field and move buttons
Index: rat/lonratedt.pm
diff -u rat/lonratedt.pm:1.10 rat/lonratedt.pm:1.11
--- rat/lonratedt.pm:1.10 Sat May 11 19:23:01 2002
+++ rat/lonratedt.pm Mon May 13 10:33:50 2002
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Edit Handler for RAT Maps
#
-# $Id: lonratedt.pm,v 1.10 2002/05/11 23:23:01 www Exp $
+# $Id: lonratedt.pm,v 1.11 2002/05/13 14:33:50 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -166,6 +166,12 @@
sub smpedt {
my ($r,$errtext)=@_;
my $buttons=&buttons(2);
+ my $targetwindow=join("\n",map {
+ my ($name)=split(/\:/,$resources[$_]);
+ unless ($name) { $name='UNKNOWN'; }
+ '<option value="t'.$_.'">'.$name.'</option>';
+ } @order);
+
# ----------------------------------------------------- Start simple RAT screen
$r->print(<<ENDSMPHEAD);
<html>
@@ -254,15 +260,29 @@
<body bgcolor='#FFFFFF'>
$buttons
<font color=red>$errtext</font>
+<form method=post>
+<input type=hidden name=forcesmp value=1>
+<table>
+ <tr><th>Import</th><th> </th><th>Target</th></tr>
+<tr><td>
<a href="javascript:groupsearch()">Group Search</a>
<a href="javascript:groupimport()">Group Import</a>
-
+ </td><td> </td><td> </td></tr>
+<tr><td>
+</td>
+<td>
+<input type=submit name=cut value='<<<'><p>
+<input type=submit name=paste value='>>>'>
+</td>
+<td><select name="target" multiple>
+$targetwindow
+</select>
ENDSMPHEAD
- $r->print(
- '<input type=submit name=forcesmp value="Store"></form></body></html>');
+ $r->print('</table></form></body></html>');
}
+# ----------------------------------------------------------------- No such dir
sub nodir {
my ($r,$dir)=@_;
$dir=~s/^\/home\/\w+\/public\_html//;