version 1.11, 2002/05/13 14:33:50
|
version 1.13, 2002/05/13 19:23:52
|
Line 166 sub buttons {
|
Line 166 sub buttons {
|
sub smpedt { |
sub smpedt { |
my ($r,$errtext)=@_; |
my ($r,$errtext)=@_; |
my $buttons=&buttons(2); |
my $buttons=&buttons(2); |
|
|
|
# ---------------------------------------------------------- Process form input |
|
|
|
my @importselect=(); |
|
my @targetselect=(); |
|
undef @importselect; |
|
undef @targetselect; |
|
if (defined($ENV{'form.import'})) { |
|
if (ref($ENV{'form.import'})) { |
|
@importselect=sort($ENV->{'form.import'}); |
|
} else { |
|
@importselect=($ENV{'form.import'}); |
|
} |
|
} |
|
if (defined($ENV{'form.target'})) { |
|
if (ref($ENV{'form.target'})) { |
|
@targetselect=sort($ENV->{'form.target'}); |
|
} else { |
|
@targetselect=($ENV{'form.target'}); |
|
} |
|
} |
|
# ============================================================ Process commands |
|
|
|
my $targetdetail=''; |
|
my $importdetail=''; |
|
|
|
# ---------------------------------------------------- Importing from groupsort |
|
if ($ENV{'form.importdetail'}) { |
|
|
|
my @curimport=split(/\&/,$ENV{'form.curimpdetail'}); |
|
|
|
my $lastsel; |
|
|
|
if (defined($importselect[-1])) { |
|
$lastsel=$importselect[-1]; |
|
} else { |
|
$lastsel=$#curimport; |
|
} |
|
|
|
for (my $i=0;$i<=$lastsel;$i++) { |
|
my ($name,$url)=split(/\=/,$curimport[$i]); |
|
if ($url) { |
|
$importdetail.='&'.&Apache::lonnet::escape($name).'='. |
|
&Apache::lonnet::escape($url); |
|
} |
|
} |
|
|
|
$importdetail.='&'.$ENV{'form.importdetail'}; |
|
|
|
for (my $i=$lastsel+1;$i<=$#curimport;$i++) { |
|
my ($name,$url)=split(/\=/,$curimport[$i]); |
|
if ($url) { |
|
$importdetail.='&'.&Apache::lonnet::escape($name).'='. |
|
&Apache::lonnet::escape($url); |
|
} |
|
} |
|
$importdetail=~s/\&+/\&/g; |
|
$importdetail=~s/^\&//; |
|
|
|
# -------------------------------------------------------- |
|
} |
|
|
|
# ------------------------------------------------------------ Assemble windows |
|
|
|
my $idx=-1; |
|
my $importwindow=join("\n",map { |
|
$idx++; |
|
if ($_) { |
|
my ($name)=split(/\=/,$_); |
|
unless ($name) { $name='UNKNOWN'; } |
|
'<option value="'.$idx.'">'.&Apache::lonnet::unescape($name). |
|
'</option>'; |
|
} |
|
} split(/\&/,$importdetail)); |
|
|
|
$idx=0; |
my $targetwindow=join("\n",map { |
my $targetwindow=join("\n",map { |
my ($name)=split(/\:/,$resources[$_]); |
my ($name,$url)=split(/\:/,$resources[$_]); |
unless ($name) { $name='UNKNOWN'; } |
unless ($name) { $name='UNKNOWN'; } |
'<option value="t'.$_.'">'.$name.'</option>'; |
$targetdetail.='&'.&Apache::lonnet::escape($name).'='. |
|
&Apache::lonnet::escape($url); |
|
$idx++; |
|
'<option value="'.$idx.'_'.$_.'">'.$name.'</option>'; |
} @order); |
} @order); |
|
|
# ----------------------------------------------------- Start simple RAT screen |
# ----------------------------------------------------- Start simple RAT screen |
Line 260 function idxcheck(mode) {
|
Line 339 function idxcheck(mode) {
|
<body bgcolor='#FFFFFF'> |
<body bgcolor='#FFFFFF'> |
$buttons |
$buttons |
<font color=red>$errtext</font> |
<font color=red>$errtext</font> |
<form method=post> |
<form name=simpleedit method=post> |
<input type=hidden name=forcesmp value=1> |
<input type=hidden name=forcesmp value=1> |
<table> |
<table> |
<tr><th>Import</th><th> </th><th>Target</th></tr> |
<tr><th width="40%">Import</th> |
<tr><td> |
<th> </th> |
<a href="javascript:groupsearch()">Group Search</a> |
<th width="40%">Target</th></tr> |
<a href="javascript:groupimport()">Group Import</a> |
<tr><td bgcolor="#FFFFCC"> |
</td><td> </td><td> </td></tr> |
<input type=button onClick="javascript:groupsearch()" value="Group Search"> |
<tr><td> |
<input type=button onClick="javascript:groupimport();" value="Group Import"> |
|
<input type=button onClick="javascript:viewimport()" value="View"> |
|
</td><td> </td><td bgcolor="#FFFFCC"> |
|
<input type=button onClick="javascript:viewtarget()" value="View"> |
|
</td></tr> |
|
<tr><td bgcolor="#FFFFCC"><select name="import" multiple> |
|
$importwindow |
|
</select> |
</td> |
</td> |
<td> |
<td bgcolor="#FFFFAA" align="center"> |
|
Cut selected<br> |
<input type=submit name=cut value='<<<'><p> |
<input type=submit name=cut value='<<<'><p> |
|
<hr> |
|
Paste after selected<br> |
<input type=submit name=paste value='>>>'> |
<input type=submit name=paste value='>>>'> |
</td> |
</td> |
<td><select name="target" multiple> |
<td bgcolor="#FFFFCC"><select name="target" multiple> |
$targetwindow |
$targetwindow |
</select> |
</select> |
|
</table> |
|
<input type=hidden name=importdetail value=""> |
|
<input type=hidden name=curimpdetail value="$importdetail"> |
|
<input type=hidden name=targetdetail value="$targetdetail"> |
|
</form> |
|
</body></html> |
ENDSMPHEAD |
ENDSMPHEAD |
|
|
$r->print('</table></form></body></html>'); |
|
} |
} |
|
|
# ----------------------------------------------------------------- No such dir |
# ----------------------------------------------------------------- No such dir |