version 1.12, 2002/05/13 15:36:05
|
version 1.14, 2002/05/13 19:38:32
|
Line 175 sub smpedt {
|
Line 175 sub smpedt {
|
undef @targetselect; |
undef @targetselect; |
if (defined($ENV{'form.import'})) { |
if (defined($ENV{'form.import'})) { |
if (ref($ENV{'form.import'})) { |
if (ref($ENV{'form.import'})) { |
@importselect=$ENV->{'form.import'}; |
@importselect=sort($ENV->{'form.import'}); |
} else { |
} else { |
@importselect=($ENV{'form.import'}); |
@importselect=($ENV{'form.import'}); |
} |
} |
} |
} |
if (defined($ENV{'form.target'})) { |
if (defined($ENV{'form.target'})) { |
if (ref($ENV{'form.target'})) { |
if (ref($ENV{'form.target'})) { |
@targetselect=$ENV->{'form.target'}; |
@targetselect=sort($ENV->{'form.target'}); |
} else { |
} else { |
@targetselect=($ENV{'form.target'}); |
@targetselect=($ENV{'form.target'}); |
} |
} |
} |
} |
# --------------------------------------------------------- |
# ============================================================ Process commands |
|
|
my $targetdetail=(); |
my $targetdetail=$ENV{'form.targetdetail'}; |
|
my $importdetail=$ENV{'form.curimpdetail'}; |
|
|
|
# ---------------------------------------------------- Importing from groupsort |
|
if ($ENV{'form.importdetail'}) { |
|
|
|
$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/^\&//; |
|
|
|
# ------------------------------------------------------------------- Clear all |
|
} elsif ($ENV{'form.clear'}) { |
|
$importdetail=''; |
|
# ------------------------------------------------------------ Discard selected |
|
} elsif ($ENV{'form.discard'}) { |
|
$importdetail=''; |
|
my @curimport=split(/\&/,$ENV{'form.curimpdetail'}); |
|
foreach (@importselect) { |
|
$curimport[$_]=''; |
|
} |
|
for (my $i=0;$i<=$#curimport;$i++) { |
|
my ($name,$url)=split(/\=/,$curimport[$i]); |
|
if ($url) { |
|
$importdetail.='&'.&Apache::lonnet::escape($name).'='. |
|
&Apache::lonnet::escape($url); |
|
} |
|
} |
|
# --------------------------- |
|
} |
|
|
my @imporder=(); |
|
my @impresources=(); |
|
my $importdetail=''; |
|
# ------------------------------------------------------------ Assemble windows |
# ------------------------------------------------------------ Assemble windows |
|
|
my $importwindow=join("\n",map { |
my $idx=-1; |
my ($name)=split(/\:/,$impresources[$_]); |
my $importwindow=join("\n",map { |
unless ($name) { $name='UNKNOWN'; } |
$idx++; |
'<option value="'.$_.'">'.$name.'</option>'; |
if ($_) { |
} @imporder); |
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="'.$_.'">'.$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 296 function idxcheck(mode) {
|
Line 357 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 width="40%">Import</th> |
<tr><th width="40%">Import</th> |
Line 304 $buttons
|
Line 365 $buttons
|
<th width="40%">Target</th></tr> |
<th width="40%">Target</th></tr> |
<tr><td bgcolor="#FFFFCC"> |
<tr><td bgcolor="#FFFFCC"> |
<input type=button onClick="javascript:groupsearch()" value="Group Search"> |
<input type=button onClick="javascript:groupsearch()" value="Group Search"> |
<input type=button onClick="javascript:groupimport()" value="Group Import"> |
<input type=button onClick="javascript:groupimport();" value="Group Import"> |
|
<br>after selected |
|
<hr> |
|
<input type=submit name="discard" value="Discard Selected"> |
|
<input type=submit name="clear" value="Clear All"> |
<input type=button onClick="javascript:viewimport()" value="View"> |
<input type=button onClick="javascript:viewimport()" value="View"> |
</td><td> </td><td bgcolor="#FFFFCC"> |
</td><td> </td><td bgcolor="#FFFFCC"> |
<input type=button onClick="javascript:viewtarget()" value="View"> |
<input type=button onClick="javascript:viewtarget()" value="View"> |
Line 324 Paste after selected<br>
|
Line 389 Paste after selected<br>
|
$targetwindow |
$targetwindow |
</select> |
</select> |
</table> |
</table> |
<input type=hidden name=importdetail value="$importdetail"> |
<input type=hidden name=importdetail value=""> |
|
<input type=hidden name=curimpdetail value="$importdetail"> |
<input type=hidden name=targetdetail value="$targetdetail"> |
<input type=hidden name=targetdetail value="$targetdetail"> |
</form> |
</form> |
</body></html> |
</body></html> |