version 1.29, 2006/11/02 21:27:58
|
version 1.30, 2007/01/16 21:19:11
|
Line 37 use LONCAPA::map();
|
Line 37 use LONCAPA::map();
|
use Apache::lonpageflip(); |
use Apache::lonpageflip(); |
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonlocal; |
use Apache::lonlocal; |
|
use HTML::Entities(); |
|
|
my %selhash; |
my %selhash; |
my $successtied; |
my $successtied; |
Line 169 ENDSELECT
|
Line 170 ENDSELECT
|
$r->print('<form name="form'.$idx.'">'); |
$r->print('<form name="form'.$idx.'">'); |
} |
} |
my ($title,$url)=split(/\:/,$_); |
my ($title,$url)=split(/\:/,$_); |
$title=~s/\&colon\;/\:/g; |
$title = &LONCAPA::map::qtescape($title); |
$url=~s/\&colon\;/\:/g; |
unless ($title) { $title=(split(/\//,$url))[-1] }; |
unless ($title) { $title=(split(/\//,$url))[-1] }; |
my $enc_title = &HTML::Entities::encode($title,'\'"<>&'); |
unless ($title) { $title='<i>'.&mt('Empty').'</i>'; } |
unless ($title) { |
|
$title='<i>'.&mt('Empty').'</i>'; |
|
$enc_title = &mt('Empty'); |
|
} |
|
$url = &LONCAPA::map::qtescape($url); |
|
my $enc_url = &HTML::Entities::encode($url,'\'"<>&'); |
if ($url) { |
if ($url) { |
if ($successtied) { |
if ($successtied) { |
my $checked=''; |
my $checked=''; |
Line 181 ENDSELECT
|
Line 187 ENDSELECT
|
} |
} |
$selhash{"pre_${idx}_link"}=$url; |
$selhash{"pre_${idx}_link"}=$url; |
$selhash{"pre_${idx}_title"}=$title; |
$selhash{"pre_${idx}_title"}=$title; |
|
|
|
$url = &HTML::Entities::encode($url, '\'"<>&'); |
$r->print(<<ENDCHECKBOX); |
$r->print(<<ENDCHECKBOX); |
<input type='checkbox' name='filelink' |
<input type='checkbox' name='filelink' |
value='$url' onClick='javascript:queue("form$idx")'$checked> |
value='$enc_url' onClick='javascript:queue("form$idx")'$checked /> |
<input type='hidden' name='title' value='$title'> |
<input type='hidden' name='title' value='$enc_title' /> |
ENDCHECKBOX |
ENDCHECKBOX |
} |
} |
$r->print('<a href="'.&LONCAPA::map::qtescape($url).'">'); |
$r->print('<a href="'.$enc_url.'">'); |
} |
} |
$r->print(&LONCAPA::map::qtescape($title)); |
$r->print($enc_title); |
if ($url) { $r->print('</a>'); } |
if ($url) { $r->print('</a>'); } |
if ($successtied) { |
if ($successtied) { |
$r->print('</form>'); |
$r->print('</form>'); |