Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv30348/bin
Modified Files:
sandweb.cgi
Log Message:
made the menu key uppercase, so it matches the other params
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.82
retrieving revision 1.83
diff -U2 -r1.82 -r1.83
--- sandweb.cgi 2001/12/04 00:43:51 1.82
+++ sandweb.cgi 2001/12/04 00:46:32 1.83
@@ -186,5 +186,5 @@
my %args = @_;
- my $content = $ui->get_menu( menu => 'login' );
+ my $content = $ui->get_menu( MENU => 'login' );
print header;
@@ -373,5 +373,5 @@
my %return = $repository->log( file => "$filename" );
my $content = $ui->get_menu(
- menu => "file_info",
+ MENU => 'file_info',
PROGNAME => $progname,
LOCATION => $location,
@@ -402,5 +402,5 @@
}
my $content = $ui->get_menu(
- menu => "view_file",
+ MENU => 'view_file',
PROGNAME => $progname,
CONTENT => "@tmp",
@@ -441,5 +441,5 @@
}
my $content = $ui->get_menu(
- menu => "edit_file",
+ MENU => 'edit_file',
PROGNAME => $progname,
CONTENT => "@tmp",
@@ -470,5 +470,5 @@
}
my $content = $ui->get_menu(
- menu => "create_file",
+ MENU => 'create_file',
PROGNAME => $progname,
LOCATION => $location,
@@ -498,5 +498,5 @@
my $content = $ui->get_menu(
- menu => "create_folder",
+ MENU => 'create_folder',
PROGNAME => $progname,
LOCATION => $location,
@@ -516,5 +516,5 @@
elsif ( $command eq 'upload' ) {
my $content = $ui->get_menu(
- menu => "upload_file",
+ MENU => 'upload_file',
LOCATION => $location,
PROGNAME => $progname,
@@ -534,5 +534,5 @@
elsif ( $command eq 'checkout' ) {
my $content = $ui->get_menu(
- menu => "checkout",
+ MENU => 'checkout',
LOCATION => $location,
PROGNAME => $progname,
@@ -610,5 +610,5 @@
);
my $content = $ui->get_menu(
- menu => "vcs_output",
+ MENU => 'vcs_output',
LOCATION => $location,
PROGNAME => $progname,
@@ -629,5 +629,5 @@
}
my $content = $ui->get_menu(
- menu => "commit",
+ MENU => 'commit',
LOCATION => $location,
PROGNAME => $progname,
@@ -653,5 +653,5 @@
}
my $content = $ui->get_menu(
- menu => "vcs_output",
+ MENU => 'vcs_output',
LOCATION => $location,
PROGNAME => $progname,
@@ -688,5 +688,5 @@
my $content = $ui->get_menu(
- menu => 'preferences',
+ MENU => 'preferences',
PROGNAME => $progname,
FULL_NAME => $full_name,
@@ -722,5 +722,5 @@
my $content = $ui->get_menu(
- menu => "vcs_prefs",
+ MENU => 'vcs_prefs',
PROGNAME => $progname,
SERVER => $server,
|
