Update of /cvsroot/sandweb/sandweb/bin
In directory usw-pr-cvs1:/tmp/cvs-serv5727/bin
Modified Files:
sandweb.cgi
Log Message:
ok, now it's possible to edit your repository preferences, although
you can only have one, it's still a step forward.
Index: sandweb.cgi
===================================================================
RCS file: /cvsroot/sandweb/sandweb/bin/sandweb.cgi,v
retrieving revision 1.83
retrieving revision 1.84
diff -U2 -r1.83 -r1.84
--- sandweb.cgi 2001/12/04 00:46:32 1.83
+++ sandweb.cgi 2001/12/04 01:15:35 1.84
@@ -716,5 +716,7 @@
load_prefs(1); # load prefs and do not log error msg
my $username = $auth->get_userinfo('username');
+ my $name = $userprefs->{'repository'}->{'name'};
my $server = $userprefs->{'repository'}->{'server'};
+ my $vcs_username = $userprefs->{'repository'}->{'username'};
my $root = $userprefs->{'repository'}->{'root'};
my $repo_type = $userprefs->{'repository'}->{'repo_type'};
@@ -724,5 +726,7 @@
MENU => 'vcs_prefs',
PROGNAME => $progname,
+ NAME => $name,
SERVER => $server,
+ USERNAME => $vcs_username,
ROOT => $root,
);
@@ -754,5 +758,30 @@
load_prefs(1); # load prefs and do not log error msg
- $userprefs->{'personal'}->{'full_name'} = param('full_name');
+ my @personal_params = (
+ 'full_name',
+ 'work_dir',
+ );
+
+ my @repository_params = (
+ 'name',
+ 'server',
+ 'username',
+ 'vcs_type',
+ 'connection',
+ 'root',
+ );
+
+ foreach my $param (@personal_params) {
+ if ( param("$param") ) {
+ $userprefs->{'personal'}->{"$param"} = param("$param");
+ }
+ }
+
+ foreach my $param (@repository_params) {
+ if ( param("$param") ) {
+ $userprefs->{'repository'}->{"$param"} = param("$param");
+ }
+ }
+
my $username = $auth->get_userinfo('username');
# write config data into the .$prefs_config file in the users directory
@@ -771,5 +800,5 @@
# when finished go to main menu. (this should be dynamic probably, so it
# returns to whichever menu they wanted to go to in the first place).
- main_menu( cookie => $cookie, );
+ main_menu( cookie => $cookie );
}
|
