--- loncom/interface/londocs.pm 2010/03/29 12:34:47 1.425
+++ loncom/interface/londocs.pm 2010/07/05 12:29:36 1.429
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Documents
#
-# $Id: londocs.pm,v 1.425 2010/03/29 12:34:47 raeburn Exp $
+# $Id: londocs.pm,v 1.429 2010/07/05 12:29:36 droeschl Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -2264,8 +2264,6 @@ sub list_symbs {
sub verifycontent {
my ($r) = @_;
my $crstype = &Apache::loncommon::course_type();
- my $loaderror=&Apache::lonnet::overloaderror($r);
- if ($loaderror) { return $loaderror; }
$r->print(&Apache::loncommon::start_page('Verify '.$crstype.' Documents'));
$r->print(&Apache::lonhtmlcommon::breadcrumbs('Verify '.$crstype.' Documents'));
$hashtied=0;
@@ -2484,11 +2482,11 @@ ENDHEADERS
# Set version
$r->print(&Apache::loncommon::select_form($setversions{$linkurl},
'set_version_'.$linkurl,
- ('select_form_order' =>
+ {'select_form_order' =>
['',1..$currentversion,'mostrecent'],
'' => '',
'mostrecent' => &mt('most recent'),
- map {$_,$_} (1..$currentversion))));
+ map {$_,$_} (1..$currentversion)}));
$r->print('
| ');
my $lastold=1;
for (my $prevvers=1;$prevvers<$currentversion;$prevvers++) {
@@ -3064,14 +3062,18 @@ HIDDENFORM
$activeClass = 0;
}
}
- $r->print(''.$tabtitles{'main'}{$crstype}.'');
+ $r->print(''.$tabtitles{'main'}{$crstype}.'');
$active = '';
if (!$forcestandard || ($env{'form.folderpath'}=~/^supplemental/)) {
if($activeClass == 1){
$active = 'class="active"';
}
}
- $r->print(''.$tabtitles{'supplemental'}{$crstype}.'');
+ $r->print(''.$tabtitles{'supplemental'}{$crstype}.'');
$r->print('');
} else {
$r->print('
');
@@ -3287,7 +3289,7 @@ NGFFORM
{'
'=>$newbulform},
{'
'=>$newaboutmeform},
{'
'=>$newaboutsomeoneform},
- {'
'=>$newrosterform},);
+ {'
'=>$newrosterform},);
$specialdocumentsform = create_form_ul(create_list_elements(@specialdocumentsforma));
@@ -3507,7 +3509,7 @@ sub generate_admin_options {
=>$exportbut},
{'
'
=>""},
- {'
'
+ {'
'
=>""},
);
return '';
@@ -3534,7 +3536,9 @@ sub generate_edit_table {
}elsif($activetab eq $name){
$active = 'class="active"';
}
- $form .= ''.&mt(${$orderhash{$name}}[0]).'';
+ $form .= ''.&mt(${$orderhash{$name}}[0]).'';
} else {
$form .= ''.${$orderhash{$name}}[1].'';