version 1.28, 2006/11/02 21:15:22
|
version 1.30, 2007/01/16 21:19:11
|
Line 34 use Apache::lonnet;
|
Line 34 use Apache::lonnet;
|
use Apache::Constants qw(:common :http REDIRECT); |
use Apache::Constants qw(:common :http REDIRECT); |
use GDBM_File; |
use GDBM_File; |
use LONCAPA::map(); |
use LONCAPA::map(); |
use Apache::lonratsrv(); |
|
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 170 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 182 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="'.&Apache::lonratsrv::qtescape($url).'">'); |
$r->print('<a href="'.$enc_url.'">'); |
} |
} |
$r->print(&Apache::lonratsrv::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>'); |