version 1.182.4.5, 2009/08/13 16:12:51
|
version 1.182.4.11, 2010/01/23 22:23:53
|
Line 62 use Apache::lonlocal;
|
Line 62 use Apache::lonlocal;
|
use Apache::lonnet; |
use Apache::lonnet; |
use LONCAPA; |
use LONCAPA; |
|
|
|
sub coursepreflink { |
|
my ($text,$category)=@_; |
|
if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) { |
|
return '<a href="/adm/courseprefs?phase=display&actions='.$category.'">'.$text.'</a>'; |
|
} else { |
|
return ''; |
|
} |
|
} |
|
|
|
sub raw_href_to_link { |
|
my ($message)=@_; |
|
$message=~s/(https?\:\/\/[^\s\'\"]+)(\s|$)/<a href="$1"><tt>$1<\/tt><\/a>$2/gi; |
|
return $message; |
|
} |
|
|
############################################## |
############################################## |
############################################## |
############################################## |
|
|
Line 222 sub select_recent {
|
Line 237 sub select_recent {
|
unless ($value =~/^error\:/) { |
unless ($value =~/^error\:/) { |
my $escaped = &Apache::loncommon::escape_url($value); |
my $escaped = &Apache::loncommon::escape_url($value); |
&Apache::loncommon::inhibit_menu_check(\$escaped); |
&Apache::loncommon::inhibit_menu_check(\$escaped); |
|
if ($area eq 'residx') { |
|
next if ((!&Apache::lonnet::allowed('bre',$value)) && (!&Apache::lonnet::allowed('bro',$value))); |
|
} |
$return.="\n<option value='$escaped'>". |
$return.="\n<option value='$escaped'>". |
&unescape((split(/\&/,$recent{$value}))[1]). |
&unescape((split(/\&/,$recent{$value}))[1]). |
'</option>'; |
'</option>'; |
Line 418 sub date_setter {
|
Line 436 sub date_setter {
|
($tzname,$sec,$min,$hour,$mday,$month,$year) = &get_timedates($currentvalue); |
($tzname,$sec,$min,$hour,$mday,$month,$year) = &get_timedates($currentvalue); |
} |
} |
unless ($wasdefined) { |
unless ($wasdefined) { |
($tzname,$sec,$min,$hour,$mday,$month,$year) = &get_timedates($now); |
|
if (($defhour) || ($defmin) || ($defsec)) { |
if (($defhour) || ($defmin) || ($defsec)) { |
|
($tzname,$sec,$min,$hour,$mday,$month,$year) = &get_timedates($now); |
$sec=($defsec?$defsec:0); |
$sec=($defsec?$defsec:0); |
$min=($defmin?$defmin:0); |
$min=($defmin?$defmin:0); |
$hour=($defhour?$defhour:0); |
$hour=($defhour?$defhour:0); |
Line 978 sub Create_PrgWin {
|
Line 996 sub Create_PrgWin {
|
|
|
#the whole function called through timeout is due to issues |
#the whole function called through timeout is due to issues |
#in mozilla Read BUG #2665 if you want to know the whole story |
#in mozilla Read BUG #2665 if you want to know the whole story |
&r_print($r,'<script type="text/javascript">'. |
&r_print($r,'<script type="text/javascript">'."\n". |
'// <![CDATA['. |
'// <![CDATA['."\n". |
"var popwin; |
"var popwin; |
function openpopwin () { |
function openpopwin () { |
popwin=open(\'\',\'popwin\',\'width=400,height=100\');". |
popwin=open(\'\',\'popwin\',\'width=400,height=100\');". |
Line 990 sub Create_PrgWin {
|
Line 1008 sub Create_PrgWin {
|
&mt('Starting').'" /><\\/form>'.$end_page. |
&mt('Starting').'" /><\\/form>'.$end_page. |
"\');". |
"\');". |
"popwin.document.close();}". |
"popwin.document.close();}". |
"\nwindow.setTimeout(openpopwin,0). |
"\nwindow.setTimeout(openpopwin,0)\n". |
'// ]]>'. |
'// ]]>'."\n". |
'</script>"); |
'</script>'); |
$prog_state{'formname'}='popremain'; |
$prog_state{'formname'}='popremain'; |
$prog_state{'inputname'}="remaining"; |
$prog_state{'inputname'}="remaining"; |
} elsif ($type eq 'inline') { |
} elsif ($type eq 'inline') { |
Line 1025 sub Create_PrgWin {
|
Line 1043 sub Create_PrgWin {
|
# update progress |
# update progress |
sub Update_PrgWin { |
sub Update_PrgWin { |
my ($r,$prog_state,$displayString)=@_; |
my ($r,$prog_state,$displayString)=@_; |
&r_print($r,'<script type="text/javascript">'. |
&r_print($r,'<script type="text/javascript">'."\n". |
'// <![CDATA['. |
'// <![CDATA['."\n". |
$$prog_state{'window'}.'.document.'. |
$$prog_state{'window'}.'.document.'. |
$$prog_state{'formname'}.'.'. |
$$prog_state{'formname'}.'.'. |
$$prog_state{'inputname'}.'.value="'. |
$$prog_state{'inputname'}.'.value="'. |
$displayString.'";'. |
$displayString.'";'."\n". |
'// ]]>'. |
'// ]]>'."\n". |
'</script>'); |
'</script>'); |
$$prog_state{'laststart'}=&Time::HiRes::time(); |
$$prog_state{'laststart'}=&Time::HiRes::time(); |
} |
} |
Line 1085 sub Increment_PrgWin {
|
Line 1103 sub Increment_PrgWin {
|
if ($user_browser eq 'explorer' && $user_os =~ 'mac') { |
if ($user_browser eq 'explorer' && $user_os =~ 'mac') { |
$lasttime = ''; |
$lasttime = ''; |
} |
} |
&r_print($r,'<script>'. |
&r_print($r,'<script>'."\n". |
'// <![CDATA['. |
'// <![CDATA['."\n". |
$$prog_state{'window'}.'.document.'. |
$$prog_state{'window'}.'.document.'. |
$$prog_state{'formname'}.'.'. |
$$prog_state{'formname'}.'.'. |
$$prog_state{'inputname'}.'.value="'. |
$$prog_state{'inputname'}.'.value="'. |
$$prog_state{'done'}.'/'.$$prog_state{'max'}. |
$$prog_state{'done'}.'/'.$$prog_state{'max'}. |
': '.$time_est.' '.&mt('remaining').' '.$lasttime.'";'. |
': '.$time_est.' '.&mt('remaining').' '.$lasttime.'";'."\n". |
'// ]]>'. |
'// ]]>'."\n". |
'</script>'); |
'</script>'); |
$$prog_state{'laststart'}=&Time::HiRes::time(); |
$$prog_state{'laststart'}=&Time::HiRes::time(); |
} |
} |
Line 1101 sub Increment_PrgWin {
|
Line 1119 sub Increment_PrgWin {
|
sub Close_PrgWin { |
sub Close_PrgWin { |
my ($r,$prog_state)=@_; |
my ($r,$prog_state)=@_; |
if ($$prog_state{'type'} eq 'popup') { |
if ($$prog_state{'type'} eq 'popup') { |
&r_print($r,'<script>'. |
&r_print($r,'<script>'."\n". |
'// <![CDATA['. |
'// <![CDATA['."\n". |
'popwin.close()'. |
'popwin.close()'."n". |
'// ]]>'. |
'// ]]>'."\n". |
'</script>'."\n"); |
'</script>'."\n"); |
} elsif ($$prog_state{'type'} eq 'inline') { |
} elsif ($$prog_state{'type'} eq 'inline') { |
&Update_PrgWin($r,$prog_state,&mt('Done')); |
&Update_PrgWin($r,$prog_state,&mt('Done')); |
Line 1136 sub crumbs {
|
Line 1154 sub crumbs {
|
my $output=''; |
my $output=''; |
unless ($noformat) { $output.='<br /><tt><b>'; } |
unless ($noformat) { $output.='<br /><tt><b>'; } |
$output.='<font size="'.$size.'">'.$prefix.'/'; |
$output.='<font size="'.$size.'">'.$prefix.'/'; |
if ($env{'user.adv'}) { |
if (($env{'user.adv'}) || ($env{'user.author'})) { |
my $path=$prefix.'/'; |
my $path=$prefix.'/'; |
foreach my $dir (split('/',$uri)) { |
foreach my $dir (split('/',$uri)) { |
if (! $dir) { next; } |
if (! $dir) { next; } |
Line 1287 sub htmlareaselectactive {
|
Line 1305 sub htmlareaselectactive {
|
}"; |
}"; |
} |
} |
$output.="\nwindow.status='Activated Editfields';\n". |
$output.="\nwindow.status='Activated Editfields';\n". |
'// ]]>'. |
'// ]]>'."\n". |
'</script><br />'. |
'</script><br />'. |
&disablelink(@fields); |
&disablelink(@fields); |
return $output; |
return $output; |
Line 1594 ENDTWO
|
Line 1612 ENDTWO
|
|
|
sub role_select_row { |
sub role_select_row { |
my ($roles,$title,$css_class,$show_separate_custom,$cdom,$cnum) = @_; |
my ($roles,$title,$css_class,$show_separate_custom,$cdom,$cnum) = @_; |
|
my $crstype = 'Course'; |
|
if ($cdom ne '' && $cnum ne '') { |
|
$crstype = &Apache::loncommon::course_type($cdom.'_'.$cnum); |
|
} |
my $output; |
my $output; |
if (defined($title)) { |
if (defined($title)) { |
$output = &row_title($title,$css_class); |
$output = &row_title($title,$css_class); |
Line 1618 sub role_select_row {
|
Line 1640 sub role_select_row {
|
$plrole = &mt('Custom Role'); |
$plrole = &mt('Custom Role'); |
} |
} |
} else { |
} else { |
$plrole=&Apache::lonnet::plaintext($role); |
$plrole=&Apache::lonnet::plaintext($role,$crstype); |
} |
} |
if (($role ne 'cr') || (!$show_separate_custom)) { |
if (($role ne 'cr') || (!$show_separate_custom)) { |
$output .= ' <option value="'.$role.'">'.$plrole.'</option>'; |
$output .= ' <option value="'.$role.'">'.$plrole.'</option>'; |
Line 1633 sub role_select_row {
|
Line 1655 sub role_select_row {
|
|
|
sub course_select_row { |
sub course_select_row { |
my ($title,$formname,$totcodes,$codetitles,$idlist,$idlist_titles, |
my ($title,$formname,$totcodes,$codetitles,$idlist,$idlist_titles, |
$css_class) = @_; |
$css_class,$crstype) = @_; |
my $output = &row_title($title,$css_class); |
my $output = &row_title($title,$css_class); |
$output .= &course_selection($formname,$totcodes,$codetitles,$idlist,$idlist_titles); |
$output .= &course_selection($formname,$totcodes,$codetitles,$idlist,$idlist_titles,$crstype); |
$output .= &row_closure(); |
$output .= &row_closure(); |
return $output; |
return $output; |
} |
} |
|
|
sub course_selection { |
sub course_selection { |
my ($formname,$totcodes,$codetitles,$idlist,$idlist_titles) = @_; |
my ($formname,$totcodes,$codetitles,$idlist,$idlist_titles,$crstype) = @_; |
my $output = qq| |
my $output = qq| |
<script type="text/javascript"> |
<script type="text/javascript"> |
// <![CDATA[ |
// <![CDATA[ |
Line 1670 sub course_selection {
|
Line 1692 sub course_selection {
|
// ]]> |
// ]]> |
</script> |
</script> |
|; |
|; |
|
|
|
my ($allcrs,$pickspec); |
|
if ($crstype eq 'Community') { |
|
$allcrs = &mt('All communities'); |
|
$pickspec = &mt('Pick specific communities:'); |
|
} else { |
|
$allcrs = &mt('All courses'); |
|
$pickspec = &mt('Pick specific course(s):'); |
|
} |
|
|
my $courseform='<b>'.&Apache::loncommon::selectcourse_link |
my $courseform='<b>'.&Apache::loncommon::selectcourse_link |
($formname,'pickcourse','pickdomain','coursedesc','',1).'</b>'; |
($formname,'pickcourse','pickdomain','coursedesc','',1,$crstype).'</b>'; |
$output .= '<input type="radio" name="coursepick" value="all" onclick="coursePick(this.form)" />'.&mt('All courses').'<br />'; |
$output .= '<input type="radio" name="coursepick" value="all" onclick="coursePick(this.form)" />'.$allcrs.'<br />'; |
if ($totcodes > 0) { |
if ($totcodes > 0) { |
my $numtitles = @$codetitles; |
my $numtitles = @$codetitles; |
if ($numtitles > 0) { |
if ($numtitles > 0) { |
Line 1717 sub course_selection {
|
Line 1749 sub course_selection {
|
$output .= '</tr></table><br />'; |
$output .= '</tr></table><br />'; |
} |
} |
} |
} |
$output .= '<input type="radio" name="coursepick" value="specific" onclick="coursePick(this.form);opencrsbrowser('."'".$formname."','dccourse','dcdomain','coursedesc','','1'".')" />'.&mt('Pick specific course(s):').' '.$courseform.' <input type="text" value="0" size="4" name="coursetotal" /><input type="hidden" name="courselist" value="" />selected.<br />'."\n"; |
$output .= '<input type="radio" name="coursepick" value="specific" onclick="coursePick(this.form);opencrsbrowser('."'".$formname."','dccourse','dcdomain','coursedesc','','1'".')" />'.$pickspec.' '.$courseform.' <input type="text" value="0" size="4" name="coursetotal" /><input type="hidden" name="courselist" value="" />selected.<br />'."\n"; |
return $output; |
return $output; |
} |
} |
|
|
Line 1813 sub topic_bar {
|
Line 1845 sub topic_bar {
|
return ' |
return ' |
<div class="LC_topic_bar"> |
<div class="LC_topic_bar"> |
<img alt="'.&mt('Step [_1]',$imgnum). |
<img alt="'.&mt('Step [_1]',$imgnum). |
'" src="/res/adm/pages/bl_step'.$imgnum.'.gif" /> '.$title |
'" src="/res/adm/pages/bl_step'.$imgnum.'.gif" /> '.$title.' |
</div> |
</div> |
'; |
'; |
} |
} |
Line 1950 sub set_form_elements {
|
Line 1982 sub set_form_elements {
|
$values{$name}[$i] =~ s/([\r\n\f]+)/\\n/g; |
$values{$name}[$i] =~ s/([\r\n\f]+)/\\n/g; |
$values{$name}[$i] =~ s/"/\\"/g; |
$values{$name}[$i] =~ s/"/\\"/g; |
} |
} |
if ($$elements{$name} eq 'text') { |
if (($$elements{$name} eq 'text') || ($$elements{$name} eq 'hidden')) { |
my $numvalues = @{$values{$name}}; |
my $numvalues = @{$values{$name}}; |
if ($numvalues > 1) { |
if ($numvalues > 1) { |
my $valuestring = join('","',@{$values{$name}}); |
my $valuestring = join('","',@{$values{$name}}); |
Line 1985 sub set_form_elements {
|
Line 2017 sub set_form_elements {
|
$output .= qq| |
$output .= qq| |
if (courseForm.elements['$name'].value == "$value") { |
if (courseForm.elements['$name'].value == "$value") { |
courseForm.elements['$name'].checked = true; |
courseForm.elements['$name'].checked = true; |
|
} else { |
|
courseForm.elements['$name'].checked = false; |
}|; |
}|; |
} |
} |
} |
} |
Line 2026 sub set_form_elements {
|
Line 2060 sub set_form_elements {
|
} |
} |
} |
} |
$output .= " |
$output .= " |
|
return; |
}\n"; |
}\n"; |
return $output; |
return $output; |
} |
} |